请教一个正则的写法

cnncc

stanley_tam 发表于 2017-08-20 09:38
回复 5# cnncc
那就直接这样试试

谢谢，刚刚测试了，这样可以！

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

q1208c

回复 1# cnncc

1. .*<font color="Red">?</font>

复制代码

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

cnncc

q1208c 发表于 2017-08-25 23:19
回复 1# cnncc

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


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

遇到这种就出错了

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

cnncc

cnncc 发表于 2017-08-25 12:09
谢谢，刚刚测试了，这样可以！

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

遇到新bug，还是不行

q1208c

回复 13# cnncc

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

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $string = '<div _("Just test\"adfadf") class="box-body formConfirm" data-title="_("Delete")" data-msg="_("Remove Product?")">';
   
8. 
   
9. my $reg_str = qr/(_\(".*?"\))/;
   
10. 
    
11. my @mm = $string =~ /$reg_str/g ;
    
12. 
    
13. foreach my $m (@mm){
    
14.     print $m, "\n";
    
15. }
    

复制代码

1. _("Just test\"adfadf")
   
2. _("Delete")
   
3. _("Remove Product?")
   

复制代码

q1208c

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

q1208c

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

cnncc

q1208c 发表于 2017-08-26 20:46
回复 13# cnncc

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

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

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

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

jason680

回复 18# cnncc

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

q1208c

回复 18# cnncc

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $string = '<div _("Just test\"adfadf") _("loadfile(\"weetwe.txt\");\nremove product?") class="box-body formConfirm" data-title="_("Delete")" data-msg="_("Remove Product?")">';
   
8. 
   
9. my $reg_str = qr/(_\(".*?"\)(?:"|\s))/;
   
10. 
    
11. my @mm = $string =~ /$reg_str/g ;
    
12. 
    
13. foreach my $m (@mm){
    
14.     print "#", $m, "\n";
    
15. }

复制代码

加了个判断，不知道行不行。