Mercurial > repos > mcharles > rapsosnp
view rapsodyn/MergeMultiFile.pl @ 9:0e7c6fe60646 draft
Uploaded
author | mcharles |
---|---|
date | Mon, 20 Oct 2014 05:58:31 -0400 |
parents | 3f7b0788a1c4 |
children |
line wrap: on
line source
#!/usr/bin/perl #V1.0.0 use strict; use warnings; my @files = split(/,/,$ARGV[0]); for (my $i=0;$i<=$#files;$i++){ open(IN, $files[$i]) or die ("Can't open ",$files[$i],"\n"); while (my $line = <IN>){ print $line; } close (IN); }