That's because my match isn't matching anything. It's not very
forgiving and anything so much as a space or case change in the wrong
place could throw it off. Can you alter the match a little so it will
catch the actual lines?
James
On Tuesday, September 17, 2002, at 10:58 AM, Ian wrote:
> 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]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
