Help for this page

Select Code to Download


  1. or download this
    2;0 juerd@ouranos:~$ perl -MO=Deparse -e'while () { print "1\n" }'
for (;;) {
    print "1\n";
}
-e syntax OK
  2. or download this
    2;0 juerd@ouranos:~$ perl -MO=Deparse -e'while (1) { print "1\n" }'
for (;;) {
    print "1\n";
}
-e syntax OK
  3. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$