Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.nc.u-tokyo.ac.jp!news.t.u-tokyo.ac.jp!quest-news!Q.T.Honey!aero.kyushu-u!kuee-news!odins-suita!itserv.it.okayama-u.ac.jp!elecnews!biotech5e!yama
From: yama@biotech.okayama-u.ac.jp (Mamoru Yamanishi)
Subject: Re: =?ISO-2022-JP?B?GyRCJVUlISUkJWslaiU5JUg6bkAuGyhC?=
Sender: news@plasma.elec.okayama-u.ac.jp
Message-ID: <yama-2210970947380001@biotech5e.biotech.okayama-u.ac.jp>
Date: Wed, 22 Oct 1997 00:47:38 GMT
Content-Type: text/plain; charset=iso-2022-jp
References: <344C56F2.7D1C@po.jah.ne.jp>
Nntp-Posting-Host: biotech5e.biotech.okayama-u.ac.jp
Mime-Version: 1.0
Organization: Okayama Univ.
X-Newsreader: NewsWatcher-J18 (2.1.6)
Lines: 74
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2434
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2434&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.

> $B$I$J$?$+$465<(D:$1$^$;$s$G$7$g$&$+!#(Bperl$B$O(BMacperl.5$B$G$9!#(B

$B;d$b(BMacPerl$B%f!<%6!<$G$9$,!"(BMacPerl$B$K8BDj$7$?5!G=$r;H$C$F$$$k$H!"(B
$B@bL@$,$J$$$H!"B>$N4D6-$G$O$h$/H=$i$J$$$+$b$7$l$^$;$s$M!#(B

$B$=$l$O$5$F$*$-!"5$$K$J$kE@$r$$$/$D$+!#(B


> require "SF.pl";

$B$H(B

> $dirname = &SF'GetFolder("Please Select A Folder");

$B$3$l$G$9$,!"(BMacOS$BIw$NI8=`%U%!%$%k%@%$%"%m%0$r=P$7$F%G%#%l%/%H%j!<L>$r(B
$BF@$k$b$N$@$HM}2r$7$^$7$?$,!"$=$l$G$"$C$F$$$k$G$7$g$&$+!#(B
$B!J;d$O!"(BMacPerl$B$H0l=o$KG[I[$5$l$F$$$k!"(B&MacPerl'Choose()$B$7$+(B
$B;H$C$?$3$H$,$J$$$G$9!#!K(B

> $depth = ++$depth;
> 
> chdir($dirname) || die "Can't cd dir" ;
> opendir("$depthDIR",':') || die "Can't open dir" ;

$B$3$l$,LdBj$G$O$J$$$G$7$g$&$+!#$d$j$?$$$3$H$O!"%G%#%l%/%H%j!<$N%5!<%A(B
$B$N3,AX$r(B$depth$B$K$$$l$F!"(B1DIR, 2DIR,...$B$N$h$&$J%G%#%l%/%H%j!<%O%s%I%k(B
$B$G%"%/%;%9$G$-$k$h$&$K$7$?$$!"$N$@$H$*$b$$$^$9$,!"$I$&$G$7$g$&$+!#(B

$B$"$^$j$3$N$"$?$j$K>\$7$/$J$$$N$G$9$,!"(B

   opendir$B$G!"(Bopen$B$G$N4V@\%U%!%$%k%O%s%I%k$KAjEv$9$k$b$N$,;H$($k$+(B

$B$H!"(B

   $B;H$($?$H$7$F!">e$N%9%/%j%W%H$O$I$N%U%!%$%k%O%s%I%k$r;X$9$N$+(B

$B$,LdBj$@$H$*$b$$$^$9!#(B

$B$^$:Bh0l$N$F$s$G$9$,!"(BMacPerl5.1.4$B$G2<5-$N%9%/%j%W%H$G;n$7$F$_$k$H(B
   require "GUSI.ph";
   $dir= &MacPerl'Choose(&GUSI'AF_FILE, 0, 
         "Which folder", "", &GUSI'CHOOSE_DIR); #MacPerl$B$GI8=`%U%!%$%k(B
                                                #$B%@%$%"%m%0$r;H$C$F(B
                                                #$B%U%)%k%@!<$rA*$P$;$k(B
                                                #$B4X?t(B

   $dirh="hoge";
   @a=();

   #eval "opendir($dirh, \"$dir\");\@a=readdir($dirh);closedir($dirh);";

   opendir($dirh, "$dir");\@a=readdir($dirh);closedir($dirh);

   print "@a\n";
$BD>@\<B9T$9$k$H!"$J$K$bI=<($5$l$^$;$s!#(Bopendir$B$N9T$r%3%a%s%H%"%&%H$7$F(B
eval$B$N9T$N(B"#"$B$r$H$C$F<B9T$9$k$H!"A*Br$7$?%G%#%l%/%H%j!<Fb$N%U%!%$%kL>$,(B
$BI=<($G$-$k$N$G!"(BMacPerl$B$G$O4V@\E*$J%G%#%l%/%H%j!<%O%s%I%k$O5v$5$l$J$$(B
$B$N$@$H;W$$$^$9!#(B

$BB>$N<BAu$G$O$I$&$J$N$G$7$g$&$+!#(B

$B$D$.$K!"$3$l$,5v$5$l$k<BAu$@$H$7$^$9$H!"(B

 "$depthDIR"$B$O(B$depthDIR$B$H1>$&JQ?t$rE83+$9$k$N$G!"4uK>$9$k$h$&$J(B
$depth."DIR"$B$K$O$J$i$J$$$H;W$$$^$9!#(B

eval$B$G<B9T;~$KI>2A$7$F$d$l$PLdBj$O$J$$$H$*$b$o$l$^$9!#(B

$B$=$NB>$NItJ,$O!"$h$/H=$j$^$;$s!#(B

-- 
$B;3@>!!<i(B <yama@biotech.okayama-u.ac.jp>
$B2,;3Bg3X9)3XIt@8J*5!G=9)3X2J(B
086-251-8196
