Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    Use of uninitialized value in printf at C:\test\junk.pl line 16.
     28 :   0
     29 :  31
    
  2. or download this
    sub tyem {
        my( $s, $c, $n ) = @_;
    ...
        return if 0 < $n;
        return $rv;
    }