Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: print an array for paragraphs

by lestrrat (Deacon)
on Aug 20, 2001 at 23:52 UTC ( [id://106342]=note: print w/replies, xml ) Need Help??


in reply to print an array for paragraphs

split removes the separator from the resulting tokens:

my $str = "1\n2\n3\n4"; my @tokens = split( /\n/, $str ); # now tokens contain # ( "1", "2", "3", "4" ), NOT ( "1\n", "2\n", "3\n", "4\n" )

And no, $\ is not the output record separator, the output record separator is $,

   Update Above was not true, $\ is output record separator.
   $, was output field separator

But then again, with your code I don't understand the reasoning to use split. you could just

my $para = ..... # whatever. # so $para is ( possibly ) a multi-line parameter my $first_line_break = index( $para, "\n" ); if( $first_line_break > 0 ) { $lastHeading = substr( $para, 0, $first_line_break ); next; } if( $para =~ /mSOriginating/ && $para =~ /$msisdn/ ) { print $para; }

This would do, no?

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (None)
    As of 2024-04-25 01:51 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found