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

Speaking of idioms, I never use one for this type problem, but here is a more idiomatic solution (if u ask me)

#!/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]

Happy Coding!

______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;"

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

Replies are listed 'Best First'.
Re: (crazyinsomniac) Re^2: Always Follow Up on Warnings by redsquirrel (Hermit) on Feb 08, 2002 at 05:33 UTC
The problem with `$_ \|\|= ''` is that it turns `0`'s into `''`. `defined` is much less cool, but definitely more effective. --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
I can't wait until we have `$_ //= ''` In Perl 6, this would probably be written: `($x, $y, $z) ^//= '';` [download] Now that is really sweet. ___ Simon Flack ($code or die) `$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$, =~y'_"' ';eval"die";print $_,lc substr$@,0,3;`	[reply] [d/l] [select]