Hello,
In the Script below the line: last if ($num >= 35)
is giving me this error: Use of uninitialized value in int
How do I avoid this error?
my @files contains: Gambia001.tiff through Gambia100.tiff
#!/usr/bin/perl -w
my @files =<*>;
$tmp= 1;
for (@files){
my $old = $_;
$_ =~ /(\d+)/;
$num = int($1);
#$_ =~s/Gambia_Pa_Bobo_kuliyo_\d+/Gambia_Pa_Bobo_kuliyo_$tmp/i;
print "$num\n";
#$tmp++;
last if ($num >= 35);
# rename($old,$_);
}
Thx,
Dave GIlden
(kora musician / audiophile / webmaster @ www.coraconnection.com / Ft. Worth,
TX, USA)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
