Comments on: Perl move files script http://www.bradrice.com/wposx/archives/59 This site is about scripting with a particular emphasis on OS X. Other things OS X, too. Sun, 20 Jul 2008 22:11:12 +0000 http://wordpress.org/?v=2.5.1 By: bradrice http://www.bradrice.com/wposx/archives/59#comment-287 bradrice Sun, 28 May 2006 22:45:31 +0000 http://www.bradrice.com/wposx/?p=59#comment-287 That take it down a level. I use an array, because often times I need the array for additional processing, but you are right, that would work. If you want to move the file just replace copy with move. Both subs come in with the File::Copy package. I usually find myself both making a copy and a move in the same routine.<!-- X-spaminator-strike: whitelist, -3 --><!-- X-spaminator-passed: IP check --><!-- X-spaminator-passed: email check --><!-- X-spaminator-passed: author url --><!-- X-spaminator-passed: comment body --> That take it down a level. I use an array, because often times I need the array for additional processing, but you are right, that would work. If you want to move the file just replace copy with move. Both subs come in with the File::Copy package. I usually find myself both making a copy and a move in the same routine.

]]> By: MI http://www.bradrice.com/wposx/archives/59#comment-286 MI Sun, 28 May 2006 14:15:05 +0000 http://www.bradrice.com/wposx/?p=59#comment-286 Came across your script while searching how to move a file. However, you don't seem to be moving them at all. You copy them. And, BTW, I don't see the point of the @movelist array. Why not something like: #!/usr/bin/perl use File::Copy; my $movefile; my @dirfile; my $srcpath = '/Volumes/Users/Admin/Sites/clientfiles/pdf/'; my $movepath = '/Volumes/10.1.5.235/pdfs/'; open (MOVELIST, ‘/Users/bradrice/bin/keypdflist.txt’); while (<MOVELIST>) { chomp $_; $new = $_ . ".pdf" unless /\.pdf$/i; print “$srcpath$movefile”.” — “. “$movepath$new”.”\n”; copy(”$srcpath$movefile”, “$new”); } (But that is still a copy, not a move) Came across your script while searching how to move a file. However, you don’t seem to be moving them at all. You copy them.

And, BTW, I don’t see the point of the @movelist array. Why not something like:

#!/usr/bin/perl
use File::Copy;

my $movefile;
my @dirfile;

my $srcpath = ‘/Volumes/Users/Admin/Sites/clientfiles/pdf/’;
my $movepath = ‘/Volumes/10.1.5.235/pdfs/’;

open (MOVELIST, ‘/Users/bradrice/bin/keypdflist.txt’);
while (<MOVELIST>) {
chomp $_;
$new = $_ . “.pdf” unless /\.pdf$/i;
print “$srcpath$movefile”.” — “. “$movepath$new”.”\n”;
copy(”$srcpath$movefile”, “$new”);
}

(But that is still a copy, not a move)

]]> By: Andrei Popov http://www.bradrice.com/wposx/archives/59#comment-113 Andrei Popov Fri, 30 Dec 2005 07:29:35 +0000 http://www.bradrice.com/wposx/?p=59#comment-113 #! /bin/sh ext=.pdf movefile=/Users/bradrice/bin/keypdflist.txt srcpath = /Volumes/Users/Admin/Sites/clientfiles/pdf/ movepath = /Volumes/10.1.5.235/pdfs/ for i in `cat $movefile` do cp $srcpath/$i $movepath/$i$ext echo "$srcpath/$i -> $movepath/$i$ext" done #! /bin/sh
ext=.pdf
movefile=/Users/bradrice/bin/keypdflist.txt
srcpath = /Volumes/Users/Admin/Sites/clientfiles/pdf/
movepath = /Volumes/10.1.5.235/pdfs/
for i in `cat $movefile`
do
cp $srcpath/$i $movepath/$i$ext
echo “$srcpath/$i -> $movepath/$i$ext”
done

]]>