Re^2: Can anyone pls tell me how to cleanup this in Perl.

[Anonymous Monk]

Thanks Athanasius. That was cool. I am not that good with perl. my question may be foolish but pls can you tell me, how the script should be modified if the data is already in a string. means if '$data' contains the whole data and kindly tell me how I should modify this script.

[Athanasius]

If the data has already been read into the variable $data as a single string, then just replace the line:

if (my ($field) = grep { /^!!./ } split /\|/, do { local $/; <DATA> })

with:

if (my ($field) = grep { /^!!./ } split /\|/, $data)

(The expression do { local $/; <DATA> } slurps the whole of the data in from the __DATA__ block at the foot of the script.)

Hope that helps,

[Anonymous Monk]

Wow, Cool. That works. Thanks a lot Mr. Athanasius :)