The script works fine without
next if $line =~ /^-/;
How it helps.
On Mon, Jun 30, 2014 at 9:06 PM, Jim Gibson <jimsgib...@gmail.com> wrote:
>
> On Jun 30, 2014, at 2:44 AM, Uday Vernekar <vernekaru...@gmail.com> wrote:
>
> > please Explain
> >
> > next if $line =~ /^-/;
>
> “Skip this input line if it starts with a dash ‘-‘ character.”
>
> > my @f = split('\s*\|\s*',$line);
>
> "Break the input line into files separated by the vertical pipe character
> ‘|’ and any whitespace before or after the pipe character, i.e., don’t
> include the whitespace in the extracted fields."
>
> > next unless scalar @f == 8;
>
> “Skip this input line unless it consists of exactly 8 fields.”
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
*********************************************************
Don't ask them WHY they hurt you,
because all they'll tell you is lies and excuses.
Just know they were wrong, and try to move on.
**********************************************************
