|
|
|
| No such thing as a small change | |
| PerlMonks |
Roger_B's scratchpadby Roger_B (Scribe) |
| on Sep 27, 2005 at 20:20 UTC ( [id://495540]=scratchpad: print w/replies, xml ) | Need Help?? |
perl -MO=Deparse -e "for (;<>;){print}"
while (defined($_ = <ARGV>)) {
print $_;
}
-e syntax OK
perl -MO=Deparse -e "for (;$i<100; $i++) {print $i}"
for (; $i < 100; ++$i) {
print $i;
}
-e syntax OK
perl -MO=Deparse -e "while ($i < 100){print $i}continue {$i++}"
while ($i < 100) {
print $i;
}
continue {
++$i;
}
-e syntax OK
|
|