Help for this page

Select Code to Download


  1. or download this
    C:\test>perl -E"$\"=''; {my@x; sub X{ push@x,'x';;\@x}}; say qq[@{X()}
+@{X()}]"
xxx
  2. or download this
    C:\test>perl -E"{my$x; sub X{ $x.='x';\$x}}; say qq[${X()}${X()}]"
xxxx