in reply to Continuing While Loop One Iteration After EOF

Hmmmm...

Two possible ways I could think of...

my $i = 1;
while ((my $line = <INHANDLE>) || $i--) {}

[download]

or, just what has been said here

while (my $line = <INHANDLE>) {
} continue {
    dosomething() if eof(INHANDLE);
}

[download]

I would prefer the first, as the continue solution wouldn't enable the reuse of the while block.

daniel

Replies are listed 'Best First'.
Re^2: Continuing While Loop One Iteration After EOF
by ikegami (Patriarch) on Dec 21, 2005 at 17:48 UTC 
    while (my $line = <INHANDLE>) {
   ...
} continue {
   ... if eof(INHANDLE);
}

    [download]

    is no different than 

    while (my $line = <INHANDLE>) {
   ...
}

...

    [download]

    (barring reading errors), so it's not very useful. The code will be duplicated, which seems to be what the OP wants to avoid.

[reply]
[d/l]
[select]

      Hmmmm... sure... Actually I spent 2 minutes to understand your post, before I could see the "..." after the while block. Indeed, I keep with the $i-- solution...

      daniel
[reply]
        Well, in reality, it will be 
        while (<INHANDLE>) {
   dfkahsfkasdkfjhasdklfa;
   dsfjasd jf;
   lsdfj asdljf;
} continue {
   if (eof(INHANDLE)) {
      dfkahsfkasdkfjhasdklfa;
      dsfjasd jf;
      lsdfj asdljf;
   }
}

        [download]

        vs 

        while (<INHANDLE>) {
   dfkahsfkasdkfjhasdklfa;
   dsfjasd jf;
   lsdfj asdljf;
}

dfkahsfkasdkfjhasdklfa;
dsfjasd jf;
lsdfj asdljf;

        [download]

        But that's completely misses what I meant to point out. It sounds like the OP wanted to avoid code duplication (or else, he'd would simply have used the second snippet), but your code doesn't do that.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom