Help for this page

Select Code to Download


  1. or download this
    sub tt {
      my( $cookie, $param ) = @_;
    ...
    print tt( undef, 1 );
    print tt( undef, undef );
    
  2. or download this
    (4,3):  3
    (4,333):        4
    ...
    (undef,1):      1
    (undef,undef):  5
    
  3. or download this
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
    + sig
    map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
    +" );