Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^3: Perl Extract specific string

by CountZero (Bishop)
on Feb 09, 2013 at 16:54 UTC ( #1017975=note: print w/ replies, xml ) Need Help??

in reply to Re^2: Perl Extract specific string
in thread Perl Extract specific string

Perl is such a powerful language, you only need a few lines of code:

use Modern::Perl; while (<DATA>) { my ( $date, $msisdn, $ud, $trxtime, $response ) = map { /:([^:]+)/ ? $1 : $_ } ( split /[\s+,]/ )[ 0, 6, 7, 8, 11 +]; say join ',', $date, $msisdn, $ud, substr( $trxtime, 0, 8 ), $resp +onse; } __DATA__ 06.02.2013 12.24.01:909 5807225321 INFO {EXT:httpadapter:17:14:}[0]RUL +EZ [HTTPADAPTER],msisdn:637584930382,ud:Pan,trxtime:20130206122401 Re +sponseDeltaTime:31 ms ResponseCode:200 ResponseBody:OK



My blog: Imperial Deltronics

Comment on Re^3: Perl Extract specific string
Select or Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (15)
As of 2014-07-10 17:03 GMT
Find Nodes?
    Voting Booth?

    When choosing user names for websites, I prefer to use:

    Results (213 votes), past polls