- 706 名前：700 mailto:sage [2009/10/04(日) 01:55:44 ]
- こういう感じで元の文字列を取ることができました
ありがとうございます
perl -e '
use re "eval";
$hoge = q/ho..(?{$str="ho.."})|hu..(?{$str="hu.."})/;
"huga" =~ /$hoge/;
print "1:$str\n";
"hoge" =~ /$hoge/;
print "2:$str\n";
'
1:hu..
2:ho..
やりたかったのは
%hash = (
'\s+' => 'space',
'\d+' => 'number',
'\w+' => 'word',
);
という感じのハッシュのキーを合成して、一番最初にマッチしたものの名前を返す関数の作成だったので、
これでいけそうです
