extract text between tags

[mike]

hi

i have a piece of code

my $text = "<A>ABC</A>";
if ( $text =~ m/ <A>(.*)<\/\1> / )
{
print "text is $text\n";
}

i want to extract "ABC" but could not get it to work. What is wrong with my code.?

thanks

[Roel van der Steen]

On Tue, 16 Mar 2004 at 08:25 GMT, mike wrote:

hi

i have a piece of code

my $text = "<A>ABC</A>";
if ( $text =~ m/ <A>(.*)<\/\1> / ) ^ ^ ^
1 2 1
1. Don't use space here
2. You should also capture what's between the angles for the backreference
to work
{
print "text is $text\n"; ^^^^^
This is probably where you want to print the text you tried to capture
}

i want to extract "ABC" but could not get it to work. What is wrong with my code.?

thanks

So, this will work:

my $text = '<A>ABC</A>';
if ( $text =~ m#<(A)>(.*)</\1># ) {
print "text is $2\n";
}

HTH, Roel