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

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

by jakeease (Friar)
on Apr 29, 2013 at 07:36 UTC ( #1031175=note: print w/ replies, xml ) Need Help??


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

#!/usr/bin/perl use strict; use warnings; <DATA>; # Discard header while (<DATA>) { chomp; my ($reqid, $dest, $from, $datetime, $pages, $rcv) = split(/\s\s+/ +, $_); my ($date, $time) = split(/\s+/, $datetime); print join('|', ($reqid, $dest, $from, $date, $time, $pages, $rcv) +), "\n"; } __DATA__ REQID DEST FROM DATE TIME nPa +ges 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

i. e., split on two+ spaces instead of one+; then fix date and time. Output:

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?
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2014-08-31 03:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls