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]

Reply via email to