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

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

我正在学习Perl，我在StackOverflow上找到了这个基本问题，却没有很好的答案，所以我想问一下。

请参见perldoc perlop。使用lt，gt，eq，ne，并cmp酌情进行字符串比较：

eq如果left参数在字符串上等于right参数，则Binary 返回true。

ne如果左参数沿字符串方向不等于右参数，则Binary 返回true。

二进制cmp返回-1、0或1，具体取决于左参数是按字符串方式小于，等于还是大于右参数。

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

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

• 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中的布尔运算符获取的。您实际上应该只对布尔或数字运算使用返回值，在这种情况下，差异并不重要。）

除了SinanÜnür的字符串比较运算符的完整列表之外，Perl 5.10还添加了智能匹配运算符。

智能匹配运算符根据两个项目的类型对其进行比较。有关5.10行为，请参见下表（我认为此行为在5.10.1中会稍有变化）：

perldoc perlsyn“详细智能匹配”：

智能匹配的行为取决于其参数是什么类型的事物。它始终是可交换的，即$a ~~ $b行为与相同$b ~~ $a。行为由下表确定：以任何顺序应用的第一行将确定匹配行为。

  $ a $ b匹配类型隐含匹配代码
  ====== ===== ==================================
  （超载胜过一切）

  代码[+]代码[+]引用相等$ a == $ b   
  任何代码[+]标量子真值$ b->（$ a）   

  哈希哈希哈希键相同[排序键％$ a] ~~ [排序键％$ b]
  哈希数组哈希片存在grep {存在$ a-> {$ _}} @ $ b
  哈希正则表达式哈希密钥grep grep / $ b /，密钥％$ a
  散列存在任何散列条目$ a-> {$ b}

  数组数组数组相同[*]
  数组正则表达式数组grep grep / $ b /，@ $ a
  数组Num数组包含数字grep $ _ == $ b，@ $ a 
  数组任何数组包含字符串grep $ _ eq $ b，@ $ a 

  任何undef undefined！defined $ a
  任何正则表达式模式匹配$ a =〜/ $ b / 
  Code（）Code（）结果等于$ a->（）eq $ b->（）
  任何Code（）简单闭包真相$ b->（）＃忽略$ a
  Num numish [！]数值相等$ a == $ b   
  任何Str字符串相等$ a eq $ b   
  任何Num数值相等$ a == $ b   

  任何任何字符串等于$ a eq $ b   

+ –这必须是其原型（如果存在）不是“”的代码引用
（带有“”原型的潜艇由下方的“ Code（）”条目处理） 
*-也就是说，每个元素都与另一个元素中具有相同索引的元素匹配
数组。如果找到了循环引用，我们将退回引用
平等。   
！−实数或看起来像数字的字符串

当然，“匹配代码”并不代表真正的匹配代码：它只是用来解释预期的含义。与grep不同，智能匹配运算符会在可能的情况下短路。

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

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

Perl具有单独的字符串比较和数字比较运算符，以帮助简化语言的键入。您应该为所有不同的运算符阅读perlop。

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

为什么不能只使用==两个字符串是否相同？

Perl的文本和数字没有不同的数据类型。它们都由类型“ scalar”表示。换句话说，如果您将字符串原样使用，则字符串就是数字。

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来比较两个操作数作为文本

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

如果要提取两个字符串之间的差异，则可以使用String :: Diff。