已经解决.结贴 脚本 Perl - 字符匹配计数 (空列表上下文)

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $text = "AADBAB";
   
8. my $cnt = () = $text =~ m/A|B/g;
   
9. say "Match times : $cnt";
   

复制代码

在以上的表达式中若没有那对小括号便不能获取到指定字符的匹配数量的总和, 如果您知道 "()" 在此处的含义. 请您给我一个回复, 在此先谢过大家了...

sunzhiguolu

    不知道在这对小括号中包含什么, 它居然能够求和. 如果大家有什么好方法可以进行测试验证的话, 也行. (另外, 这个东西是不是不属于大众的东西呀? 所以知道的人比较少.)

zhlong8

这是个很经典的例子，其实很简单他利用的是赋值表达式在 scalar context 的值

perlop#Assignment-Operators

a list assignment in list context produces the list of lvalues assigned to, and a list assignment in scalar context returns the number of elements produced by the expression on the right hand side of the assignment.

my $cnt = ( () = $text =~ m/A|B/g ); # $cnt 右边是个赋值表达式， ()= 是给 $text =~ m/A|B/g 提供 list context 用的，没有的话 $text =~ m/A|B/g 在 scalar context 下的行为是不太一样的。

104359176

Perl 是上下文敏感的语言，匹配操作在列表上下文中，返回匹配的值的列表。

1. my @match_strs = 'aabbcc' =~ /a|b/g;
   
2. # @match_strs eq ('a','a','b','b')

复制代码

而列表在标量上下文中返回列表的长度：

1. my $list_length = (1,2,3);
   
2. # $list_length == 3

复制代码

而在标量上下文中，匹配返回的是是否匹配：1 or ''

1. my $if_match = 'abc' =~ /a|b/g;
   
2. # $if_match == 1

复制代码

想直接返回匹配次数，可以这样写：

1. my $str = 'abc';
   
2. my $match_times = $str =~ s/(a|b)/$1/g;
   
3. # $match_times == 2

复制代码

sunzhiguolu

回复 4# 104359176
感觉 m 操作符 与 （ s 或 tr ） 操作符在匹配成功时返回值确有不同, 前者在未添加 /g 修饰符的前提下返回第一次匹配成功的 "1", 而后两者则是像您举例中那样返回的是匹配并替换或转换的总次数.

1. 
   
2. my $str = "aabbcc";
   
3. my $cnt = $str =~ tr/ab/ab/;
   

复制代码

方才我做了一些小测试, 测试的结果就像您所说的那样:

1. 
   
2. my @array = (1, 2, 3);
   
3. my $cnt = () = @array;        # $cnt = 3
   
4. $cnt = () = (@array, 4..7);   # $cnt = 7
   

复制代码

向您请教一下, 像这种操作符是不是属于比较小众化的东西. 在应用上不如使用 s 或 tr 那种的比较通用. 如果在以后的使用当中我应该选择那种方式比较好一些?

对了, 差点忘记向您道谢 (光看代码了). 感谢您的帮助.

   

sunzhiguolu

回复 3# zhlong8
我懂了, 谢谢您的帮助.

   

104359176

Perl 语言的哲学是条条大路通罗马，也就是同样的要求，往往有许多不同的实现。至于哪种实现适合你，你自己选择吧。我喜欢简洁的代码，而不同的人的思维模式又让简洁的定义因人而异。

sunzhiguolu

谢谢您, 我懂了...