下記perlスクリプトの、入力(ホームページ取得)と、テキスト出力(text.txt)を確実に、SHIFT_JISに指定したいのですがどの様にすれば良いでしょうか?
スクリプト（test.pl）の記述はUTF-8。
例になるURL('http://**************************')は常に、SHIFT_JISなので読み込みミスをしない様、SHIFT_JISを指定したい。
また、確実に、SHIFT_JISで保存を行いたい。
この2つの条件を満たすperlのスクリプトを教えてください。
宜しくお願い致します。
----test.pl------
#!/usr/local/bin/perl
$URL = 'http://**************************';
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my $proxy = new LWP::UserAgent;
$proxy->agent('ua');
$proxy->timeout(60);
my $req = HTTP::Request->new('GET' => $URL);
my $res = $proxy->request($req);
my $content = $res->content;
#プログラミングをprogrammingに置換
$str = 'プログラミング';
use Encode qw(from_to);
from_to($str,"utf8","SHIFT_JIS"); #UTF8に変換
$content =~ s/$str/programming/g;
open(F,">text.txt");
print F $content;
close(F);
__END__
ベストアンサー
-
Craftworks
満足60pt
http://blog.livedoor.jp/dankogai/archives/51221731.html
以下のソースは utf8 で保存
#!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use LWP::UserAgent; use Path::Class; my $url = shift; my $str = 'プログラミング'; my $ua = LWP::UserAgent->new; my $res = $ua->get($url); my $content = $res->decoded_content; # or Encode::decode('sjis', $res->content); $content =~ s/$str/programming/g; $content = Encode::encode('sjis', $content); my $file = Path::Class::File->new('text.txt'); my $fh = $file->openw; print $fh $content; $fh->close;
decoded_content() は文字化けする場合があるので、content() を使って明示的に Encode::decode() で変換した方が良さそうですね。
http://blog.livedoor.jp/sasata299/archives/51212133.html
Path::Class が使えない環境なら open は3引数で使いましょう。
open my $fh, '>', 'text.txt' or die $!;
-
TREEG
-
TREEGその他の回答
-
haruo-31
満足10pt
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ここの上から２０％位行ったところの記載に習って書くと、こんな感じですかね。
use utf8; open(F, ">somewhat.txt") or die $!; binmode F, ":encoding(sjis)"; print F "sjisになってるはずな文字列";
手元のUTF8なLinuxで確認した分ではちゃんとSHIFTJISでした。
-
TREEG
-
この質問へのコメント
質問の情報
- 登録日時
- 2009-06-10 00:34:07
- 終了日時
- 2009-06-10 10:14:58
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか ●柑橘類の匂い …
匿名質問者
1
-
アメリカ本土は、４つの時間があるようですが、同じ州なのに、ふたつに分かれているところがあります。銀行…匿名質問者
-
【東京ディズニーランドに行きたくても行けない】中学生のとき父親に「ディズニーランドに行きたい」と言っ…匿名質問者1
-
岳父(がくふ)というと、妻の父です。妻の母は、丈母(じょうぼ) でもよいようです。さて、①夫の父は、何と…匿名質問者
-
音楽のドレミですが、日本では、音階がドレミで、音名はハニホです。ドイツではCDE、英米でCDE、そして、イ…匿名質問者1
2
1
perldoc -f open
和訳（ページの真ん中より上寄り）
http://perldoc.jp/docs/perl/5.10.0/perlfunc.pod
ラクダ本
http://books.google.co.jp/books?id=6rNpvD--bBcC&pg=PA888&lpg=PA888&dq=perl+open+3%E5%BC%95%E6%95%B0&source=bl&ots=LlQKjUhvSE&sig=P1N5txZRqS9WQKYfQp-XA8k96uU&hl=ja&ei=jxMvSrG2EJGNkAXhuID_Dg&sa=X&oi=book_result&ct=result&resnum=2#PPA887,M1
オープン対象のファイル名にリテラルを使う場合は良いですが、ユーザー入力値のスカラーを使う場合に差が出てきます。
後はファイル名にスペースが入ってる場合など。
あとファイルハンドルも my したスカラーを使うほうが良いです。（F などではレキシカルスコープにならないため）
とても良く分かりました。