File copying : File Copy « File « Perl

1. Perl
2. File
3. File Copy

File copying

    


#!/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;

   
    
    
    
  

Related examples in the same category