Help for this page

Select Code to Download


  1. or download this
    my $code=sub{print "hi\n";}; 
&{$code};
  2. or download this
    my $var='hi'; 
my $ref=\$var; 
${$ref}='there'; 
print "$var\n";
  3. or download this
      if ( $tkxfsr->{after}{$afterid}{sub}) { 
      print 'sub:'.$tkxfsr->{after}{$afterid}{sub}."\n";
      &{$tkxfsr->{after}{$afterid}{sub}}(); 
      &{$tkxfsr->{after}{$afterid}{sub}};
      }
  4. or download this
    encapulated sub=0
SCMD 1527954135_123_c1 hi
...
sub:CODE(0x9cdda24)
LIST 1527954135_123_c1 hi 4----------
LIST 1527954135_123_c1 hi 5----------