Mercurial > hg > Members > anatofuz > nqp-cbc-tools
diff logs2.pl @ 5:eda9948f5e5a
add usage for perl script
author | anatofuz |
---|---|
date | Mon, 05 Nov 2018 16:24:45 +0900 |
parents | 665fb2069aec |
children | b9a157e11952 |
line wrap: on
line diff
--- a/logs2.pl Sun Nov 04 23:50:55 2018 +0900 +++ b/logs2.pl Mon Nov 05 16:24:45 2018 +0900 @@ -1,12 +1,14 @@ use strict; use warnings; -my $originlog = shift; -my $cbclog = shift; +my $originlog = shift or die "use originlog cbclog"; +my $cbclog = shift or die "use originlog cbclog"; open my $ofh, '<', $originlog; open my $cfh, '<', $cbclog; +print "Originlog:CbClog\n"; + while (1){ my $orig_line; do {