首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > perl python >

正则表达式

2012-03-26 
求一个正则表达式取得所有#开头的本行字符,除了以#region开头的如:# aa#bbdsfaasdf#dddsafds #eedafd #reg

求一个正则表达式
取得所有#开头的本行字符,除了以#region开头的

如:
# aa
#bb
dsfaasdf#dd
dsafds #ee
dafd #region dfdas
中,匹配到的字体串有:
# aa
#bb
#ee


[解决办法]
@arr = ('# aa', '#bb', 'asdf#cc', 'sdfefse#region sdfsdf');

foreach (@arr) {
if (/(#[^(region)]+)/) {
print $1;
}
}

[解决办法]
不好意思,格式也加进去了~~,重新贴一遍:

my $file = "text.txt";
my $HFILE;
open HFILE, "<$file";
while (<HFILE>) {
if (/^#[^(region)]+/) {
print;
}
}

热点排行