タイトル通り。 参考にしたのは、http://d.hatena.ne.jp/layerzero/20090930/p1。 tweet_poster.pl use utf8; use strict; use warnings; # 日本語で書いてます。 my $comfile = 'command.txt'; -e $comfile or exit(); # コマンドファイルがなければ何もしない。 my $resfile = 'result.txt'; # コマンドを読み込む use Jcode; my $j = Jcode->new(); open ( IN, $comfile ); my $ck = <IN>; chomp $ck; chomp $ck; my $cks = <IN>; chomp $cks; chomp $cks; my $user = <IN>; # ユーザー名の取得