Question

求助正则表达式过滤特殊字符段

求助过滤某特殊代号字符段的正则表达式，各位老大帮帮忙哈，小弟这里拜谢了。
原代码是这样的
$regtxt = '/<option typeid=\"([0-9]{1,})\" subcounter=\"([0-9]{1,})\" value=\"([0-9]{1,})\" >(.*?)<\/option>/'; 源程序的功能是采集淘宝类目，这段代码是匹配其类目的数字代号的。
现在要求增加如下功能
typeid的值要过滤掉50035966
subcounter的值要过滤掉59790
value的值要过滤掉50035966
答得好还可以追加分数哦~

Answer 1

# S:~
use warnings;
use strict;

open IN, "<1.txt";
while(<IN>) {
my @t = $_ =~ /.*?=\s+(.*?)[:：].*/;
print '|'.$t[0]."|\n";
}