菜鸟求问，正则问题

sunzhiguolu

等价于下面这个:

1. $seq =~ s/[>\r*]//g

复制代码

zhlong8

删除那三种字符

sunzhiguolu

回复 3# YQ_Liu
\r 效果不明显, 做个小测试 就明白了.

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub replace_and_print{
   
7.     my ($str, $regex) = (@_);
   
8.     print "Before Replace: '$str'\n";
   
9.     $str =~ s/$regex//g;
   
10.     print "After Replace: '$str'\n\n";
    
11. }
    
12. 
    
13. $_ = "*>>>>*>>>>*";
    
14. 
    
15. replace_and_print ($_, qr /[>]/);
    
16. replace_and_print ($_, qr /[*]/);
    
17. replace_and_print ($_, qr /[>*]/);
    

复制代码

华小飞_Perl

回复 2# sunzhiguolu


    大神，这个里面应该加个反斜线转义的吧，请赐教，$seq =~ s/[>\r\*]//g

sunzhiguolu

华小飞_Perl 发表于 2016-08-01 13:48
回复 2# sunzhiguolu

转义也行, 字符组内外 对元字符的解释是有区别的.
字符组内部 像 *, +, ? 等量词仅作为字面量.

华小飞_Perl

回复 9# sunzhiguolu

多谢大神，又多知道一点。