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 (Novice) 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

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

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom