Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: Tkx after coderef problem

by huck (Parson)
on Jun 02, 2018 at 15:08 UTC ( #1215740=note: print w/replies, xml ) Need Help??

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----------
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1215740]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2019-12-10 01:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?