LWP を利用してクエリー文字列を投げてみる。実行後、意味不明なエラーが出力される。syntax が間違っている訳ではなさそうだし。 検索をしてみると、MT 設置時のエラーとして表示されるとのこと。全然手がかりがない。 #!/opt/local/bin/perl -w use strict…

明示的に説明をしている資料が見つからなかったが、もしかして下記の文が正解なのか？ 標準入出力，標準エラー出力以外のデータについては，Encode モジュールの encode, decode 関数を使い，個別にエンコードを指定する必要があります。これは特にファイル…

use encoding 'euc-jp'; 上記は、すべての文字列を EUC-JP で利用する宣言と理解した。しかし、 $content = decode('shiftjis', $content); # コンテンツのコード変換 なぜ、Shift-JIS で取り込んだテキストデータを、Shift-JIS にデコードをして出力するの…

#!/opt/local/bin/perl -w use strict; use LWP::Simple; use Encode; use encoding 'eucjp'; binmode(STDERR, ':raw :encoding(eucjp)'); my $id = shift @ARGV || '074'; # 引数の取得 # 外務省海外安全ホームページ my $url = "http://www.anzen.mofa.go.…