Mercurial > repos > mcharles > rapsosnp

comparison rapsodyn/MergeFile2x.pl @ 1:7f36bd129321 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author mcharles
date Wed, 10 Sep 2014 10:24:01 -0400
parents
children
comparison
equal deleted inserted replaced
0:442a7c88b886 1:7f36bd129321
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4
5 my $in1 = $ARGV[0];
6 my $in2 = $ARGV[1];
7
8 open(IN1, $in1) or die ("Can't open $in1\n");
9 while (my $line = <IN1>){
10 print $line;
11 }
12 close (IN1);
13
14 open(IN2, $in2) or die ("Can't open $in2\n");
15 while (my $line = <IN2>){
16 print $line;
17 }
18 close (IN2);
19
20
21