Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news01!news01.so-net.or.jp!infosphere!asakanet!axion!asakagw!fiaskry!sakunami!katahira!yagi!news
From: "YOSHIFUJI, Hideaki" <yoshfuji@ecei.tohoku.ac.jp>
Subject: Re: =?iso-2022-jp?B?GyRCI1cjaSNuI2QjbyN3I3MhISNOI3QbKEozLjUxGyRCJEckThsoSnBhcmwbJEIhSj5cOlkhSxsoSg==?=
X-Nntp-Posting-Host: eiw02.ec.ecei.tohoku.ac.jp
Content-Type: text/plain; charset=iso-2022-jp
Message-ID: <335A3843.40CD870D@ecei.tohoku.ac.jp>
X-Priority: 3 (Normal)
Sender: news@ecei.tohoku.ac.jp
Reply-To: yoshfuji@ecei.tohoku.ac.jp
Content-Transfer-Encoding: 7bit
Organization: Faculty of Engineering, Tohoku University, JAPAN
References: <01bc43e0$56f58ec0$04c3e6ca@sanmedia4.sanmedia.or.jp>
Mime-Version: 1.0
Date: Sun, 20 Apr 1997 15:37:40 GMT
X-Mailer: Mozilla 4.0b3 [en] (Win95; I)
Lines: 66
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1898
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1898&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

$B%U%)%m!<$,$J$$$_$?$$$J$N$G$9$,!"2r7h$7$?$N$G$7$g$&$+!)(B

Y.Kaga wrote:
> $B:#;d$O!"#N#T#3!%#5#1$G%Q!<%k$r:n@.$7$F$$$^$9!#!!:n@.Cf$N%W%m%0%i%`$G!"$=$l(B
> $B$>$l$N%G%#%l%/%H%j!<$NMFNL$rD4$Y$k$b$N$r:n$C$F$$$^$9$,!"$&$^$/I=<($5$l$^$;(B
> $B$s!#!!<B:]$K$O!"(Bperl.exe$B$,5"$C$F$-$F$7$^$$!"%V%i%&%6!<$KI=<($9$k$3$H$,=PMh(B
> $B$^$;$s!#!!$b$7$I$J$?$+$3$N<j$N$3$H$,J,$+$i$l$k$+$?$,$*$i$l$^$7$?$i=u8@$r$*(B
> $B4j$$$7$^$9!#!J%G%#%l%/%H%j$NCf?H$r;2>H$9$k$N$K#d#i#r%3%^%s%I$r;HMQ$7$F$$$^(B
> $B$9!#!K(B
> 
> <$B<B:]$N5-=R(B>
> $B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
> 
> #!/home/local/bin/perl
> # $B3F%f!<%6!<$N%U%!%$%kMFNL$r=PNO$9$k(B
> #
> #------    $BF~NO%G!<%?$NFI9~$_(B    -----------------------------------
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> #------    $B%U%)!<%`$KF~NO$5$l$?CM$r%G%3!<%I(B/$BJ,2r$9$k!#(B    ----------
> @pairs = split(/&/,$buffer);
> foreach $pair (@pairs)
> {
>   ($name, $value) = split(/=/, $pair);
>   $value =~ tr/+/ /;
>   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>   $FORM{$name} = $value;
> }
> #--------------------------------------------------------------------
> 
> $datadir="f:/wwwusers";
> $user = $FORM{'user'};
> $ff="\\";
> if ($user eq "") {$ff="";
> };
> $dir = "a:";
> $swich = "/s";
> 
> $com = system(dir + `$dir` + ` /s`);
> $def = "$com $dir";
> 
> print "Content-type: text/html\n\n";
> print "<pre>\n$def\n";


$B<!$N9T$N0UL#$,ITL@$G$9!#(B

> $com = system(dir + `$dir` + ` /s`);

$B$3$l$8$c!"(Bdir $B$H$$$&Mg$NC18l(B 'dir' $B!"(B$dir $B$,;X$930It%3%^%s%I$r(B
$B<B9T$7$?7k2L(B $B$=$7$F(B /s $B$H$$$&%3%^%s%I$H<B9T$7$?7k2L$r?tCM(B
$B%3%s%F%-%9%H$GI>2A$7$FB-$7$F!"$=$l$r$5$i$K%3%^%s%I$H$7$F<B9T$9$k!"(B
$B$H$$$&$o$1$N$o$+$i$J$$$b$N$N$h$&$K$_$($k$N$G$9$,!&!&!&!#(B

$com = `dir $dir /s`;

$B$8$c$J$$$s$G$7$g$&$+!)(B

$B!t$b$7$+$7$F!"(BM$$BHG$O;EMM$,0c$&$H$+!)(B

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

<URL:http://www.ecei.tohoku.ac.jp/~yoshfuji/>
