Help for this page

Select Code to Download


  1. or download this
    >perl -e '
    use Data::Alias;
    ...
    $b=1;
    '
    Modification of a read-only value attempted at -e line 5.
    
  2. or download this
    > perl -e '
    use Data::Alias;
    ...
    alias my ($a, $b, $c) = @local_vars;
    $b=1;
    '
    
  3. or download this
    #!/usr/bin/perl -w
    
    ...
    }
    
    printf "len_local_varnames=%d\n",$len_local_varnames;
    
  4. or download this
    #!/usr/bin/perl -w
    
    ...
    }
    
    &mysub;
    
  5. or download this
        my @localspace = eval "local @_=($local_varnames)";