perl使用散列筛选另一个散列内容

我从一个数据库下载了一个符号，这个数据库生成了这个符号，它很好地填充了符号散列。当我把钥匙分类时，我得到了这个

foreach $symbol ( sort keys %symbol_hash ) {
    print "$symbol\n ";
}
A AA AAL AAPL ABBV ABT ABT_SPIN ABX ACI ACN ACT ADBE ADI ADM ADSK AEIS AEO AES AET AFAM AGN AGU AIG AKAM AKS ALL ALNY ALR ALU AMAT AMGN AMP AMZN ANF ANN ANR APA APC ARCC

我有一个unix配置文件，其中包含许多进程的大量信息

这是配置文件

# Tick Size
# tr -d \  | sort -u
TickSizePostOpen = 1.00
TickSize = {
  penny1 = {
    TickSize = 0.00
    members = {
      IWM
      QQQ
      SPY
      SPY_TEST
    }
  }
  penny = {
    TickSize = </0.000/0.00/0.00
    members = {
A
AA
AAL
AAPL
ABT
ABT_SPIN
ZNGA
    }
  }
  notpenny = {
    TickSize = </9/9.99/9.99
  }
}
BIPP.QuoterOx = {
  Cup1and2 = {
    BIPP.QuoterOx = BIPP-ox-1
    members = {
      Cup_1
      Cup_2
    }
  }
 TRAP.PxByGroup = 1
TRAP.Px = {
  group1 = {
    TRAP.Px = OPTxxxxxx
    members = {
      px.TRAP.1
    }
  }
  group2 = {
    TRAP.Px = OPTxxxxxx
    members = {
      px.TRAP.2
    }
  }
TRAP.QuoterOx = {
  Cup0 = {
    TRAP.QuoterOx = QESxxxxx
    members = {
      Cup_0
      Cup_99
    }
  }
  Cup1and4and10 = {
    TRAP.QuoterOx = ise-ox-1-4-10-dti
    members = {
      Cup_1
      Cup_4
      Cup_10
    }
  }
Cup56 = {
    TRAP.AuctionOx = ise-ox-56-ecl
     members = {
      Cup_56
    }
  }
}
TRAP.RotateQuote = {
  rotatenames = {
    TRAP.RotateQuote = 1
      members = {
              AAPL
              ADY
              AEIS
              AFAM
              AGP
              ALNY
              ZINC
      }
  }
}
Underlying = {
  Cup0 = {
    Underlying = MHR
    members = {
      Cup_0
    }
  }
  g1 = {
    Underlying = CEL
    members = {
      Cup_1
    }
  }
}
BIPP.Px = {
    group1 = {
        BIPP.Px = BOXPXMHR1
        members = {
            px.BIPP.1
        }
    }
    group2 = {
        BIPP.Px = BOXPXMHR2
         members = {
            px.BIPP.2
        }
    }
}
TWIG.Px = {
   AB = {
   TWIG.Px = TWIGPXMHR1
   members = {
     A
     B
  }
 }
   CD = {
   TWIG.Px = TWIGPXMHR2
   members = {
     C
     D
    }
 }
   NOPQR = {
   TWIG.Px = TWIGPXMHR6
   members = {
      N
     O
      P
     Q
     R
   }
 }
   STUV = {
   TWIG.Px = TWIGPXMHR7
       members = {
          S
          T
          U
           V
       }
   }
   WXYZ = {
   TWIG.Px = TWIGPXMHR8
       members = {
           W
           X
           Y
           Z
      }
   }
}

#勾号大小
#tr-d\| sort-u
TickSizePostOpen=1.00
尺寸={
便士1={
TickSize=0.00
成员={
IWM
QQQ
间谍
间谍试验
}
}
便士={
TickSize=errstr；
$cur_msg->execute（）；
while（my@row=$cur\u msg->fetchrow\u数组）{
$symbol_hash{$row[0]}=1；
}
打开（我的$penny_fh，别忘了输入：

while (<$penny_fh>) {
    chomp;        # <-- remove line endings before string comparison

while（）{
chomp；#这可能只是一个复制/粘贴错误，但是您在
my$dbPass='boy；
行中缺少一个结束单引号，例如，您没有
chomp
在
$penny\u文件中的行中，所以您正在将
foo
与
foo\n
进行比较。是否有人对忘记
ch>有一个规范的答案omp
？@robarl我想我还没有见过一个通用的，足以作为一个规范。写一个好吗？如果你写的话，我想没有什么特别值得一提的（如果不是它自己的问题）。@ThisSuitisBlack不是吗？
while (<$penny_fh>) {
    chomp;        # <-- remove line endings before string comparison