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

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

502:デフォルトの名無しさん
09/04/06 21:18:19
>>500
例えばこんな感じ？

@pair = $str =~ /((?:hoge\([^)]*)|(?:huga\([^)]*))/g;
foreach my $pair(@pairs){
　my($name, $value) = $split '\(', $pair;
　$name = 'hoge' ? $hoge = $value
　: $name = 'huga' ? $huga = $value
　: 1
　;
}

次ページ

続きを表示

1を表示