Getting What is Matched in Perl

To get what is matched:

$ji="London";

if ($ji =~ m/(Lon)/) {
print "$1";
}

Which Prints:
Lon


-We created a variable named $ji and stored London there.
-We put parenthesis around what we wanted to match Lon
-The parenthesis are stored in the built-in variable $1


if ($ji =~ m/(Lon(don))/) {
print "$1 $2";
}

Which Prints:
London don

-Whatever matches the first set of parenthesis is stored in $1
-The second set is stored in $2 and so on...




Copy and Paste Perl Code:

#!/usr/bin/perl

print "Content-type:text/html\n\n";

$ji="London";

if ($ji =~ m/(Lon(don))/) {
print "$1 $2";
}

exit;


Resources:
Matching with a Regular Expression, REGEX, in Perl


Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: Passing a Variable or Value to a Subroutine in Perl

Next Article: Check for Existing File in Perl

Bulletproof Web Design Dan Cederholm New $23.99	HTML & XHTML Chuck Musciano, Bi... New $29.99	Build Your Own Website The Right Way... Ian Lloyd New $19.77
New Perspectives on HTML, XHTML, and... Patrick Carey New $69.26	jQuery in Action Bear Bibeault, Yeh... New $26.39	JavaScript David Flanagan New $31.49
CSS Eric Meyer New $29.69	Information Architecture for the Wor... Louis Rosenfeld, P... New $26.39	HTML, XHTML, and CSS, Sixth Edition ... Elizabeth Castro New $23.09

Privacy Information