Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ cvs annotate hello.txt
- Annotations for hello.txt
- ***************
- 1.2 (kst 13-Mar-15): # $Revision: 1.1 $
- 1.1 (kst 13-Mar-15):
- 1.1 (kst 13-Mar-15): Hello ...
- 1.2 (kst 13-Mar-15): ... and good-bye
- $ cat annotate.pl
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $output = `cvs annotate hello.txt 2>annotate.err`;
- print ">>> Output of \"cvs annotate\":\n";
- print $output;
- print ">>> Contents of annotate.err:\n";
- system qw(cat annotate.err);
- print ">>> done.\n";
- $ ./annotate.pl
- >>> Output of "cvs annotate":
- 1.2 (kst 13-Mar-15): # $Revision: 1.1 $
- 1.1 (kst 13-Mar-15):
- 1.1 (kst 13-Mar-15): Hello ...
- 1.2 (kst 13-Mar-15): ... and good-bye
- >>> Contents of annotate.err:
- Annotations for hello.txt
- ***************
- >>> done.
- $
Add Comment
Please, Sign In to add comment