:


         
()     ().
     :

	sub ;	#  .  .

	sub  ();       .

	sub  ;	#   .

	sub  () ; #  ,   .

      :

	$ = sub ;

      :

	use  qw(1 2 );

 :

	( );	#  '&'   .

	 ;	#    .

	&;		#   @_

      @_.
 $_[0] -  , $_[1] -   ..
 @_ - ,      
   .
   -   .
       .   
   return().

     '&'  
.     
    .



        
      my().

      .

my()  private     ,
,  eval()  do/require/use . Private 
 auto   .

:

	#   .

	print fact(3);  #   3*2*1

	sub fact	#  .
	{ my $m;                # private    local !
	$m = $_[0];
	return 1 if $m <= 1;
	return($m * fact($m -1));
	}

    private  :

	my() = ;

      :

	my($m) = $_[0];


  local.

    private  -   
. private     
()  local - .    
       .
  local()      
         
 .




      
  .     :

			 

	sub mylink($$)		mylink $old, $new
	sub myvec($$$)		myvec $var, $offset, 1
	sub myindex($$;$)	myindex &getstring, "substr"
	sub myreverse(@)	myreverse $a, $b, $c
	sub myjoin($@)		myjoin ":",$a,$b,$c
	sub mypop(\@)		mypop @array
	sub mysplice(\@$$@)	mysplice @array, @array, 0, @pushme
	sub mykeys(\%)		mykeys %{$hashref}
	sub myopen(*;$)		myopen HANDLE, $name
	sub mypipe(**)		mypipe READHANDLE, WRITEHANDLE
	sub mygrep(&@)		mygrep { /foo/ } $a, $b, $c
	sub myrand($)		myrand 42
	sub mytime()		mytime

:
	\''	-    ''

	'@'  '%'	-     

	'$'		- 

	'&'		-  

	'*'		-    

	';'		-      .




        
     ,     
 .        
 '*'    'type glob'    
 '*'  "  ".  '*' 
  "  ".
   '*'    ..    
        
 $_[0].




      
.        
  .

        :

	use subs '1', '2' ....;

      .




         
   .     
  'AUTOLOAD'        
  $AUTOLOAD     
.       .


Last-modified: Thu, 24 Apr 1997 18:06:07 GMT

  :