Mercurial > hg > Members > anatofuz > nqp-cbc-tools

comparison logs2.pl @ 5:eda9948f5e5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add usage for perl script
author anatofuz
date Mon, 05 Nov 2018 16:24:45 +0900
parents 665fb2069aec
children b9a157e11952
comparison
equal deleted inserted replaced
4:8911efdfcc50 5:eda9948f5e5a
1 use strict; 1 use strict;
2 use warnings; 2 use warnings;
3 3
4 my $originlog = shift; 4 my $originlog = shift or die "use originlog cbclog";
5 my $cbclog = shift; 5 my $cbclog = shift or die "use originlog cbclog";
6 6
7 open my $ofh, '<', $originlog; 7 open my $ofh, '<', $originlog;
8 open my $cfh, '<', $cbclog; 8 open my $cfh, '<', $cbclog;
9
10 print "Originlog:CbClog\n";
9 11
10 while (1){ 12 while (1){
11 my $orig_line; 13 my $orig_line;
12 do { 14 do {
13 $orig_line = <$ofh>; 15 $orig_line = <$ofh>;