09/04/06 19:11:10
if(($str =~ /hoge\((.*?)\)/) && ($str =~ /foo\((.*?)\)/)){
$str =~ /hoge\((.*?)\)/;
$hoge=$1;
$str =~ /foo\((.*?)\)/;
$foo=$1;
}
これをもっと綺麗に書くことってできませんか？できたら教えてください。
hogeとfooの位置が前後する事があるのでこういう書き方にしました。
・やりたいこと
文中のhoge(あいうえお)とfoo(かきくけこ)から
$hoge="あいうえお"; $foo="かきくけこ";という変数を生成したい。