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

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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2018-06-22 00:14 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (120 votes). Check out past polls.