Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: How to split line with varying number of tokens?

by jwkrahn (Monsignor)
on Apr 28, 2013 at 06:04 UTC ( #1031034=note: print w/ replies, xml ) Need Help??


in reply to How to split line with varying number of tokens?

$ echo "REQID DEST FROM DATE TIM +E nPages RCV 138454 mail_room Marco's Pizza 12/26 21:52 1 rcv 138446 custsvc 973 618 0577 12/26 18:44 1 rcv 138445 county2 spam 12/26 18:41 3 rcv 138444 custsvc spam 12/26 18:30 1 rcv 138439 county2 7182737253 12/26 17:54 2 rcv 138438 county2 Acme Products, Inc. 12/26 17:52 1 rcv " | +perl -e' while ( <> ) { my $line = reverse; my ( $rcv, $pages, $time, $date, $rest ) = map scalar reverse, spl +it " ", $line, 5; my ( $reqid, $dest, $from ) = split " ", $rest, 3; print join( " ", map qq/"$_"/, $reqid, $dest, $from, $date, $tim +e, $pages, $rcv ), "\n"; } ' "REQID" "DEST" "FROM" "DATE" "TIME" "nPages" "RCV" "138454" "mail_room" "Marco's Pizza" "12/26" "21:52" "1" " +rcv" "138446" "custsvc" "973 618 0577" "12/26" "18:44" "1" "rcv +" "138445" "county2" "spam" "12/26" "18:41" "3" "rcv" "138444" "custsvc" "spam" "12/26" "18:30" "1" "rcv" "138439" "county2" "7182737253" "12/26" "17:54" "2" "rcv" + "138438" "county2" "Acme Products, Inc." "12/26" "17:52" "1" + "rcv"


Comment on Re: How to split line with varying number of tokens?
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2015-07-04 09:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (59 votes), past polls