小编ecl*_*are的帖子

我想在字符串中搜索给定的字符并返回它后面的字符。

根据此处的帖子，我尝试写作

my $string = 'v' . '2';
my $char = $string =~ 'v'.{0,1};
print $char;

但这会返回 1 和一个哈希值（我上次运行它时，确切的输出是 1HASH(0x11823a498)）。有谁知道为什么它返回一个散列而不是字符？

我有一个子程序，它取 $x 的值并给出 $a 的值。但是，我无法在子例程之外访问 $a 的值，因为它告诉我 $a 未定义。我昨天才了解了子程序，所以我认为我遗漏了一些关于它们的东西。

sub rout {
  if(@_ == 1) {
    my $a = 3;
  } else {
    my $a = 5;
  }
}

my $x = 1;
rout($x);
print $a;