Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news01!tokyonet.ad.jp!tokyonet.ad.jp!news
From: "K.OHKUBO" <ohk@da-net.co.jp>
Subject: Re: =?iso-2022-jp?B?GyRCJWEhPCVrJE48K0YwSlY/LhsoSg==?=
X-Nntp-Posting-Host: apple.da-net.co.jp
Content-Type: text/plain; charset=iso-2022-jp
Message-ID: <32DD86A8.44D0@da-net.co.jp>
Sender: news@TokyoNet.AD.JP
Content-Transfer-Encoding: 7bit
Organization: Design Automation Inc.
References: <32D9DD55.2B62@da-net.co.jp> <01bc01b8$b562e9e0$102010ac@IGUCHI-PC.hitachi-ms.co.jp>
Mime-Version: 1.0
Date: Thu, 16 Jan 1997 01:38:48 GMT
X-Mailer: Mozilla 3.01 (Win95; I)
Lines: 52
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1617
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1617&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.
X-reformat-error: Irregular or illegal code in the original archived article. There may be some illegible parts.

Daisuke Iguchi wrote:
> 
> $B0f8}!wF|N)#M#S$H?=$7$^$9!#(B
> 
> K.OHKUBO <ohk@da-net.co.jp> wrote in article
> <32D9DD55.2B62@da-net.co.jp>...
> > $B#W#e#b$N#C#G#I$r#P#e#r#l$G=q$$$F$$$^$9$,!"%U%)!<%`$J$I$+$i%f!<%6!<EPO?$7(B
> > $B$F$b(B
> > $B$i$$!"F1;~$KAj<j$KEPO?40N;$J$I$N%a!<%k$rAw$k$h$&$K$7$?$$$N$G$9!#(B
> $B%U%)!<%`$NCf$K%a!<%k%"%I%l%9$N9`L\$rF~$l$F!"$=$N>pJs$r(B
> POST$B$J$j(BGET$B$G$b$i$C$F$/$l$P$$$$$N$G$O$J$$$G$7$g$&$+!)(B
> $B$=$N:]$K!"I,$:;aL>$H%a!<%k%"%I%l%9$,$J$$$H%f!<%6EPO?(B
> $B$G$-$J$$$h$&$K%A%'%C%/$J$I$r$7$F$*$/(B\x{fffd}\x{3259}\x{fffd}\x{fffd}$B$B$,NI$$$H;W$$$^$9!#(B\x{fffd}\x{325a}
> 
> > $B%a!<%k$GAw$C$F$/$k%Z!<%8$J$I$"$j$^$9$,!"$I$&$d$C$F$k$s$G$7$g$&$+!)(B
> > $B#P#e#r#l$G$OL5M}$G$7$g$&$+!)(B
> > $B$4B8CN$NJ}$OEj9F!"$^$?$O%a!<%k$*4j$$$7$^$9!#(B
> Perl$B$GL5M}$H$$$&$3$H$O$J$$$H;W$$$^$9!#(B
> $B$^$?%a!<%k$NAw?.$K$ODL>o(Bsendmail$B$,;HMQ$5$l$k$H;W$$$^$9!#(B
> $B4IM}<T$J$I$KF~$C$F$$$k$+3NG'$7$F$_$k$H$$$$$+$b$7$l$^$;$s!#(B
>

$BBg5WJ]!w#D#A$G$9!#>pJsM-$jFq$&8f:B$$$^$9!#(B

$B$*$C$7$c$kDL$j(Bsendmail$B$r;H$C$?$H$3$m>e<j$/9T$/;v$,J,$+$j$^$7$?!#(B
$B:#$^$G$O(B

open(MAIL,"|mail xxx@xxx.xx.xx);
print MAIL OutputData;
close(MAIL);

$B$N$h$&$K$7$F$$$?$N$GBLL\$@$C$?;v$,J,$+$j$^$7$?!#(B
$B$=$l$r0J2<$N$h$&$K$9$k;v$G>e<j$/9T$-$^$7$?!#(B

$mailto = "$BAj<j$N%a!<%k%"%I%l%9(B";
$email = "$B<+J,$N%a!<%k%"%I%l%9(B";
$subject = "$B7oL>(B";
open(OUT,"| sendmail $mailto");
print OUT 'X-Mailer: ReturnMailFORM' ."\n";
print OUT "To: $mailto\n";
print OUT "From: $email\n";
print OUT "Subject: $subject\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain\n";
print OUT "\n\n";
print OUT "$BAw$j$?$$%a%C%;!<%8(B";
close(OUT);

$B$I$&$bM-$jFq$&8f:B$$$^$7$?!#$J$K$+4V0c$$!"IT==J,$JE@$,$"$j$^$7$?$i(B
$BJdB-$*4j$$$7$^$9!#(B
                           e_mail ohk@da-net.co.jp
                           name   K.OHKUBO
