Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    sub trace { print join(' ', map { defined($_) ? $_ : '#undef#' } @_), 
    +"\n"; }
    ...
    
    $val=7.3;
    trace('Final value is', $val);
    
  2. or download this
    roboticus@swill $ ./foo.pl
    Before first chunk, value is #undef#
    Before second chunk, value is foobar
    Final value is 7.3