Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^3: A refactoring trap

by redlemon (Hermit)
on Aug 17, 2005 at 08:14 UTC ( #484338=note: print w/replies, xml ) Need Help??

in reply to Re^2: A refactoring trap
in thread A refactoring trap

Hmmm, you're right. It doesn't break.

The reason is that blank lines are not truely blank, of course. You're saved by the fact that a blank line still contains the "\n".


Replies are listed 'Best First'.
Re^4: A refactoring trap
by lidden (Curate) on Aug 17, 2005 at 09:53 UTC
    No it still works with chomp:
    while(chomp (my $line = <DATA>)){
    At least with newer perl versions. Tried with perl5.8.6.
      No it still works with chomp

      To understand why this works, take a look at the return value for chomp. Hint: it's not the string with newlines missing.

      The problem with while (my $line = <DATA>) {} is real, it's just obscure. As hinted, it only happens when you get a line with a false value and no newline. Sometimes this happens at the end of a file. Sometimes it happens for other reasons. It usually doesn't cause any actual problems, but certainly is something to look out for.

        The problem with while (my $line = <DATA>) {} is real, it's just obscure

        ARRRRGH! :-)

        As has already been pointed out this hasn't been a problem for some time. Perl automatically adds the defined for you, as you can easily see by running:

        a% perl -MO=Deparse -e 'while (my $line = <DATA>) {}' while (defined(my $line = <DATA>)) { (); } __DATA__ -e syntax OK

        This hasn't been a problem for Perl for quite some time, and I wish people wouldn't keep saying it is ;-)

      With this method you'll never be able to loop through the last line.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://484338]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2020-09-27 19:47 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (142 votes). Check out past polls.