Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!wnoc-kyo-news!kuis-news!sakura.kudpc!sakunami!yagi!news
From: "YOSHIFUJI, Hideaki" <sd96249@ec.ecei.tohoku.ac.jp>
Subject: Re: [Q]opendir:perl5forWindows
X-Sender: "YOSHIFUJI, Hideaki" <sd96249@ec.ecei.tohoku.ac.jp> (Unverified)
X-Nntp-Posting-Host: eiw02.ec.ecei.tohoku.ac.jp
Content-Type: text/plain; charset=iso-2022-jp
Message-ID: <330E83D2.3878@ec.ecei.tohoku.ac.jp>
X-Priority: Normal
Sender: news@ecei.tohoku.ac.jp
Reply-To: sd96249@ec.ecei.tohoku.ac.jp
Content-Transfer-Encoding: 7bit
Organization: Faculty of Technology, Tohoku University, JAPAN
References: <330B5FD9.786E@ccc.canon.co.jp>
Mime-Version: 1.0
Date: Sat, 22 Feb 1997 05:27:47 GMT
X-Mailer: Mozilla 4.0b1 (Win95; I)
Lines: 40
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1756
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1756&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.

$B5HF#1QL@!wElKLBg3XEE>p7O$G$9!#(B

NISIKAWA,Hiroyuki wrote:
> $B$H$3$m$,(B,$B%5%V%G%#%l%/%H%j$K$D$$$F$NF0:n$,(B
> $B;W$C$?$b$N$H0lCW$7$F$/$l$^$;$s(B.$B$=$3$G!$LdBjE@$r$"$i$$(B
> $B=P$7$?$H$3$m(B,$B7k6I!$$=$N%9%/%j%W%H$NCV$+$l$F$$$k%G%#%l%/(B
> $B%H%j0J30$G$O!$@5$7$/%U%!%$%kL>$,<h$j9~$a$F$$$J$$;v$,(B
> $B2r$j$^$7$?(B.

$B%U%!%$%kL>$r<hF@$9$k$N$G$O$"$j$^$;$s!#%G%#%l%/%H%j(B*$B%(%s%H%j(B*$B$N(B
$B<hF@$G$9!#%G%#%l%/%H%jL>$b$D$-$^$;$s$7!"$b$A$m$s!"%U%k%Q%9$K$b(B
$B$J$j$^$;$s!#(B


> $B0J2<$K$"$2$k%9%/%j%W%H$N>l9g(B,$B$=$l<+BN$,(B/dir1/$B$K$"$l$P(B,
> $B$9$Y$F$N%U%!%$%kL>$rI=<($7$F$/$l$k$N$G$9$,(B,$B$=$&$G$J$$>l(B
> $B9g$O!$B8:_$9$k%U%!%$%k$N$&$A$N$$$/$D$+$7$+I=<($7$^$;$s(B.

> --
> $dir = "d:/dir1/";
> 
> opendir(PF,$dir) || die "err!";
> @txt = grep(-T,readdir(PF));
> closedir(PF);
> foreach $a (sort @txt){
>         print $a . "\n";
> }

$B$H$$$&$o$1$G!"$3$l$G$OEvA3!"0U?^DL$j$K$OF0:n$7$^$;$s!#(B
$B0U?^DL$j$K%3!<%G%#%s%0$9$k$J$i!"(Bgrep(-T,readdir(PF))$B$G$O$J$/!"(B
grep(-T $dir.'/'.$_, readdir(PF)) $B$H$7$J$1$l$P$J$j$^$;$s!#(B

$B!t<XB-$G$9$,!"(B'/'$B$O(B $dir $B$N:G8e$K(B / $B$,$J$$$H$-$N$?$a$NA<CV$G$9!#(B
$B!t$3$3$G$O(B 'd:/dir//file' $BEy$H$J$j$^$9$,!"LdBj$"$j$^$;$s!#(B

-- 
$B5HF#1QL@(B (YOSHIFUJI, Hideaki)
Faculty of Engineering, Tohoku University, JAPAN

http://www.ec.ecei.tohoku.ac.jp/~sd96249/YoshifujiH/
