A program that illustrates the use of the matching operator. : Pattern matching « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Pattern matching

A program that illustrates the use of the matching operator.

    
#!/usr/local/bin/perl 

print ("Ask me a question politely:\n"); 
$question = <STDIN>; 
if ($question =~ /please/) { 
   print ("Thank you for being polite!\n"); 
} else { 
   print ("That was not very polite!\n"); 
}








Related examples in the same category

1.Pattern Matching Operators
2.Pattern Modifiers
3.Pattern Tester
4.Pattern anchors in Perl.
5.Pattern array
6.Pattern match
7.Pattern-Matching Operators(The syntax used to perform a pattern match on a string)
8.Pattern-matching options.
9.Patterns containing + always try to match as many characters as possible.
10.Using variables containing matched subpatterns.
11.Regular Expression Patterns
12.Regular expression character patterns
13.Regular expression metacharacters
14.Regular expression modifiers
15.Regular expression pattern quantifiers
16.Regular expression: start a string with period
17.Reversing subpatterns
18.Repeating patterns
19.Check for 'a'
20.Check for 4-8 a's
21.Check for a or b
22.Check for and remove a trailing backslash character
23.Check for leading alpha character, rest alphanumeric
24.Check for no 'a'
25.Check for white space
26./d.f/ matches d, followed by any non-newline character, followed by f
27./de{1,3}f/ matches d, followed by one, two, or three occurrences of e, followed by f.
28.Print line unless it matches E
29.Count the match times