Help for this page

Select Code to Download


  1. or download this
    C:\test>perl -e"{my$x=0; sub X{++$x;\$x}} print qq[${X()}${X()}${X()}\
+n]"
223
  2. or download this
    C:\test>perl -e"{my$x=0; sub X{++$x;\$x}} print qq[${X()} ${X()}${X()}
+\n]"
1 23
  3. or download this
    >perl -wMstrict -le
"{ my $x = 0;  sub X () { $x = $x + 1;  return \$x; } }
...
print(((${X;} . ${X;}) . ${X;}));
print((((${X;} . 'x') . ${X;}) . ${X;}));
-e syntax OK