Help for this page
while (<>) { last if /pattern/; ... }
C:\>perl -MO=Deparse -e"while (<>) {}" while (defined($_ = readline ARGV)) { ... -e syntax OK C:\>
www.com | www.net | www.org
No recent polls found