in reply to Re^4: rename files
in thread rename files
Then it looks like you're doing things in the wrong order. It should be something like this:
my $dir = '/temp_gif'; opendir (DH, $dir) or die "unable $!"; foreach (readdir DH) { my ($number) = split (/\./); print "$number\n"; $number += 338; rename ("$dir/$_", "$dir/$number.GIF") or die $!; }
--
<http://dave.org.uk>
<http://dave.org.uk>
"The first rule of Perl club is you do not talk about
Perl club."
-- Chip Salzenberg
In Section
Seekers of Perl Wisdom