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

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.

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

Replies are listed 'Best First'.

Re^3: Can anyone pls tell me how to cleanup this in Perl.
by Athanasius (Archbishop) on Mar 19, 2013 at 06:14 UTC

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> })
[download]

with:

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

(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,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

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

by Anonymous Monk on Mar 19, 2013 at 06:41 UTC

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

[reply]