regex - perl正規表現の一致と特定の文字のスカラー変数への格納

Question

ここで、ファイルに次の行があるとします。

my %address = (

または、ハッシュを定義した同様の行。

行内の文字 "(" を検索し、"address" を $hash_name に格納したいのですが、どうすればよいですか?

基本的な考え方は、ファイルで定義されたハッシュの名前を取得することです。

私がやろうとしているのは、

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

さらに進めるにはどうすればよいですか？

Answer 1

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