Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: copy script

by kiruthika.bkite (Scribe)
on Mar 25, 2010 at 11:29 UTC ( #830832=note: print w/replies, xml ) Need Help??

in reply to copy script

use File::Find; my $command="cp"; my $target="/home/kiruthika/Technical/NEW/"; #Here mention your direct +ory path to where you need to copy the files. my $str; find(\&wanted,(".","..",)); sub wanted() { if(/.*\.txt/)#find the .txt files and copy those into another loca +tion. { $str=$command." ".$_." " .$target; system("$str"); $str=" "; } }

find() function will call the wanted function for each files in the current directory and as well in the parent directory of the current directory.

In the wanted function I have checked whether the file is .txt file or not.
If it is .txt file then I have copied that file into the target directory.

In find() function ,in the second argument you mention the directories to be searched.

Replies are listed 'Best First'.
Re^2: copy script
by marto (Bishop) on Mar 25, 2010 at 11:56 UTC

    So you are assuming the cp command is available, calling it via system, you're also assuming that the copy has worked and not bothered to check for errors?. Why not use File::Copy (it's core and portable) and actually check that no error was returned?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://830832]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2017-11-23 18:47 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (337 votes). Check out past polls.