Copy files : File « File « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » 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/;

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.