Re^3: no uninitialized warnings

Mh... something like this?

@x=(1..3) ;
undef $x[1] ;
$_ = defined $_? $_: '[__UNDEF__]' for @x ;
print "@x" ;
[download]

Ciao!
--bronto

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz

Comment on Re^3: no uninitialized warnings Download Code

Replies are listed 'Best First'.
Re^4: no uninitialized warnings by ccn (Vicar) on Aug 25, 2004 at 16:46 UTC
or like this: `$_ = '[undef]' for grep !defined, $var1, $var2, $var3; print "$var1, $var2, $var3";` [download] Update: I forgot that changing the values can affect program logic(as Aristotle mentioned). So, the best approach (imho) is just print with warnings or `use Data::Dumper; print Data::Dumper->Dump([$var1, $var2, $var3], [qw(var1 var2 var3)]);` [download]	[reply] [d/l] [select]
Re^5: no uninitialized warnings by Aristotle (Chancellor) on Aug 29, 2004 at 19:25 UTC
Or non-destructively and unambiguously: `print join " ", map { defined() ? "'\Q$_\E'" : 'undef' } $var1, $var2, + $var3;` [download] Makeshifts last the longest.	[reply] [d/l]