Wednesday, July 17, 2013

How do you extract string between two key words in perl?

my $title = "<locator>readytips.blogspot.in</locator>";
$title =~m/<locator>([\s\S]+?)<\/locator>/;
print $1;
$title =~m/<locator>(.*?)<\/locator>/;
print $1;
$title =~m/<locator>(.*+)<\/locator>/;
print $1;
$title =~ /<locator>\s+(.*)\s+<\/locator>/;
print $1;

No comments :