Re^5: substitute character

See perlre on backreferences, but in the long run, you want something like HTML::TokeParser or HTML::TreeBuilder, because modifying HTML using regular expressions only works for reasonably well-formed HTML.

Comment on Re^5: substitute character

Replies are listed 'Best First'.
Re^6: substitute character by gem555 (Acolyte) on Sep 02, 2009 at 09:56 UTC
`#!/usr/bin/perl my $line; while (my $line = <DATA>){ $line =~ s/<span><p>(.*)/defined ($1) ? "<" : '</p><p>'/eg; print $line; } __DATA__ <span><p>This affected me deeply because < I was being treated for dep +ression then. < felt she was replacing me as mother and grandmother.` [download] This is just printing '<'. But the output needed is `<span><p>This affected me deeply because </p><p> I was being treated f +or depression then. </p><p> felt she was replacing me as mother and g +randmother.` [download]	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.

Re^6: substitute character
by gem555 (Acolyte) on Sep 02, 2009 at 09:56 UTC

#!/usr/bin/perl
my $line;
while (my $line = <DATA>){
$line =~ s/<span><p>(.*)/defined ($1) ? "<" : '</p><p>'/eg;
print $line;
}
__DATA__
<span><p>This affected me deeply because < I was being treated for dep
+ression then. < felt she was replacing me as mother and grandmother.
[download]

<span><p>This affected me deeply because </p><p> I was being treated f
+or depression then. </p><p> felt she was replacing me as mother and g
+randmother.
[download]

[reply]
[d/l]
[select]

A reply falls below the community's threshold of quality. You may see it by logging in.