perl择一匹配 #!/usr/bin/perlforeach ( qw(fred betty barney dino)){ if (/fred|barney/){ print "$_ matched "; }}