regex - perl 正则表达式匹配并将特定字符存储在标量变量中

Question

现在假设说我在文件中有这一行：

my %address = (

或我在其中定义了哈希的任何类似行。

我想在行中找到字符“（”并将“地址”存储在 $hash_name 中。我该怎么做？

基本思想是捕获文件中定义的哈希的名称。

我想做的是，

foreach $line <MYFILE> {
  if($line =~ /($/ {

我该如何进一步进行？

Answer 1

不确定我是否理解您的问题，但是，如何：

my %hash;
while (my $line = <MYFILE>) {
    if ($line =~ /\%(\w+)\s*=\s*\($/) {
        $hash{$1} = 1;
    }
}

Answer 2

open (F1,"inputfile.txt") or die("unable to open inputfile.txt");
my $hash_name
    while (<F1>) {
        if (/%(\w+) *= *\(/) {
            $hash_name = $1;
            print $hash_name;
        }
    }