Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Problem while Data Extraction

by Anonymous Monk
on Dec 04, 2012 at 03:24 UTC ( #1006983=note: print w/replies, xml ) Need Help??

in reply to Problem while Data Extraction

The data between "|" need to be saved as it is without the spaces and data outside pipes need to be converted to ASCII.

Can you explain this better, like give an example?

Replies are listed 'Best First'.
Re^2: Problem while Data Extraction
by jpvinny28 (Initiate) on Dec 04, 2012 at 03:30 UTC

    Input =|14 0D 2A|abc

    Output =140D2A616263

    The values within two pipes is hexadecimal data.. so I need to keep the values as it is in output and value outside the pipe I need to convert to ascii equivalent (abc=61,62,63) in the above example

      my @F = split(/\|/, $_, 0); foreach $_ (@F) { if (/^[\da-z]{2}(?:\s[\da-z]{2})*$/i) { s/\s+//g; print $_; } else { print unpack('H*', $_), $/; } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006983]
Discipulus Eatalian is a sponge language..

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2017-11-21 10:38 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (297 votes). Check out past polls.