The script works fine without next if $line =~ /^-/; How it helps.
On Mon, Jun 30, 2014 at 9:06 PM, Jim Gibson <[email protected]> wrote: > > On Jun 30, 2014, at 2:44 AM, Uday Vernekar <[email protected]> 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: [email protected] > For additional commands, e-mail: [email protected] > 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. **********************************************************
