Why not try grabbing all the important stuff right out of the pattern,
like my example below. Note: Your pattern may need changes if I
assumed too much, from your examples.
#!/usr/bin/perl
while (<>) {
if (m!<font class="fontclassz"><a href="([^"]+)">([^<]+)</a></font>!) {
print qq(<a href="$1" target="_blank" value="$2">);
}
}
On Tuesday, September 17, 2002, at 10:05 AM, Ian wrote:
> Hi,
>
> Please excuse this newbie question, but I am getting confused :(
>
> I need at have a small script that will extract selected words from a
> phrase
> and then insert them into a new string. I have an html page that I need
> to
> extract both urls & keywords from and put them into a new file. Should
> be
> fairly simple stuff - but it is beating me!!
>
> A typical example is
> <font class="fontclassz"><a href="http://domain.name";>text</a></font>
>
> The output needs to be as
> <a href="http://domain.name"; target="_blank" value="text">
>
> The first part and the last bit appear to be working (just), but it is
> the
> middle that I am stuck on.
>
> What I have put together so far is....
>
> #!/usr/bin/perl
> while ($line=<>) {
> if ($line =~ m|<font class="fontclassz">(.*?)</font>|) {
> $headline = $line;
> $url = $line;
> $line = $1;
> $headline =~ s|<[^>]*>||g;
> $url =~ s|<[^>]*>||g;
> $line = <<END;
> <a href="$url" target="_blank" value="$headline">
> END
> print "$line\n";
> }
> }
>
> I realise that both $headline and $url are the same at the moment, but
> having tried various alternatives, I am just getting more and more
> confused.
> Any assistance would be gratefully received.
>
> Ian
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
