fig27_12.py

PERL语言资料 可以用于PERL程序设计

# Fig. 27.12: fig27_12.py
# Program searches a string using the regular expression module.

import re

searchString = "Testing pattern matches"

expression1 = re.compile( r"Test" )
expression2 = re.compile( r"^Test" )
expression3 = re.compile( r"Test$" )
expression4 = re.compile( r"\b\w*es\b" )

if expression1.match( searchString ):
   print '"Test" was found.'
   
if expression2.match( searchString ):
   print '"Test" was found at the beginning of the line.'

if expression3.match( searchString ):
   print '"Test" was found at the end of the line.'
   
result = re.findall( expression4, searchString )

if result:
   print 'There are %d words(s) ending in "es":' % \
   ( len( result ) ),
   
   for item in result:
      print " " + item,

print


########################################################################## 
# (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
# All Rights Reserved.                                                   #
#                                                                        #
# DISCLAIMER: The authors and publisher of this book have used their     #
# best efforts in preparing the book. These efforts include the          #
# development, research, and testing of the theories and programs        #
# to determine their effectiveness. The authors and publisher make       #
# no warranty of any kind, expressed or implied, with regard to these    #
# programs or to the documentation contained in these books. The authors #
# and publisher shall not be liable in any event for incidental or       #
# consequential damages in connection with, or arising out of, the       #
# furnishing, performance, or use of these programs.                     #
##########################################################################