Inline Modifiers : modifier « Regular Expression « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Regular Expression » modifier 
Inline Modifiers
    

#!/usr/bin/perl
use warnings;
use strict;
my $string = "There's more than One Way to do it!";
print "Enter a test expression: ";
my $pat = <STDIN>;
chomp($pat);
if ($string =~ /$pat/) {
    print "'$pat' matches the sample string.\n";
else {
    print "No match found for '$pat'";
}

   
    
    
    
  
Related examples in the same category
1.The e Modifier Evaluating an Expression
2.The e modifier
3.The g Modifier Global Substitution
4.The m Operator and Matching
5.The m modifier controls the behavior of the $ and ^ anchor metacharacters.
6.The s Modifier-The Dot Metacharacter and the Newline
7.The s Operator and Substitution
8.The s operator supports a number of variables
9.The x Modifier: The Expressive Modifier
10.The i Modifier Case Insensitivity
11.\B matches only if the pattern is contained in a word.
12.The \s metasymbol and whitespace
13.ei modifier
14.Use /gc to remember position
15.Use \G to match rest of text
16.The \S metasymbol and nonwhitespace
17.Matching Modifiers
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.