Help for this page

Select Code to Download


  1. or download this
    # DynInterp.pm
package DynInterp;
...
    return join('', map { ref($_)eq'SCALAR'?$$_:ref($_)eq'ARRAY'?"@{$_
+}":$_ } @$this);
}
1;
  2. or download this
    # ---------------------
# dyninterp.pl
...
print $z;
$"='.';
print $z;
  3. or download this
    $var = new DynInterp('date ', \$date);
$date = localtime;
print $var;
  4. or download this
    $"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc