580
回編集
差分
提供: fukudat.net
ナビゲーションに移動検索に移動
→転送設定
use File::Basename;
my $mailfile = "$ENV{'HOME'}/mail/mbox";
binmode(STDIN, ":utf8");
open(my $out, ">>:utf8", $mailfile) || die "$mailfile: $!";
while (<>) {
print $out "\n";
close($out);
1;
</pre>
