perlで「タ」の置換ができないので、対処方法教えてください。
WindowsXPにインストールしたperl, v5.8.7で、「タ」の置換を行いたいのですが、
なぜかできません。
その他の文字はできます。
ソースですが、
$line ="タチツテト";
$before = "タ";
$after = "た";
$line =~ s/$before/$after/;
print $line;
です。
ソースは、SJISで書いてます。
よろしくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
perlcodesample
満足60pt
正規表現ではShift-JISは正しく扱えません。
日本語を正しく扱いたい場合は、Perlが文字を扱うときの内部形式にデコード
する必要があります。
use encoding 'sjis'; は以下のような内容を自動で行ってくれます。
#!/usr/bin/perl use strict; use warnings; use Encode; # decode, encode 関数を使うため。 # ソースコードがShift-JISの場合は、文字列リテラルもShift-JISになります。 my $line ="タチツテト"; my $before = "タ"; my $after = "た"; # Shift-JISからPerlの内部形式にデコードします。 $line = decode( 'shift-jis', $line ); $before = decode( 'shift-jis', $before ); $after = decode( 'shift-jis', $after ); $line =~ s/$before/$after/; # 出力するときは、Shift-JIS にエンコードします。 print encode( 'shift-jis', $line ); __END__
-
samasuya
-
samasuyaこの質問へのコメント
質問の情報
- 登録日時
- 2008-09-27 12:36:18
- 終了日時
- 2008-09-27 20:18:00
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか ●柑橘類の匂い …
匿名質問者
1
-
アメリカ本土は、４つの時間があるようですが、同じ州なのに、ふたつに分かれているところがあります。銀行…匿名質問者
-
【東京ディズニーランドに行きたくても行けない】中学生のとき父親に「ディズニーランドに行きたい」と言っ…匿名質問者1
-
岳父(がくふ)というと、妻の父です。妻の母は、丈母(じょうぼ) でもよいようです。さて、①夫の父は、何と…匿名質問者
-
音楽のドレミですが、日本では、音階がドレミで、音名はハニホです。ドイツではCDE、英米でCDE、そして、イ…匿名質問者1
2
1
http://www.rwds.net/kuroita/program/Perl_unicode.html#encoding
だっけ？
質問した記録残したいんですが、キャンセル扱いになってしまいますので・・・。
お手数お掛けしてすみませんが、よろしくお願いします。