Perlについての質問箱 30箱目

Perlについての質問箱 30箱目at TECH

Perlについての質問箱 30箱目 - 暇つぶし2ch254:デフォルトの名無しさん
07/04/14 22:55:57
>>184
@a = grep {/(foo|bar|baz)/} split /(foo|bar|baz)/ , $_;