Help for this page

Select Code to Download


  1. or download this
    
use strict;
...
@z=qw(Z ZZ ZZZ);
print '@x= ',"qw/@x/";
  2. or download this
    
--- make $x alias of $y
...

$x= 'Z'
@x= qw/Z ZZ ZZZ/
  3. or download this
      DB<1> sub lg :lvalue { *x };

...

  DB<9> p $y
XX