[MacPerl] print while (chop($_=<F>));

[Xah Lee <xah@best.com>]

Suppose I have a file with consecutive returns, and in my script I have this line

print $_ while (chop($_=<F>));

I'm expecting the printing of the file to terminate when the consecutive returns are read, but apparently it's not the case. I couldn't figure out why not. Why not? (^_^)

 Xah, xah@best.com
 http://www.best.com/~xah/Wallpaper_dir/c0_WallPaper.html
 "Perl side effects: make one assignment, the next thing you know your house is deleted."




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch