in reply to How to split
Please help me in this... Say my code is as follows:...
FWIW, when we talk about "code" we usually mean "source code" as in "perl program", not about the data
Here is a start, run with it
#!/usr/bin/perl -- use strict; use warnings; my $blah = ' VAR DS 0D DC AL1(045),AL2(286),AL2(117),AL2(290)'; my ( $top, $bottom ) = split /[\r\n]+/, $blah; print "$top\n"; my( $prefix, @biscuits ) = grep length, split /[\s,]+/, $bottom; for my $tack ( @biscuits ){ print "$prefix $tack\n"; } __END__ VAR DS 0D DC AL1(045) DC AL2(286) DC AL2(117) DC AL2(290)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: How to split
by Anonymous Monk on Sep 13, 2012 at 07:58 UTC | |
by Anonymous Monk on Sep 13, 2012 at 08:01 UTC | |
by Anonymous Monk on Sep 13, 2012 at 08:02 UTC | |
by Anonymous Monk on Sep 13, 2012 at 08:03 UTC | |
by Anonymous Monk on Sep 13, 2012 at 08:05 UTC |
In Section
Seekers of Perl Wisdom