Help for this page

Select Code to Download


  1. or download this
        sub FETCH {
            my $self = shift;
            do_domething;
            $self->SUPER::FETCH(@_);
        }
    
  2. or download this
    $ perl586 -wle 'sub f { $_[0] = "x" } $a = "abcd"; f(substr($a,0,2)); 
    +print $a'
    xcd