Newsgroups: fj.sources.d,fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!oskgate0.mei!chorus.mei!swift!ara
From: ara@crl.mei.co.jp (ARAKAWA Kei)
Subject: Re: [Proposal] on multi-part uuencoded postings
In-Reply-To: n201201@ue.ipc.hiroshima-u.ac.jp's message of Thu, 17 Jun 1993 06:23:38 GMT
Message-ID: <ARA.93Jun17182933@swift.crl.mei.co.jp>
Sender: ara@swift.crl.mei.co.jp (ARAKAWA Kei)
Organization: Matsushita Electric Industrial Co.,Ltd.
References: <N201201.93Jun16195414@hws.ipc.hiroshima-u.ac.jp>
	<1717@micro.lsi.melco.co.jp>
	<N201201.93Jun17152338@hws.ipc.hiroshima-u.ac.jp>
Date: Thu, 17 Jun 1993 09:29:33 GMT
Lines: 29
Xref: galaxy.trc.rwcp.or.jp fj.sources.d:2221 fj.lang.perl:215
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=215&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.

$BDL$j$9$,$j$N(B $B$"$i!w$Q$J$=$K$C$/(B $B$G$9!#(B

In article <1717@micro.lsi.melco.co.jp> ichikawa@lsi.melco.co.jp (ICHIKAWA Shuichi) writes:
>   $B$/$5$+$Y$5$s$K8@$o$l$F!"2~$a$F(Buuencode$B$N%^%K%e%"%k(B(section 5$B$NJ}(B)$B$rFI(B
>   $B$s$@$i!"9TF,$N0lJ8;z$O4^$^$l$k%P%$%H?t$rI=$7$F$$$k$+$i!"(BM$B$H$OA4A38B$j(B
>   $B$^$;$s$M!#!D!D$H8@$&$o$1$G!"$3$l$G$O$^$:$$$G$7$g$&!#(B

kik> $B$?$7$+$K$=$&$G$7$?!#(B
kik> $B$I$J$?$+(Bscript$B$rD>$7$F$/$@$5$$!#(B^^; ($BB>NOK\4j!K(B

Perl $B$r;H$C$F$$$k$J$i$;$C$+$/$@$+$i(B unpack("u",$_) $B$7$?$i$I$&$G$9$+!)(B

#!/usr/local/bin/perl -n
if ($file) {
if (/^[ -\`]+$/ && int((ord()-30)/3)==int(length()/4)){
print FILE unpack("u",$_);
} elsif (/^end/) {
chmod(oct($mode),$file),close(FILE),undef($file);
}
} elsif (/^begin\s+(\d+)\s+(\S+)/) {
$mode=$1,$file=$2,open(FILE,">$2");
}

$B$3$s$J46$8$G$H$j$"$($:$OBg>fIW$G$7$g$&!#$"$"$C!"1x$$(B(;^_^)$B!#(B

$B!tC/$+$,@N$3!<$f!<$N$r(B fj.lang.perl $B$KEj9F$7$F$?$h$&$J5$$,$9$k!D(B

--
$B9S@n(B $B7=!w>>2<EE4o(Bara@crl.mei.co.jp
