全角文字列から英数字のみ抜き出す方法は？

質問

Perl 文字コード sjis

以下のように、全角文字列の中から、全角英数字のみを抜き出したいのですが、良い方法はありますでしょうか。

あア亜ＡＢＣ－１２３
↓
ＡＢＣ－１２３

宜しくお願い致します。

回答No.1

twinkleluz · ベストアンサー

いったんUTF-8に変換して、s///g置換で英文字以外を削除する方法が一番楽だと思います。
日本語処理するときは、いったんUTF-8に変換すると便利な場合が多々あります。

UTF-8の扱いについては、参考URLをどうぞ。

--------------------------------------------------
use Encode;

# 検索対象の文字列をUTF-8に変換
my $str = 'あア亜ＡＢＣ－１２３';
my $utf_str = Encode::decode('shift-jis', $str);

# 置換に使う条件文字列をUTF-8に変換
$trstr = '０-９Ａ-Ｚａ-ｚ－'; # ここは自由に変更してください
my $utf_trstr = Encode::decode('shift-jis', $trstr);

# UTF-8同士ならそのまま置換できる。
# $utf_trstrの中身以外の文字を削除
$utf_str =~ s/[^$utf_trstr]//g;

# 出力するときにshift-jisに戻す
print Encode::encode('shift-jis',$utf_str);

参考URL：

http://www.pure.ne.jp/~learner/program/Perl_unicode.html

お礼

うまくいきました。
ありがとうございます！

回答No.2

BLUEPIXY

use encoding 'shiftjis';

$text="あア亜ＡＢＣ－１２３";
$text =~ s/[^Ａ-Ｚａ-ｚ０-９！＄＆％＠＿？－]//g;
print $text;
#こんな感じで、英記号は適当に追加して下さい