忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
12
最近访问板块 发新帖
楼主: cnncc

请教一个正则的写法 [复制链接]

论坛徽章:
0
发表于 2017-08-25 12:09 |显示全部楼层
stanley_tam 发表于 2017-08-20 09:38
回复 5# cnncc
那就直接这样试试

谢谢,刚刚测试了,这样可以!

等于是把 (.*?) 改成 .*

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-25 23:19 |显示全部楼层
回复 1# cnncc

  1. .*<font color="Red">?</font>
复制代码

默认情况下是贪婪匹配, 你自己加个?,然后再问为啥会提前截断?

论坛徽章:
0
发表于 2017-08-26 17:45 |显示全部楼层

是的,我忽略了,我原来的正则是对的,只是中间不能有双引号。
如果拿掉正则,会一直匹配到底,如果一行有多个心眼提取的就出错了!


<div class="box-body formConfirm" data-title="_("Delete")" data-msg="_("Remove Product?")">

遇到这种就出错了

我的目的是要把 _("Delete") 和 _("Remove Product?") 取出来

论坛徽章:
0
发表于 2017-08-26 17:45 |显示全部楼层
cnncc 发表于 2017-08-25 12:09
谢谢,刚刚测试了,这样可以!

等于是把 (.*?) 改成 .*

遇到新bug,还是不行

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-26 20:46 |显示全部楼层
回复 13# cnncc

我试了一下,好象可以。不知道对不对。
  1. #!/usr/bin/perl


  2. use strict;
  3. use warnings;

  4. my $string = '<div _("Just test\"adfadf") class="box-body formConfirm" data-title="_("Delete")" data-msg="_("Remove Product?")">';

  5. my $reg_str = qr/(_\(".*?"\))/;

  6. my @mm = $string =~ /$reg_str/g ;

  7. foreach my $m (@mm){
  8.     print $m, "\n";
  9. }
复制代码
  1. _("Just test\"adfadf")
  2. _("Delete")
  3. _("Remove Product?")
复制代码

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-26 20:46 |显示全部楼层
本帖最后由 q1208c 于 2017-08-26 20:51 编辑

不好意思, 出了点问题,发了两遍一样的。

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-26 20:47 |显示全部楼层
本帖最后由 q1208c 于 2017-08-26 20:50 编辑

不好意思, 出了点问题,发了两遍一样的。

论坛徽章:
0
发表于 2017-08-26 21:25 |显示全部楼层
q1208c 发表于 2017-08-26 20:46
回复 13# cnncc

我试了一下,好象可以。不知道对不对。

测试了下,双引号好像可以了。

不过这种极端的还是不行,
_("loadfile(\"weetwe.txt\");\nremove product?")

谢谢,先不管它了,反正这种极端的例子很少出现。

论坛徽章:
115
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2017-08-28 10:17 |显示全部楼层
回复 18# cnncc

$ echo '_("loadfile(\"weetwe.txt\");\nremove product?")' | perl -pe 's/(_\(")(.+(?<!\\))("\))/<$1> <$2> <$3>/g'
<_("> <loadfile(\"weetwe.txt\");\nremove product?> <")>

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-28 21:04 |显示全部楼层
回复 18# cnncc

  1. #!/usr/bin/perl


  2. use strict;
  3. use warnings;

  4. my $string = '<div _("Just test\"adfadf") _("loadfile(\"weetwe.txt\");\nremove product?") class="box-body formConfirm" data-title="_("Delete")" data-msg="_("Remove Product?")">';

  5. my $reg_str = qr/(_\(".*?"\)(?:"|\s))/;

  6. my @mm = $string =~ /$reg_str/g ;

  7. foreach my $m (@mm){
  8.     print "#", $m, "\n";
  9. }
复制代码
加了个判断,不知道行不行。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

10张SACC2017门票等你来拿~

在数字化转型时代,云已成为万物智能的数字化大脑。而随着大数据应用、人工智能、移动互联网等技术的飞速发展,“智慧 +” 的概念正在深入到各行各业,提升企业效率,释放商业潜能,创造全新机遇。作为国内顶级技术盛会之一,2017 中国系统架构师大会(SACC2017)将于 10 月 19-21 日在北京新云南皇冠假日酒店震撼来袭。今年,大会以 “云智未来” 为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置 2 大主会场,18 个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100 余位技术专家及行业领袖来分享他们的经验;并将吸引 4000 + 人次的系统运维、架构师及 IT 决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年10月19日前

活动链接>>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP