perlでの正規表現を教えてください。


$pict_regex = マッチパターン;

@hoge_list = (”hogehgoe.exe”, ”0001.jpg”, ”///”, ”0001.gif”, ”0001.png”, ”.”);
@hoge_list = grep(/$pict_regex/, @hoge_list);
print @hoge_list;
__END__

というスクリプトがあります。このとき出力が、
”0001.jpg”, ”0001.gif”, ”0001.png”
となるようなマッチパターンを教えてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/06/05 01:37:15
  • 終了:--

回答(1件)

id:matsu911 No.1

matsu911回答回数136ベストアンサー獲得回数02005/06/05 02:03:07

ポイント40pt

http://www.news-web.org/

ブログ ビジネス インターネット 新聞 ネット at news-web.org

@hoge_list = (”hogehgoe.exe”, ”0001.jpg”, ”///”, ”0001.gif”, ”0001.png”, ”.”);

for(@hoge_list){

local $¥ = ”¥n”;

print if /¥.(jpg|gif|png)$/;

}


こんなかんじですかね?

id:sakuneko

回答ありがとうございます。プログラムはこのままで上記の出力が可能になるマッチパターンを探しておりました。ちょっと趣旨の違う回答でしたが、内容は十分理解出来ましたので質問をクローズさせて頂きたいと思います。

ちなみにマッチパターンを

$pict_regex = ”¥.(jpg|gif|png)”;

とする事で上記の出力を得ることが出来ました。

2005/06/05 02:20:41

この質問への反応(ブックマークコメント)

トラックバック

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません