> I want to be able to split data by using END delimiter but this didn't work! Here
>what I tried:
>
> # to split lines by END delimiter
> while ($line =<INPUT>) {
> @mylineBlock = split/END\n/, $line;
> }
Yay, your file format is $\ compatible, which is the input record separator.
local $/ = "END\n";
while (<INPUT>) {
#Do something with record. e.g.
foreach my $line (split /\n/) {
foreach my $field (split /,/) {
# Do something with data.
}
}
}
There is alternatives to doing this, depending on what exactly you require from this.
The
disadvantage of this approach is the blocksize... if you have TONS of data between the
END tokens
it will take an equal amount of memory to store it. Rarely is that a problem in
non-production
scripts.
Jonathan Paton
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
