Use of uninitialized value - #114597 (Allgemeines zu Perl)

MatthiasW

2008-09-13 16:09

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

@Struppi, solch eine Warnung kann ich bei mir nicht erzeugen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings 'all';

my $a = undef;

print $a || 0 eq 'name' ? 1 : 0;

Gibt ohne Warnung 0 aus.

Allerdings sieht es bei einem Zahlenvergleich auf einen String wieder anders aus, da bekommt man die Meldung:

Code: (dl )

Argument ... isn't numeric in numeric eq (==) at ...

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'