RE: (tye)Re: Structured Printing of Hash of Arrays

sub def { 
    return defined $_[0] ? $_[0] : def($_[1],""); 
}
[download]

Another way might be:

sub def {
  (grep defined, @_, "")[0];
}
[download]

Comment on RE: (tye)Re: Structured Printing of Hash of Arrays Select or Download Code

Replies are listed 'Best First'.
RE: RE: (tye)Re: Structured Printing of Hash of Arrays by merlyn (Sage) on Oct 12, 2000 at 01:58 UTC
And even smarter if the list is long (although I'm replacing something that had only two items in the list): `sub def { defined $_ and return $_ for @_; ""; }` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]