Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!news.trc!nf5.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!threeWeb-news!spinosk!spin-pp0-osk!spinnews!spin-hsd0-tky!cacnews!minori!news
From: yyamada@cac.co.jp (Yoshihiko Yamada)
Subject: Re: [Q] Perl for Win32  =?ISO-2022-JP?B?GyRCJEckTjxBTGQ7djlgGyhC?=
In-Reply-To: tuka@isc.obayashi.co.jp's message of 20 May 1997 11:21:22 GMT
X-Nntp-Posting-Host: 160.240.96.51
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <lo59pb8q.fsf_-_@field.sgs.cac.co.jp>
Lines: 32
Sender: yyamada@field.sgs.cac.co.jp
Organization: CAC Co. Ltd., Tokyo, Japan
X-Newsreader: Gnus v5.0.15
References: <5ls1fi$98g$5@omega00.fc.obayashi.co.jp>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Date: 21 May 1997 15:53:09 +0900
Lines: 32
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1973
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1973&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.


CAC$B$N;3ED$G$9!#(B

> On 20 May 1997 11:21:22 GMT, tuka@isc.obayashi.co.jp (Akira Tsukagoshi) said:
In article <5ls1fi$98g$5@omega00.fc.obayashi.co.jp> tuka@isc.obayashi.co.jp (Akira Tsukagoshi) writes:

Akira$B$5$s(B> WindowsNTServer3.51 $B>e$G(B Perl for Win32$B$r;HMQ$7$F$$$^$9!#(B
Akira$B$5$s(B> (IIS$B$G(BPerl$B$r(BCGI$B$H$7$F;H$*$&$H;W$C$F$$$^$9!#!K(B
Akira$B$5$s(B> $B0J2<$N7o$K4X$7$FJ,$+$i$J$$$N$G8f65$(2<$5$$!#(B

Akira$B$5$s(B> $B!Z<ALd;v9`![(B
Akira$B$5$s(B>   Perl$B$r;H$$(BNT$B>e$NG$0U$N%G%#%l%/%H%j$+$i%U%!%$%k$N%j%9%H$r<hF@$7$?$$!#(B
  
Akira$B$5$s(B> $B!ZLdBj![(B
Akira$B$5$s(B> $B!Z(BPerl$B%U%!%$%kFbMF![(B
Akira$B$5$s(B>   (1)
Akira$B$5$s(B>      system("dir \****\***** " ); #$BAjBP%Q%9;XDj(B

CGI $B$H$7$F$O$I$&$+J,$+$j$^$;$s$,!"(Bperl$B$N@$3&$G$@$19M$($k$H!"(B
system("dir \\****\\***** " )
$B$G$7$g$&!#(B

perl $B$NCf$GMxMQ$9$k$J$i(B
opendir(DIR, 'C:\xxx\xxx');
@files = readdir(DIR);
...
closedir(DIR);

$B$J$I$H$d$k$H$h$$$N$G$O!#(B
-- 
$B;3ED(B $B4nI'(B     $B!J3t!K%7!<%(!<%7!<(B  $B;:6H%7%9%F%`Bh0l;v6HIt(B
yyamada@cac.co.jp
