Help for this page

Select Code to Download


  1. or download this
      DB<123> sub test(&) { my( $c ) = @_; print 0+$c,$/; return $c }

...
145184216
145184216
 => ""
  2. or download this
      DB<155> sub tst2(&) { my( $c ) = @_; print &$c,":\t",0+$c,$/;return 
+$c}

...
2:    141318480
3:    141318480
  3. or download this
      DB<158> ;{ my $b; for my $a (1..3){tst1 {1} ; $b=tst2 {2} if $a==1 }
+ }
1:    141317840
2:    141317840
1:    141318608
1:    141318608