使用perl匹配字符串[重复]

Question

我在一个变量中存储了一段字符串“Strawberry Hill”。但是我正在尝试使用正则表达式来查看字符串是否与特定格式匹配。如果字符串匹配，我想将它存储在一个变量中。但是，没有任何内容存储在变量中。我在 if 语句之外的同一个脚本中测试了正则表达式并且它有效。

  my $address="STRAWBERRY HILL";

    if($address=~ m/(\w+\s+\w+)/)
    {
        my $scheme_name=$1;
    }
    print " Scheme Name: $scheme_name";

Answer 1

首先，始终使用use strict; use warnings qw( all );。您的错误会在编译时被发现。

my 创建一个新变量，该变量的作用域为（仅在其中可见）它所在的最内层块。

有很多可能的解决方案。

• 移动print。

  if ( my ($scheme_name) = $address =~ /(\w+\s+\w+)/ ) {
      print "Scheme Name: $scheme_name\n";
  } else {
      print "Scheme Name: default\n";
  }
  

• 在if之前创建变量。

  my $scheme_name = "default";
  if ($address =~ /(\w+\s+\w+)/) {
      $scheme_name = $1;
  }
  
  print "Scheme Name: $scheme_name\n";
  

• 从使用if 切换到使用条件运算符。

  my $scheme_name = $address =~ /(\w+\s+\w+)/ ? $1 : "default";
  print "Scheme Name: $scheme_name\n";
  

Answer 2

简介

$scheme_name 需要在if 块之外定义。如果if 测试为假，则不会声明$scheme_name。

根据Perl's documentation of my：

my 将列出的变量声明为对 封闭块、文件或eval。如果不止一个变量 列出，列表必须放在括号中。

---

代码

See code in use here

my $address="STRAWBERRY HILL";
my $scheme_name="";

if($address=~ m/(\w+\s+\w+)/)
{
    $scheme_name = $1;
}
print " Scheme Name: $scheme_name";