small correction -
foreach my $line (split /\n/) {
foreach my $field (split /,/, $line){
yes?
On Saturday, March 30, 2002, at 02:15 PM, Jonathan E. Paton wrote:
>> 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]
>
