差分

提供: fukudat.net
ナビゲーションに移動検索に移動
55 バイト除去 、 2020年6月3日 (水) 20:21
use File::Basename;
my $mailfile = "$ENV{'HOME'}/mail/mbox";
 
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");
 
open(my $out, ">>:utf8", $mailfile) || die "$mailfile: $!";
while (<>) {
print $out "\n";
close($out);
 
1;
</pre>

案内メニュー