in reply to Re^3: breaking up a file by delimiter
in thread breaking up a file by delimiter

without statement modifiers :) 

while (<$IN> {
    /^\s*$/ and next;   # remove empty lines
    /^\s*#/ and next;   # remove comments
    /ORA/i and next;    # remove lines with Oracle warnings and errors
    some_condition($_) or next;
    /File processed/ and last;
    # ... now do the actual processing of useful lines
}

[download]

I actually prefer this form. It's in the same spirit as open or die

( TMTOWTDI forever :)

Replies are listed 'Best First'.
Re^5: breaking up a file by delimiter
by Laurent_R (Canon) on Oct 08, 2018 at 17:39 UTC
    Yes, you're right, I know this can be done and I am sometimes using this form. TIMTOWTDI. I tend however to prefer statement modifiers because I believe they are slightly clearer to many people, especially beginners.
[reply]

In Section Seekers of Perl Wisdom