Copy files : File « File « Perl






  1. Perl
  2. File
  3. File

Copy files

    

#!/usr/bin/perl

use warnings;
use strict;

use File::Copy;

print "Filename: ";
my $infile = <>;
chomp $infile;
print "New name: ";
my $outfile = <>;
chomp $outfile;

unless (copy $infile, $outfile) {
    print "Failed to copy '$infile' to '$outfile': $! \n";
}








Related examples in the same category

1.Copying a file using the File::Copy
2.Create a directory tree
3.Determine the contents of a directory tree?
4.File finder and callback
5.File size with FIELDS
6.Find file
7.Find out if there's a copy of the dir program on this computer
8.File find closure
9.Using a Callback
10.Extracting file names from paths
11.$File::Find::prune = 1 if /dir1/;