Newsgroups: fj.mail,fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!jaist-news!wnoc-tyo-news!news.iij.ad.jp!astecgw!dnpgw!pix!a_kuroe
From: a_kuroe@sparc691.gaken.dnp.co.jp (Akihiko Kuroe)
Subject: Re: Question: automatic mail-reply
In-Reply-To: funa@sra.co.jp's message of Mon, 6 Jun 1994 13:42:33 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <Cqyr3z.1DK@pix.gaken.dnp.co.jp>
Followup-To: fj.lang.perl
Sender: news@pix.gaken.dnp.co.jp (Usenet System)
Organization: IIRI , Dai Nippon Printing Co.,Ltd. , Tokyo , Japan
X-Newsreader: gn [Version 1.21 Beta Jun.1,1994]
References: <2spfti$8i9@ume1.shiraume.ac.jp> <CqvBux.Dyr@nsis.cl.nec.co.jp> <FUNA.94Jun6134233@sran260.sra.co.jp>
Mime-Version: 1.0
Date: Mon, 6 Jun 1994 06:52:46 GMT
Lines: 33
Xref: galaxy.trc.rwcp.or.jp fj.mail:1792 fj.lang.perl:275
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=275&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.

$B9u9>!wBgF|K\0u:~$G$9!#(B

In article <FUNA.94Jun6134233@sran260.sra.co.jp>
funa@sra.co.jp writes:

>  |1. $BI8=`F~NO$+$i%a!<%k$rFI$_9~$s$G!"Aj<j$N%"%I%l%9$r@Z$j=P$7$F!"$=$3$K(B
>  |$B%a!<%k$rAw$jJV$9$h$&$J%9%/%j%W%H$r!"%7%'%k$d(BAWK$B$d(BPerl$B$r6n;H$7$F=q$/!#(B
> 
> $B<B:]!"$=$s$J$3$H$r$7$F$^$9$,!"Aj<j$N%"%I%l%9$r@Z$j=P$9$N$,(B
> $B$A$g$C$HBgJQ$G$9!#(B
> 
> $B#1DL$N%a!<%k$NCf$N(B
> set TO =  ` grep '^Return-Path:' /tmp/aaa.$$ | /usr/local/bin/perl -ne ' print $1 if(/<(.*)>/);' `
> 
> $B$G<h$j=P$7$F$$$k$N$G$9$,!"$3$l$G$b<h$j=P$;$J$$>l9g$,$"$j$^$9!#(B
> $B3N<B$K<h$j=P$9J}K!$,$"$l$P(B $BJX>h$G$9$,65$($FD:$-$?$$$H;W$$$^$9!#(B

$BJVAw@h$H$7$F;H$&%U%#!<%k%I$NFbMF$rJQ?t(B $repl $B$K<h$j9~$s$G$*$$$F$+$i(B

        if ($repl =~ /<(.*)>/o) {
            $repl = $1;
        }
        elsif ($repl =~ /(.*)\(.*\)(.*)/o) {
            $repl = $1.$2;
        }

$B$H$d$C$F(B $repl $B$r;H$&$N$OG!2?$G$7$g$&$+!#%3%^%s%I%i%$%s$K$OD9$$$+$J!#(B
$B$A$J$_$K>e5-$N%3!<%I$O!"@[:n(B MH-p $B$N(B repl.pl $B$+$iH4$-=P$7$?$b$N$G$9!#(B
repl.pl $B$K4X$7$F$O!"0U?^$7$?%"%I%l%9$,F@$i$l$F$$$k$N$GBg>fIW$G$7$g$&!#(B
$B$D$$$G$K@kEA!#:#7nCf=\$K(B MH-p v1.14 $B$r%j%j!<%9$9$kM=Dj$G$9!#(B
--
$B9u9>L@I'!wBgF|K\0u:~(B $B2hA|8&5f=j(B3$BIt(B
<a_kuroe@sparc691.gaken.dnp.co.jp>
