1N/A# $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $ 1N/A@a =
(1,2,3,4,5,6,7,8,9,10,11,12);
1N/Awhile ($_ = shift(@a)) { 1N/A if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; } 1N/Aif ($z eq '5E0') {
print "ok 6\n";}
else {
print "not ok 6\n";}
1N/Aif ($y eq '12E0123E0') {
print "ok 7\n";}
else {
print "not ok 7\n";}
1N/A@a =
('a','b','c','d','e','f','g');
1N/Aif ($x eq 3) {print "ok 8\n";} else {
print "not ok 8 $x:$foo:\n";}
1N/Aif (($x...$x) eq "1") {
print "ok 9\n";}
else {
print "not ok 9\n";}
1N/A # coredump reported in bug 20001018.008 1N/Aif (!defined $.) { print "ok 11\n" } else { print "not ok 11 # $.\n" } 1N/Aif (0..2) { print "ok 12\n" } else { print "not ok 12\n" } 1N/Aif (15..0) { print "ok 15\n" } else { print "not ok 15\n" }