Perl Text File Help

[Core2]

Hi,

I have a text file that contains, web addresses such as '

http://www.amazon.co.uk'

etc one per line.

I need to get a perl script that will scan through this text file and tell me the percentage of domains listed that end in either .co.uk or .com

Any hlp would be greatly appreciated.

 

[audiopro]

You need to list the domain names one at a time then you can process each one. What do you have so far?

Keith

http://www.studiosoft.co.uk

 

[Core2]

Hi,

At the moment i don;t have anything was really just getting some idea son how to start and were best to start with this.

Thanks.

 

[audiopro]

Read the file into an array and process the array line by line.

Keith

http://www.studiosoft.co.uk

 

[Core2]

Ok, so far i have the following,

#!/usr/bin/perl -w

#Perl Script To Scan A Text File And Record The Percentage Of Domains Ending In .co.uk or .com

sub address()
{
$str=$_[0];
if($str=~m/\.co.uk\.com\Z/)
{
return 1;
}
return 0;
}
if( &address("\.co.uk\.com") == 1)
{
print "Valid Address\n"
}


how do this look for a base structure, where should i go form here?

 

[KevinADC]

if you want to figure percentage obviously you will need to count things. Incremet a scalar each time you find a domain that matches, and increment another scalar that is just the total number. Then do the math.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[KevinADC]

This question has been well answered on another forum so don't post any replies here unless you really want to.

------------------------------------------
- Kevin, perl coder unexceptional!