perl 模式匹配

wx654123

请问各位大神，我想匹配D{blk_}这样的形式该怎么写啊？就是正则表达式，blk_后面还有其他字符串，比如有{blk_+},{blk_sh:}等等，我想直接匹配{blk_},统计下这一类一共有多少个...谢谢各位大神啦

q1208c

回复 1# wx654123

你总得上一段文本吧？
不然咋写呀？
   

yakczh_cu

$cnt ++ if /D{blk_.+}/;

wx654123

回复 2# q1208c 就是图片里那样的，我想统计一下D{blk_}这一类有多少个


   

sunzhiguolu

回复 4# wx654123
能否将文本贴出来,,,

   

wx654123

回复 5# sunzhiguolu 文本在楼上有，整个文本的话有点大


   

sunzhiguolu

回复 6# wx654123
你试下,

1. perl -nle '{$S++ while(m/\bD\{blk_.*?\}/g)}END{print $S}' f

复制代码

jason680

$ cat FILE
D{blk_blk} C{blk_blk}
D{blk_blk} B{blk_blk} D{blk_blk}
D{blk_-} D{blk_sh}

$ perl -lane '{$c+=grep{/D[{]blk_/}@F}END{print $c}' FILE
5

wx654123

回复 7# sunzhiguolu 太好了，谢谢你啦，另外，我对正则表达式这一块不太懂，大神能不能推荐我点学习资料啊，还有就是你给的这种linux命令的学习资料，谢谢啦！


   

sunzhiguolu

回复 9# wx654123
perl 命令行的资料, 我只有 Jason680 大神给的学习资料: (你也可以在网上搜下)
http://highdb.com/perl-one-line-command-%E4%BB%8B%E7%BB%8D/
http://www.perl.com/pub/2004/08/09/commandline.html

正则的话, <<学习正则表达式>> 这本书不知道适不适合你.