Re^5: rename files

[davorg]

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 $!;
}