Hi,
Thank you but when I try and run that by doing a
Perl script.pl file.shtml >newfile.txt
I am getting a blank output.
Sorry if I did not explain myself correctly.
There are multiple instances of this line in the one page, and I need to
generate a simple text file to use for another application, which
happens to be a news ticker.
Thanks again for your help.
Ian
> 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]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
