Perlコーディング初心者質問スレ Part 65

こんにちは。

日本語＋アルファベットのテキスト文章からアルファベットだけを削除するPerlCGIプログラムを作ってるのですが、
結果はどうしても文字化けしてしまいます。

テキスト文章 =~ s/[\w]//eg;

原因は文字コードにあるのだと思いますが、どうしたらよいでしょうか？
何か良い方法はないでしょうか？

>>951
シフトJISだったら2文字目に\wが引っかかる可能性あるね
my $t = decode("テキスト文書,

わー間違えた

use Encode;
my $t = decode("cp932", テキスト文書);
$t =~ s/\w+//g;
print encode("cp932", $t);

こんな感じかね

>>952
ゴミにはきいてないから消えてください。
自意識過剰で気持ち悪いです。

確認せずに書き込むほど知能が低いみたいだから>>953もどうせ間違いだろ

また回答が来たら間違えたとか言い出すんだろうな

迷惑だからこのスレから出ていけ

コードが間違ってるかどうかぐらいわかれよ

>>954
お前こそ消えろやｋｓ、質問者の分際で態度でけーんだよ

>>954
間違えた癖に気持ち悪いとか言ってる香具師のほうがよっぽど気持ち悪い。

二度と来なくていいよ、
誰もお前なんかに来て欲しいと思ってないから。

役に立たない池沼に占拠された役に立たないすれｗｗｗ

（某所からコピペした釣り質問だと気付いてないバカが大量に釣れてて笑える）

種明かしはいいから

>951=キチガイ

あれ？まだやってたの？
とっくの昔にTwitterでリプもらったので自意識過剰のあなた方は不要です。
本当に救いようがありませんね。

このように偽質問者が「Twitterで」と書いてくるまでがパターン

このように現実を認められない妄想狂が恥ずかし気もなく妄想を垂れ流すのもいつものこと

Perlなんかやってる時点で（ｒｙ

>>951
迷惑だよ

チキンラーメン食べたい

ご飯炊くときにチキンラーメン入れて炊くと旨いってきいたけど本当に旨いの？

まぁまぁ