Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Re: Re: getting 0 to print

by pfaut (Priest)
on Jan 13, 2003 at 21:40 UTC ( #226609=note: print w/replies, xml ) Need Help??

in reply to Re: Re: getting 0 to print
in thread getting 0 to print

You appear to be passing undefined values to your trim routine. If you want to substitute an empty string for undefined values, test with defined. if (!$_) is true for 0 and undefined values and your code was substituting an empty string for either. I think you only wanted the substitution for undefined values.

59 for(@out) { 60 #next if !($_); 61 if (!defined $_) { $_ = ""; } 62 s/^\s+//; 63 s/\s+$//; 64 s/\|//g; 65 s/\n//g; 66 s/\cM//g; 67 s/\r//g; 68 }
--- print map { my ($m)=1<<hex($_)&11?' ':''; $m.=substr('AHJPacehklnorstu',hex($_),1) } split //,'2fde0abe76c36c914586c';

Replies are listed 'Best First'.
Re: Re: Re: Re: getting 0 to print
by rbc (Curate) on Jan 13, 2003 at 21:53 UTC
    Ah yes!
    if (!defined $_) { $_ = ""; }
    is most wise.
    Thank you O wise monk.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://226609]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2018-07-23 06:24 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (459 votes). Check out past polls.