The code generates the following error message:
Missing $ on loop variable at line 17
which is the line that starts with
foreach my $line (split /\n/) {
Thanks
AL
"Jonathan E. Paton" <[EMAIL PROTECTED]> 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]
>
>
__________________________________________________________________
Your favorite stores, helpful shopping tools and great gift ideas. Experience the
convenience of buying online with Shop@Netscape! http://shopnow.netscape.com/
Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
