«

I am trying to extract a url from a file and store it, the problem is
I only want the first occurance of that url that meets certain
criteria.

How can I get that single url out of a file and store it to be used
for something else?

Thanks

Digger wrote:

> How can I get that single url out of a file and store it to be used
> for something else?

You left out a critical bit of information: What format is the file in?
If it's HTML, use HTML:arser.

sherm--

--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org

On Fri, 07 Jan 2005 12:48:20 -0500, Sherm Pendley
<> wrote:

>Digger wrote:
>
>> How can I get that single url out of a file and store it to be used
>> for something else?
>
>You left out a critical bit of information: What format is the file in?
>If it's HTML, use HTML:arser.
>
>sherm--

Sorry, yes......

It's a flat text log file.....

date : error message: url: other garbage

Sherm Pendley wrote:
> Digger wrote:
>> I am trying to extract a url from a file and store it, the problem is
>> I only want the first occurance of that url that meets certain
>> criteria.
>>
>> How can I get that single url out of a file and store it to be used
>> for something else?
>
> You left out a critical bit of information: What format is the file in?
> If it's HTML, use HTML:arser.

Not necessarily. The OP didn't tell which criteria will be used to
identify the URL, but if those criteria has nothing to do with the
positioning of the URL in relation to various HTML elements,
HTML:arser won't reasonably be useful for the task, even if the file
happens to be an HTML page.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Digger wrote:

> I am trying to extract a url from a file and store it, the problem is
> I only want the first occurance of that url that meets certain
> criteria.
>
> How can I get that single url out of a file and store it to be used
> for something else?
>
> Thanks

use HTML::LinkExtor;

mjl

Digger wrote:
> Sherm Pendley wrote:
>> Digger wrote:
>>> How can I get that single url out of a file and store it to be
>>> used for something else?
>>
>> You left out a critical bit of information: What format is the file
>> in? If it's HTML, use HTML:arser.
>
> Sorry, yes......
>
> It's a flat text log file.....
>
> date : error message: url: other garbage

What part of the task do you have difficulties with? Show us what you
have tried so far, and somebody may be able to point you in the right
direction.

A hint: check out the split() function.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Gunnar Hjalmarsson wrote:

> Digger wrote:
> > Sherm Pendley wrote:
> >> Digger wrote:
> >>> How can I get that single url out of a file and store it to be
> >>> used for something else?
> >>
> >> You left out a critical bit of information: What format is the file
> >> in? If it's HTML, use HTML:arser.
> >
> > Sorry, yes......
> >
> > It's a flat text log file.....
> >
> > date : error message: url: other garbage
>
> What part of the task do you have difficulties with? Show us what you
> have tried so far, and somebody may be able to point you in the right
> direction.
>
> A hint: check out the split() function.

#!/usr/bin/perl

use strict;
use warnings;

open my $file, 'log.txt' or die "error: could not open file: $!";
for (<$file>)
{
print if s/.*url:\s+(\S+)\s+.*/$1/;
}

For the flat text log file described, I was thinking of something like
this, but it won't work if the url has spaces in it (like local paths
in Windows) or if there is not at least one space on each side of the
url.


mjl

On 7 Jan 2005 18:20:33 GMT, "mjl69" <> wrote:

>Digger wrote:
>
>> I am trying to extract a url from a file and store it, the problem is
>> I only want the first occurance of that url that meets certain
>> criteria.
>>
>> How can I get that single url out of a file and store it to be used
>> for something else?
>>
>> Thanks
>
>use HTML::LinkExtor;
>
>mjl

The criteria to extract the URL with bee either "FAILED" or
"SUCCESS"...

Example...


[2004-12-25 9:20:12] FAILED http://hotmail.com/bla
[2004-12-25 9:25:12] SUCCESS http://hotmail.com/bla
[2004-12-25 9:26:12] FAILED http://abc.com
[2004-12-25 9:27:12] FAILED http://123.com

etc.....

Digger wrote:

> The criteria to extract the URL with bee either "FAILED" or
> "SUCCESS"...
>
> Example...
>
>
> [2004-12-25 9:20:12] FAILED http://hotmail.com/bla
> [2004-12-25 9:25:12] SUCCESS http://hotmail.com/bla
> [2004-12-25 9:26:12] FAILED http://abc.com
> [2004-12-25 9:27:12] FAILED http://123.com

Just loop through the lines in the file. Use a regex to examine each
line and use last to exit from the loop as soon as you find what you're
looking for.

For example:

#!/usr/bin/perl

use strict;
use warnings;

# These are declared outside the while loop so you
# can use them after the loop exits
my $flag;
my $url;

while(<>) {
($flag, $url) = /(FAILED|SUCCESS) (.*)$/;
last if ($flag && $flag eq 'SUCCESS');
}

# Do something with $url ...

sherm--

--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org

mjl69 wrote:
> /.*url:\s+(\S+)\s+.*/;
> but it won't work if there is not at least one space on each side of the
> url.

Then use \s* instead of the first \s+ and get rid of the second.
You want either /.*?url:/ or /url:/ to ignore potential matches
in the garbage field.
-Joe