merge.pl 385 B

12345678910111213141516171819
  1. #!/usr/bin/perl
  2. $out=<>;
  3. $out=~s/\r//g;
  4. chomp $out;
  5. -e $out and die "file already exists, cowardly exiting";
  6. open OUT,">",$out or die "failed to write file";
  7. $param=<>;
  8. $param=~s/\r//g;
  9. chomp $param;
  10. die "extended merges aren't supported" if $param!='';
  11. while (<>) {
  12. chomp;
  13. s/\r//g;
  14. open FILE,"<",$_ or die "failed to open file";
  15. print OUT while <FILE>;
  16. close FILE;
  17. }
  18. close OUT;