6.10 変数を含むパターンの処理速度を向上させる

  1. パターンが1つしか無い場合
while ($line = <>) {
  if ($line =~ /$pattern/o) {
    # 処理をここに書く
  }
}
  1. 複数のパターンがある場合
@pats = map { qr/$_/ } @strings;
while ($line = <>) {
    for $pat (@pats) {
      if ($line =~ /$pat/) {
        # 処理をここに書く
      }
    }
}