Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.join.ad.jp!sinetnews!eclnews!nttarm!news
From: "K.Hiraga" <box@mxa.meshnet.or.jp>
Subject: [Q] How to use array as an argument for a subroutine
Content-Type: text/plain; charset=iso-2022-jp
Message-ID: <32A7D080.5506@mxa.meshnet.or.jp>
Sender: news@nttarm.ntt.jp (News Administrator)
Content-Transfer-Encoding: 7bit
Organization: K.Hiraga
Mime-Version: 1.0
Date: Fri, 6 Dec 1996 07:51:28 GMT
X-Mailer: Mozilla 2.02 [ja] (Win95; I)
Lines: 32
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1514
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1514&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BJ?2l$H$b$&$7$^$9!#(Bperl$B$N%5%V%k!<%A%s$K$D$$$F65$($F$/$@$5$$!#(B

$dir = "*****" $B$H$$$&%G%#%l%/%H%j$K$"$k!"%G%#%l%/%H%j$H%U%!%$%k$N(B
$BL>A0$r(B @dirs $B$H(B @files $B$H$K!"F1;~$K8D?t$b(B $nd $B$H(B $nf $B$H$K3JG<$9$k!"(B

$B$H$$$&;EMM$KBP$7$F!"(B

sub d_and_f {
   ...
}
$B$H$$$&%5%V%k!<%A%s$K!"(B$dir $B$J$I$rEO$7$F!"(B@dirs $B$d(B @files $B$K7k2L$,(B
$BF@$i$l$k$h$&$K$7$?$$!"(B

$B$H9M$($F$*$j$^$9!#(B


$B#Q!'(B
d_and_f() $BFb$N(B local($dirss) $B$H(B local($filess) $B$K8!:w7k2L$,3JG<(B
$B$5$l$F$$$k$H$7$F!"(B

$B$3$NFbIt7k2L$N<u$1EO$7ItJ,!"$*$h$S!"8F$S=P$7ItJ,!'(B &d_and_f(???) 
$B$O$I$N$h$&$K%3!<%G%#%s%0$9$l$P$h$$$N$G$7$g$&$+!)(B


$B#Q!'(B
$B$=$b$=$b!"$3$N$h$&$JJ}K!$G$h$$$N$G$7$g$&$+!)(B


$B$h$m$7$/$*$M$,$$$$$?$7$^$9!#(B

$B#P#S!%(B
perl4 $B$r;HMQ$7$F$$$^$9!#(B
