サブルーチン

----------------------------------------------------
&test('a','b','c'); # 呼出し元
sub test # サブルーチン側
{
my ($a,$b,$c) = @_; # $a = 'a',$b = 'b',$c = 'c'
}
----------------------------------------------------
&swap( *a,*b); # 配列 @a,@bの内容を入れ換える
sub swap
{
local(*x,*y) = @_;
my $i,$t;
for( $i = 0; $i < @x $i ++ )
{
$t = $y[$i];
$y[$i] = $x[$i];
$x[$i] = $t;
}
}
----------------------------------------------------
open(IN,"test.txt");
&printtext(*IN); # ファイルハンドルを型グロブ引数で渡す
close(IN);
sub printtext
{
local(*F)=@_;
while(&ltF>)
{
print;
}
}
----------------------------------------------------