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
;
}
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
;
}