🚀 go-pugleaf

$BEhED!wEECf8&$G$9!%<ALd$G$9!%(J

In article <1992Aug18.163025.4563@iris.is.tsukuba.ac.jp>,
	yas@softlab.is.tsukuba.ac.jp (Yasushi Shinjo) writes:
YS> /usr/ucb/sendmail $B$NBe$o$j$K!"(J/bin/mail $B$r8F=P$9J}K!$b$"$k$H(J
YS> $B;W$$$^$9!#(J
YS> 	"| script | /bin/mail -d inamura"
YS> $B$G$7$g$&$+!#(J/bin/mail -d $B$N>l9g!"%P%C%/%9%i%C%7%e$rIU$1$J$/(J
YS> $B$F$b$$$$$H;W$$$^$9!#(J

$B$J$N$G$9$,!$(Jscript$B$G(JUNIX From$B$r<h$j=|$$$F$"$2$J$$$H!$8E$$(JUNIX From$B$,(J
$BF,$K(J>$B$r$D$1$?7A$G%X%C%@$NCf$K;D$C$F$7$^$$$^$9!%$3$l$O(Jinc$B$7$F$b;D$C$F(J
$B$7$^$$!$$A$g$C$H5$$K$J$j$^$9!%$"$H!$(Jfrom$B$r;H$&$H<+J,$+$i$N%a!<%k$,(J
$BMh$F$$$k$h$&$JI=<($K$J$k$N$b!$>/$75$$K$J$j$^$9!%(J($B$[$H$s$I(Jfrom$B$r;H$o$J$$(J
$B$N$G9=$o$J$$$N$G$9$,!%(J:-)

$B8E$$(JUNIX From$B$r$=$N$^$^;D$9NI$$J}K!$O$J$$$b$N$G$7$g$&$+(J?

$B!t8D?M$GBP=h$7$J$$$G!$(Jsendmail.cf$B$G(J
$B!t(JMlocal,P=/usr/local/bin/mscript ....
$B!t$H$+$7$F!$(Jmscript$B$G(JLines:$B$r$D$1$F$7$^$&$H$$$&9S5;$r;W$$$D$$$F$N$G$9$,!%(J

$B$"$H!$(J/bin/mail$B$NBe$o$j$K(J/usr/lib/sendmail$B$r;H$C$F$_$h$&$H;W$C$?$N(J
$B$G$9$,!$(J\$B$r%"%I%l%9$NA0$K$D$1$F$b(J(0$B!A(J3$B8D$^$G;n$7$F$_$^$7$?(J)$B%k!<%W$7$F(J
$B$7$^$$$^$9!%$I$&=q$$$F$$$k$N$+65$($FD:$1$J$$$G$7$g$&$+(J?

In article <INAMURA.92Aug20120159@psiux536.icot.or.jp>
	 inamura@icot.or.jp (INAMURA =JANE= You) writes:
IY>$B$=$l$8$c>.$5$J$b$N$G$9$+$i!"$*8@MU$H$*$jN.$7$A$c$$$^$7$g$&!#(J
IY>$BAF(J script $B$G$9$,!#(J(^_^;)

$B$I$&$b$"$j$,$H$&$4$6$$$^$9!%$H$$$C$F$b!$(JLines$B$r$D$1$kItJ,$O(JPerl$B$r;H$C$F(J
$B<+J,$G=q$$$F$_$?$N$G$9$,!%(J:-) $B<ALd$P$+$j$G$O$J$s$J$N$G!$(JPerl$B$G=q$$$?(J
$B%U%#%k%?$r$*$^$1$K$D$1$F$*$-$^$9!%(J(UNIX From$B$r:o=|$7$F!$$b$H$b$H(JLines$B$,(J
$B$"$k$H$-$O!$?7$?$K(JLines$B$r$D$1$J$$$h$&$K$7$^$7$?!%(J)

$B!t<+J,$G4IM}$7$F$$$k(JML$B$O!$:FAw$9$k$H$-$K(JLines$B$r$D$1$k$h$&$K$7$h$&$+$J!%(J:-)

--$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J--
#! /usr/local/bin/perl

$i = 0;
$h = 0;
$f = 0;
while (<>) {
  if(!(/^From .*/)) {
    $buffer[$i++] = $_;
    if ($h == 0) {
      $h = $i - 1 if /^$/;
      $f = 1 if /^Lines: .*/;
    }
  }
}
$l = $i - $h - 1;
for ($j = 0; $j < $h; $j++) {
  print $buffer[$j];
}
print "Lines: $l\n" if $f == 0;
for ($j = $h; $j < $i; $j++) {
  print $buffer[$j];
}
--$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J----$B$A$g$-$A$g$-(J--
--
# |     $B$X(J   ,           $BF|K\$NKpD`$j(J(Trout Fishing in Japan)$B!w$G$s$A$e!<$1$s(J
# j >$B!,!D!D!D!D(J<  $BEhED(J $B>fM5(J(Shimada Takehiro)$B!w>pJs%7%9%F%`It!%7P:Q8&!%EECf8&(J
#      $B!4(J   $B!.(J                                           shimada@denken.or.jp