第七章：正则表达式

1)
use warnings;## Copyright (C) 2008 by xjiang## Copyright (C) 2008 by xjiang## Copyright (C) 2008 by xjiang## Copyright (C) 2008 by xjiang
chomp (my @file = <>);
foreach (@file){
 if (/(fred)+/){
  print "\"$_\" contains fred.\n";
 } 
}

2)
use warnings;
chomp (my @file = <>);
foreach (@file){
 if (/[fF]red/){
  print "\"$_\" contains fred or Fred.\n";
 } 
}

3)
use warnings;
chomp (my @file = <>);
foreach (@file){
 if (/\.+/){
  print "\"$_\" contains '.' .\n";
 } 
}

4)
use warnings;
chomp (my @file = <>);
foreach (@file){
 if (/([A-Z][a-z])+/){
  print "\"$_\" matches pattern .\n";
 } 
}

5)
use warnings;
chomp (my @file = <>);
foreach (@file){
 if (/wilma.*fred|fred.*wilma/){
  print "\"$_\" contains 'wilma' and 'fred' .\n";
 } 
}
#while(<>){}