Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Re: Re: what does shift do?

by Juerd (Abbot)
on May 19, 2002 at 20:48 UTC ( [id://167709] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub greet {
        my $name = shift;
    ...
    }
    
    greet('dev2000');
    
  2. or download this
    $_[0]->send_http_header('text/plain');
    $_[0]->print("mod_perl rules!\n");
    
  3. or download this
    my $r = shift;
    ...
    
  4. or download this
    package Some::URL::Based::Package::Name;use Apache qw(exit);sub handle
    +r {
    #line 1 script.pl
    ...
    ...
    
    }