Keith_S_Thompson

cvs annotate demo for http://stackoverflow.com/q/29038112/82

Mar 13th, 2015
365
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.86 KB | None | 0 0
  1. $ cvs annotate hello.txt
  2.  
  3. Annotations for hello.txt
  4. ***************
  5. 1.2 (kst 13-Mar-15): # $Revision: 1.1 $
  6. 1.1 (kst 13-Mar-15):
  7. 1.1 (kst 13-Mar-15): Hello ...
  8. 1.2 (kst 13-Mar-15): ... and good-bye
  9. $ cat annotate.pl
  10. #!/usr/bin/perl
  11.  
  12. use strict;
  13. use warnings;
  14.  
  15. my $output = `cvs annotate hello.txt 2>annotate.err`;
  16.  
  17. print ">>> Output of \"cvs annotate\":\n";
  18. print $output;
  19.  
  20. print ">>> Contents of annotate.err:\n";
  21. system qw(cat annotate.err);
  22.  
  23. print ">>> done.\n";
  24. $ ./annotate.pl
  25. >>> Output of "cvs annotate":
  26. 1.2 (kst 13-Mar-15): # $Revision: 1.1 $
  27. 1.1 (kst 13-Mar-15):
  28. 1.1 (kst 13-Mar-15): Hello ...
  29. 1.2 (kst 13-Mar-15): ... and good-bye
  30. >>> Contents of annotate.err:
  31.  
  32. Annotations for hello.txt
  33. ***************
  34. >>> done.
  35. $
Add Comment
Please, Sign In to add comment