ひうら＠きょうだいです。
> > 簡単にできるようならやってみましょう。
> > ＃メールヘッダを取るのもたいへん
>
> ありゃ？ 今書いたこんなんじゃだめすか？
>
> #!/usr/local/bin/perl
> while(<>) {
> $body = 1 if (!$body && /^$/);
> next if ($body && /^>/);
> print if $body;
> }
>
> あんいー ^_^;
おお。perl は不得意なんすけど、
">" で適当にやろう思ってましたが空行は考えなかったなあ ^^
無責任処理方式で勝手にランクつけます。
＃現在スプールの容量は 12MB 強すね。1MB 以上書いてたら、
＃バツゲームはありませんけど、反省しましょ ^^;;;;;