Re: Use of uninitialized value Error
- From: a.r.ferreira@xxxxxxxxx (Adriano Ferreira)
- Date: Fri, 30 Dec 2005 18:22:16 -0200
On 12/30/05, David Gilden <dowda@xxxxxxxxxxxxxxxxxx> wrote:
> In the Script below the line: last if ($num >= 35)
> is giving me this error: Use of uninitialized value in int
That's not an error, but a warning. You will find that execution goes
after this.
> How do I avoid this error?
@files probably contain a name which does not match /(\d+)/. In this
case, $1 turns to be undef, and so happens with $num (because
int(undef) -> undef) up to the numeric comparison which (under -w)
emits the warning.
To avoid the warning, maybe you don't need to process such filenames
...
$_ =~ /(\d+)/;
next unless $1; # skip to the next item
$num = int($1);
...
or you consider $num as 0 in this case, by replacing C<$num = int($1)>
with C<$num = int($1 || 0)
>
>
> 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,$_);
> }
.
- Prev by Date: Re: Use of uninitialized value Error
- Next by Date: please help find logic error in home-brewed brute force anagram solver/creator script
- Previous by thread: Re: Use of uninitialized value Error
- Next by thread: please help find logic error in home-brewed brute force anagram solver/creator script
- Index(es):
Relevant Pages
|
