Re: Always Follow Up on Warnings

I've been known to rant about uninitialized warnings before... Here is one nice idiom for "cleaning" a series of undefined values.

$_ = '' for grep !defined, ($x,$y,$z);
[download]

Try the following code with and w/o this clensing line:

#!/usr/bin/perl -wT
use strict;

my ($x,$y,$z) = (undef,'hello',undef);

# undef "clensing" idiom
$_ = '' for grep !defined, ($x,$y,$z);

print "x='$x' y='$y' z='$z'\n";
[download]

-Blake

Comment on Re: Always Follow Up on Warnings Select or Download Code

Replies are listed 'Best First'.

(crazyinsomniac) Re^2: Always Follow Up on Warnings
by crazyinsomniac (Prior) on Feb 08, 2002 at 04:00 UTC

#!/usr/bin/perl -wT
use strict;

my ($x,$y,$z) = (undef,'hello',undef);

$_ ||='' for $x,$y,$z;

print "x='$x' y='$y' z='$z'\n";

## OR EVEN (most idiomatic imho)

$_||='' for my($a,$b,$c)=(undef,9,undef);

print "a='$a' b='$b' c='$c'\n";
[download]

______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]
[d/l]

Re: (crazyinsomniac) Re^2: Always Follow Up on Warnings

by redsquirrel (Hermit) on Feb 08, 2002 at 05:33 UTC

$_ ||= ''

0

''

defined

--Dave

[reply]
[d/l]
[select]

Re: Re: (crazyinsomniac) Re^2: Always Follow Up on Warnings

by $code or die (Deacon) on Feb 08, 2002 at 11:20 UTC