如何比较Perl中的两个字符串？

Question

如何比较Perl中的两个字符串？

我正在学习Perl,我有这个基本问题在StackOverflow上查找了它并且没有找到好答案所以我想我会问.

Answer 1

见perldoc perlop.使用lt,gt,eq,ne,并cmp酌情进行字符串比较:

eq如果左参数的字符串等于右参数,则二进制返回true.

ne如果左参数的字符串不等于右参数,则二进制返回true.

二进制cmp返回-1,0或1,具体取决于左参数是否是字符串小于,等于或大于右参数.

Binary ~~在其参数之间进行了智能匹配....

lt,le,ge,gt和cmp使用由当前区域指定的排序规则(排序)命令,如果一个传统的使用区域(但不是use locale ':not_characters')生效.见perllocale.不要将这些与Unicode混合,只与传统的二进制编码混合使用.标准的Unicode :: Collat​​e和Unicode :: Collat​​e :: Locale模块为排序规则问题提供了更强大的解决方案.

Answer 2

• cmp 相比

  'a' cmp 'b' # -1
  'b' cmp 'a' #  1
  'a' cmp 'a' #  0
  

• eq 等于

  'a' eq  'b' #  0
  'b' eq  'a' #  0
  'a' eq  'a' #  1
  

• ne 不等于

  'a' ne  'b' #  1
  'b' ne  'a' #  1
  'a' ne  'a' #  0
  

• lt 少于

  'a' lt  'b' #  1
  'b' lt  'a' #  0
  'a' lt  'a' #  0
  

• le 小于或等于

  'a' le  'b' #  1
  'b' le  'a' #  0
  'a' le  'a' #  1
  

• gt 比...更棒

  'a' gt  'b' #  0
  'b' gt  'a' #  1
  'a' gt  'a' #  0
  

• ge 大于或等于

  'a' ge  'b' #  0
  'b' ge  'a' #  1
  'a' ge  'a' #  1
  

有关perldoc perlop更多信息,请参阅

(我正在简化这一点,但是cmp返回一个既是空字符串又是数字零值而不是字符值的值0,以及一个既是字符串'1'又是数值的值1.这些值与您相同总是从Perl中的布尔运算符得到.你应该只使用boolean或numeric操作的返回值,在这种情况下差异并不重要.)

Answer 3

除了SinanÜnür字符串比较运算符的全面列表外,Perl 5.10还增加了智能匹配运算符.

智能匹配运算符根据其类型比较两个项目.请参阅下面的图表了解5.10行为(我相信这种行为在5.10.1中略有变化):

perldoc perlsyn"详细智能匹配":

智能匹配的行为取决于其参数的类型.它总是可交换的,即$a ~~ $b行为相同$b ~~ $a.行为由下表确定:以任一顺序应用的第一行确定匹配行为.

  $a      $b        Type of Match Implied    Matching Code
  ======  =====     =====================    =============
  (overloading trumps everything)

  Code[+] Code[+]   referential equality     $a == $b   
  Any     Code[+]   scalar sub truth         $b?>($a)   

  Hash    Hash      hash keys identical      [sort keys %$a]~~[sort keys %$b]
  Hash    Array     hash slice existence     grep {exists $a?>{$_}} @$b
  Hash    Regex     hash key grep            grep /$b/, keys %$a
  Hash    Any       hash entry existence     exists $a?>{$b}

  Array   Array     arrays are identical[*]
  Array   Regex     array grep               grep /$b/, @$a
  Array   Num       array contains number    grep $_ == $b, @$a 
  Array   Any       array contains string    grep $_ eq $b, @$a 

  Any     undef     undefined                !defined $a
  Any     Regex     pattern match            $a =~ /$b/ 
  Code()  Code()    results are equal        $a?>() eq $b?>()
  Any     Code()    simple closure truth     $b?>() # ignoring $a
  Num     numish[!] numeric equality         $a == $b   
  Any     Str       string equality          $a eq $b   
  Any     Num       numeric equality         $a == $b   

  Any     Any       string equality          $a eq $b   

+ ? this must be a code reference whose prototype (if present) is not ""
(subs with a "" prototype are dealt with by the 'Code()' entry lower down) 
* ? that is, each element matches the element of same index in the other
array. If a circular reference is found, we fall back to referential 
equality.   
! ? either a real number, or a string that looks like a number

当然,"匹配代码"并不代表真正的匹配代码:它只是用于解释预期含义.与grep不同,智能匹配运算符会尽可能短路.

通过重载进行自定义匹配您可以通过重载~~运算符来更改对象的匹配方式.这胜过了通常的智能匹配语义.见overload.

Answer 4

print "Matched!\n" if ($str1 eq $str2)

Perl具有单独的字符串比较和数字比较运算符,以帮助松散键入语言.您应该阅读所有不同运营商的perlop.

Answer 5

这个问题的明显潜台词是:

为什么你不能==用来检查两个字符串是否相同？

Perl没有针对文本与数字的不同数据类型.它们都由"标量"类型表示.换句话说,如果您使用字符串,字符串就是数字.

if ( 4 == "4" ) { print "true"; } else { print "false"; }
true

if ( "4" == "4.0" ) { print "true"; } else { print "false"; }
true

print "3"+4
7

由于文本和数字没有被语言区分,我们不能简单地重载==操作符来为两种情况做正确的事情.因此,Perl提供eq了将值作为文本进行比较:

if ( "4" eq "4.0" ) { print "true"; } else { print "false"; }
false

if ( "4.0" eq "4.0" ) { print "true"; } else { print "false"; }
true

简而言之:

• Perl没有专门用于文本字符串的数据类型
• 使用==或!=将两个操作数作为数字进行比较
• 使用eq或ne将两个操作数作为文本进行比较

还有许多其他函数和运算符可用于比较标量值,但知道这两种形式之间的区别是重要的第一步.