最近いそがしかったりでブログ全然かいてないですね…。 #!/usr/bin/perl my $out_file_name = '/tmp/mailout'; open(my $fh, ">>", $out_file_name) or die $!; while(<STDIN>){ print $fh $_; } 開発の時に、sendmailを触るプログラムとかつくりますけど、こういう</stdin>…