#!/usr/bin/perl
$i = 10;
while ( $i < 15) {
print "still running while...$i\n";
$i++;
}
until ($i < 10) {
print "still running until...$i\n";
$i--;
}
# ./until.pl
still running while...10
still running while...11
still running while...12
still running while...13
still running while...14
still running until...15
still running until...14
still running until...13
still running until...12
still running until...11
still running until...10
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |