人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

perlで、@をatなど別の文字列に変換したいのですが、s/?@/at/g;とすると、漢字の2バイト目(例えば、全角空白の2バイト目)も変換されてしまいます。(漢字コードはShift JIS)1バイト文字の'@'のみを置換する方法を探しています。

●質問者: dayofgreen
●カテゴリ:インターネット ウェブ制作
✍キーワード:AT JIS Perl コード バイト
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● pahoo
●143ポイント ベストアンサー

use Encode を使い、シフトJISコードをいったん内部形式に変換してから置換します。

use Encode;

my $str = "A @ BCD";
my $pat = "\@";
my $rep = "at";

#内部形式に変換
$str = decode("Shift-JIS", $str);
$pat = decode("Shift-JIS", $pat);
$rep = decode("Shift-JIS", $rep);

#置換
$str =~ s/$pat/$rep/g;

#シフトJISに戻す
$str = encode("Shift-JIS", $str);
◎質問者からの返答

ありがとうございます!解決しました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ