Help for this page

Select Code to Download


  1. or download this
    perl -le 'use strict; my $foo = 1; $foo ? \&{print "foo"} : \&{ print 
+"bar"};'
foo
  2. or download this
    perl -MO=Concise,-exec -le '$foo = 1; $foo ? \&{print "foo"} : \&{ pri
+nt "bar"};'
1  <0> enter 
...
l  <1> refgen vK/1
f  <@> leave[1 ref] vKP/REFC
-e syntax OK
  3. or download this
    perl -le 'use strict; my $foo = \&{ print "bar"}; $foo'