But i need it for this piece of code:
...and i decided i only realy need to delete <P> and the SPACE's nothing more)
counter = 1;
foreach my $elem (@gesorteerd) {
my($url,$headline) = $elem =~ m|<a HREF="(.*?)"(?:.*?)>\s*(.*?)\s*</a>|sgi;
if ($headline =~ /cd-rom|CD|CD-ROM|CD ROM/){
$output .= "<!-- this headline contained an illegal word -->";
} else {
$headline =~ s/<P>//g;
$headline =~ s/<p>//g;
# so here i need an extra edition to the piece of code,
#so this script alsow removes the extra spaces
$output .= "<br>$counter - <a href=\"$url\" target=\"_new\">$headline</a>\n";
$counter++;
}
}
...and i decided i only realy need to delete <P> and the SPACE's nothing more)
counter = 1;
foreach my $elem (@gesorteerd) {
my($url,$headline) = $elem =~ m|<a HREF="(.*?)"(?:.*?)>\s*(.*?)\s*</a>|sgi;
if ($headline =~ /cd-rom|CD|CD-ROM|CD ROM/){
$output .= "<!-- this headline contained an illegal word -->";
} else {
$headline =~ s/<P>//g;
$headline =~ s/<p>//g;
# so here i need an extra edition to the piece of code,
#so this script alsow removes the extra spaces
$output .= "<br>$counter - <a href=\"$url\" target=\"_new\">$headline</a>\n";
$counter++;
}
}