perlを使って英文だけを取り出したい。

質問

下記($str1)のように、英文が混じっています。
その中から、英語だけの文字を取り出すことは、できないでしょうか？
もし、簡単なサブルーチンなどご存知でしたら教えてください。
宜しくお願い致します。

$str1 = "さま z a マ な mo じ が ハイ っ ています。";
$str2 = &omit($str1);

sub omit{

}

print "$str2";

結果出力
---------
z a mo

回答No.1

yuuki0229 · ベストアンサー

sub omit{
join " ", $_[0] =~ /(\w+)/g;
}
こんな感じでしょうか。
euc等で実行してください。

お礼

ご返答が遅れて申し訳ありません。
正常に変換することができました。
ありがとうございました。

回答No.2

ren10

sub omit{
$_[0] =~ s/\W//g;
return $_[0];
}

文字コードを EUC として
こんな感じでどうでしょう？

お礼

ご返答が遅れて申し訳ありません。
正常に変換することができました。
ありがとうございました。