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