免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1969 | 回复: 2

在文件某一行中查找字符串 [复制链接]

论坛徽章:
0
发表于 2013-07-24 00:47 |显示全部楼层
如题,想要在.txt文件中的某一行卡某一字符串是否存在,python中是if line.find('pcorr') != -1,那么在perl中是用什么来查找呢,新手求助

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-07-24 06:51 |显示全部楼层
试试:
  1. #!/usr/bin/perl
  2. use 5.018;
  3. my ( $F, $L, $P ) = @ARGV;
  4. @ARGV = ($F);
  5. while (<>) {
  6.     next if $. < $L;
  7.     say /$P/ ? 'YES' : 'NO' and last
  8. }
复制代码
  1. perl abc.pl word.txt 12 pcorr
复制代码

论坛徽章:
6
丑牛
日期:2014-03-21 15:42:04子鼠
日期:2014-04-12 11:50:17处女座
日期:2014-09-01 09:25:1115-16赛季CBA联赛之吉林
日期:2015-12-22 14:01:5215-16赛季CBA联赛之广东
日期:2016-03-08 18:49:422016科比退役纪念章
日期:2016-07-06 12:19:55
发表于 2013-07-24 14:12 |显示全部楼层
python中偶更喜欢用if 'pcorr' in line,perl得用正则,应该比python慢, if($line =~ m{pcorr}){}
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP