18 lines
371 B
Perl
18 lines
371 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $source = shift @ARGV;
|
||
|
|
my $destination = shift @ARGV;
|
||
|
|
|
||
|
|
open(IN, '<', $source) or die "Can't read source file $source: $!\n";
|
||
|
|
open(OUT, '>', $destination) or die "Can't write on to file $destination: $!\n";
|
||
|
|
|
||
|
|
print "Copying $source to $destination\n";
|
||
|
|
|
||
|
|
while (<IN>) {
|
||
|
|
print OUT $_;
|
||
|
|
}
|
||
|
|
|
||
|
|
close IN;
|
||
|
|
close OUT;
|