Prototype

[Masanori HATA]

$BH*$G$9!#(B

sub $B$r;H$C$F4X?t$r%W%m%H%?%$%WIU$-$GDj5A$9$k>l9g!"%W%m%H%?%$%W$K!"!V(B@$B!W(B
$B$r;XDj$9$k$N$H!V(B%$B!W$r;XDj$9$k$N$H$G0c$$$O$"$k$N$G$7$g$&$+!)!!$?$@$7!"$3(B
$B$N>l9g!"!V(B\$B!W!J5U%9%i%C%7%e!KIU$-$N;XDj$G$O$J$$>l9g$G$9!#(B

sub (%) {(...)}
sub (@) {(...)}

$B$$$:$l$K$7$F$b!"(***@_ $B$G%Q%i%a!<%?$,EO$5$l$k$N$G0c$$$,$J$$$h$&$J5$$,$7$^(B
$B$9!#(B% $B$K$9$k$H!"%Q%i%a!<%?$,I,$:6v?t$K$J$k$H$$$&$h$&$J07$$$K$J$k$N$+$H$b(B
$B;W$$$^$7$?$,!"$=$&$G$b$J$$$h$&$G$9$7!D!D!#(B

sub test (%) {
return @_ + 0;
}
print test 'a', 'i', 'u', 'e', 'o';

$B$3$N%3!<%I$N7k2L$O!V(B5$B!W$G$9!#!V(B4o$B!W$K$O$J$j$^$;$s$G$7$?!#(B

[Shinji KONO]

Post by Masanori HATA
$B$N>l9g!"!V(B\$B!W!J5U%9%i%C%7%e!KIU$-$N;XDj$G$O$J$$>l9g$G$9!#(B

man perlsub $B$J$s$G$7$g$&$,(B...

Perl $B$N%W%m%H%?%$%W$O!"(Bbuiltin $B4X?tE*$J9=J8$K$7$?$$;~$K;H$&(B
$B$b$N$J$s$G$7$g$&!#$J$N$G!"(***@_ $B$NF0:n$K$O1F6A$7$J$$$s$8$c$J$$(B
$B$G$7$g$&$+!#(B

Any unback-
slashed "@" or "%" eats all remaining arguments, and forces list con-
text.

$B$J$N$G!"(B(%)$B$b(B(@)$B$*$s$J$8$J$s$8$c$J$$$G$9$+$M!#(B

---
Shinji KONO @ Information Engineering, University of the Ryukyus
$B2OLn??<#(B @ $BN05eBg3X9)3XIt>pJs9)3X2J(B

[Masanori HATA]

$BH*$G$9!#%U%)%m!<$"$j$,$H$&$4$6$$$^$9!#(B

Post by Shinji KONO

Post by Masanori HATA
$B$N>l9g!"!V(B\$B!W!J5U%9%i%C%7%e!KIU$-$N;XDj$G$O$J$$>l9g$G$9!#(B

man perlsub $B$J$s$G$7$g$&$,(B...

$B$9$_$^$;$s!#(B(^^;
Windows $B$J4D6-$,%a%$%s$J$;$$$G!"(Bman perlsub$B!J(BWin $B$G$O(B perldoc perlsub$B!K(B

Post by Shinji KONO
Any unback-
text.

$B$d$O$j$=$&$$$&$3$H$J$s$G$9$+$M!#(***@_ $B$8$c$J$/$F(B %_ $B$J$s$F$$$&FC<lJQ?t$r;H(B
$B$&$H$+$$$&$o$1$8$c$J$$$G$9$7$M!#(B