Re^2: *fixed*Problem with <> and regex

That doesn't actually work:

c:\@Work\Perl>perl -wMstrict -le
"my $s = '<span class=\"author-name\" itemprop=\"author\">Romaxton</sp
+an>';
 ;;
 $s =~ s/<[^>]+(\w+)/$1/;
 print qq{'$s'};
"
'r">Romaxton</span>'
[download]

Comment on Re^2: fixedProblem with <> and regex Download Code

Replies are listed 'Best First'.
Re^3: fixedProblem with <> and regex by Laurent_R (Canon) on Mar 12, 2014 at 18:43 UTC
Yes, you are right. I was not in a position to test when I posted and I missed parts of it. I was thinking about something like this (assuming the string is in $_): `s/<[^>]+>(\w+).*/$1/;` [download] which does work, but there are actually some easier ways, such as: `print $1 if />(\w+)</;` [download]	[reply] [d/l] [select]