Question

perl 提取（）括号中的数字

有一些文件，想把括号中的数字提取出来，大侠帮帮忙
>OTU129(2)
>OTU69(2)
>OTU121(2)
>OTU37(3)
>OTU70(2)
>OTU22(3)
>OTU105(2)
>OTU108(2)
>OTU97(2)
>OTU64(2)
>OTU94(2)
就是这样的情况，把（）里面的数字提取出来

谢谢帮忙！！！！

Answer 1

if(/OTU\d+\((\d+)\)/){$ext=$1;}
变量$ext就是要提取的值。

Answer 2

$_=~/(.*)\((.*)\)/;
print out "$2\n";