Pattern array : Pattern matching « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Pattern matching

Pattern array

    

@patterns =
(
    qr/\bis\b/,
    qr/\ba\b/,
    qr/\bnone\b/,
);

while (<>) {

    for ($loop_index = 0; $loop_index < $#patterns; $loop_index++) {

        if(/$patterns[$loop_index]/) {
           print "Matched pattern $loop_index!\n";
        }
        else {
           print "Didn't match pattern $loop_index.\n";
        }

    }
}








Related examples in the same category

1.Pattern Matching Operators
2.Pattern Modifiers
3.Pattern Tester
4.Pattern anchors in Perl.
5.Pattern match
6.Pattern-Matching Operators(The syntax used to perform a pattern match on a string)
7.Pattern-matching options.
8.Patterns containing + always try to match as many characters as possible.
9.Using variables containing matched subpatterns.
10.Regular Expression Patterns
11.Regular expression character patterns
12.Regular expression metacharacters
13.Regular expression modifiers
14.Regular expression pattern quantifiers
15.Regular expression: start a string with period
16.Reversing subpatterns
17.Repeating patterns
18.Check for 'a'
19.Check for 4-8 a's
20.Check for a or b
21.Check for and remove a trailing backslash character
22.Check for leading alpha character, rest alphanumeric
23.Check for no 'a'
24.Check for white space
25.A program that illustrates the use of the matching operator.
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