Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Re: getting 0 to print

by rbc (Curate)
on Jan 13, 2003 at 20:51 UTC ( #226593=note: print w/ replies, xml ) Need Help??


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

Thank you wise monk yet if I modify my sub trim to ...

55 sub trim { 56 my @out = @_; 57 if ( !defined(@_)) {return "";} 58 if ( $#out == -1 ) {return "";} 59 for(@out) { 60 #next if !($_); 61 #if (!($_)) { $_ = ""; } 62 s/^\s+//; 63 s/\s+$//; 64 s/\|//g; 65 s/\n//g; 66 s/\cM//g; 67 s/\r//g; 68 } 69 return wantarray ? @out : $out[0]; 70}
... I get these messages ...
Use of uninitialized value in join or string at ./b.pl line 49
Use of uninitialized value in join or string at ./b.pl line 62
Use of uninitialized value in join or string at ./b.pl line 63
... etc 
I would like to not have any extraneous output.
Any suggestion?


Comment on Re: Re: getting 0 to print
Download Code
Re: Re: Re: getting 0 to print
by pfaut (Priest) on Jan 13, 2003 at 21:40 UTC

    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';
      Ah yes!
      if (!defined $_) { $_ = ""; }
      is most wise.
      Thank you O wise monk.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://226593]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2014-12-28 07:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (179 votes), past polls