use File::Find; 
require 5.6.1;  
 
my $dir = '/mainDirectory'; 
     
my $line; 
 
sub searcher 
{ 
     if( $_ =~ /\.(?:html?|pl)$/) 
        { 
          my $name = $File::Find::name; 
        open ( F, $name ) || warn "Can\'t open File $name: $!\n"; 
         
          while($line = <F>) 
          { 
         if ($line =~ m{^https?://([^/]+)}) #I think my problem is this reg expression?? 
         { 
        $server{$1}++; 
         } 
         }   
     close F; 
     } 
} 
 
find( \&searcher, $dir  ); 
 
for ( keys %server )  
{ 
    print "$_ : $server{$_}\n"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use HTML::LinkExtor; 
use URI; 
use File::Find; 
 
my %servers; 
my $dir = '/mainDirectory'; 
 
find(\&searcher, $dir); 
 
sub searcher { 
  return unless /\.(html?|pl)/; 
 
  my $p = HTML::LinkExtor->new; 
  $p->parse_file($File::Find::name); 
  foreach ($p->links) { # for each link found... 
    my ($tag, %attrs) = @$_; 
    foreach my $a (keys %attr) { # for each attribute of link 
      my $url = URI->new($attr{$a}); 
      $servers{$url->host}++; 
    } 
  } 
}

                                    
use strict;  
use warnings;  
use HTML::LinkExtor;  
use URI;  
use File::Find;  
                                    
my %servers;  
								   
my $dir = '/perl/bin/dester';  
                                    
find(\&searcher, $dir);  
                                    
sub searcher {  
  return unless /\.(html?|pl)/;  
                                    
  my $p = HTML::LinkExtor->new;  
  $p->parse_file($File::Find::name);  
  foreach ($p->links) { # for each link found...  
    my ($tag, %attrs) = @$_;  
    foreach my $a (keys %attrs) { # for each attribute of link  
      my $url = URI->new($attrs{$a});  
										 
      $servers{$url->host}++;  
      print "$_ = $attrs{$_}\n";   #doesnt print anything 
      print;   #prints reference addresses only 
    }  
  }  
}

#!/usr/bin/perl  
  
use strict;  
use warnings;  
use HTML::LinkExtor;  
use URI;  
use File::Find;  
  
my %servers;  
my $dir = 'C:/somewhere';  
   
# base URL to turn any relative URLs to absolute 
my $base = 'http://your.host.here/'; 
 
find(\&searcher, $dir);  
  
sub searcher {  
  return unless /\.(html?|pl)/;  
  
  my $p = HTML::LinkExtor->new;  
  $p->parse_file($File::Find::name);  
  foreach ($p->links) { # for each link found...  
    my ($tag, %attrs) = @$_;  
    foreach my $a (keys %attrs) { # for each attribute of link  
      my $url = URI->new_abs($attrs{$a}, $base); 
 
      next unless $url->scheme =~ /^http/; 
 
      $servers{$url->host}++;  
    }  
  }  
} 
 
for (keys %servers) { 
  print "$_ : $servers{$_}\n"; 
}

my $p = HTML::LinkExtor->new;   #constructor here 
$p->parse_file($File::Find::name);    #pare_file is a method doing what with $File::Find module?? 
foreach ($p->links)  
	{  
		# for each link found...   
		my ($tag, %attrs) = @$_;    #Looks like your creating an array ref here doing what? 
		foreach my $a (keys %attrs)  
		{  
			# for each attribute of link   
			my $url = URI->new_abs($attrs{$a}, $base);    #is new_abs a method doing what? 
			next unless $url->scheme =~ /^http/;   #is scheme a method  doing what? 
			$servers{$url->host}++;   
		}   
	 }

# This creates a new HTML::LinkExtor object and stores 
# a reference to it in $p 
my $p = HTML::LinkExtor->new; 
 
# "parse_file" is HTML::LinkExtor method. It parses the given 
# file looking for links and creating a list of links found 
$p->parse_file($File::Find::name); 
 
# You can access the list of found links using the "links" 
# method. 
foreach ($p->links)  {  
  # Each element in this list is a reference to an array. 
  # The first element of the array is the tag name, and the 
  # remaining elements are in pairs (attr name and attr value). 
  # This attribute data is, of course, perfect for storing in 
  # a hash. 
  # For example [ 'a', 'href', 'http://foo.com' ] 
  # We pull this array into a scalar containing the tag name 
  # and a hash containing the attr name/value pairs 
  my ($tag, %attrs) = @$_; 
 
  # We then iterate across the attributes 
  foreach my $a (keys %attrs) { 
    # This creates a new URI object. 
    # We use the "new_abs" constructor to create an 
    # absolute URI, i.e. one that always contains a scheme 
    # (e.g. http://) and a host (e.g. foo.com). 
    # Because some of the links we've found might be 
    # relative, we need to give it a base URL to add to  
    # relative URLs to create absolute ones. 
    my $url = URI->new_abs($attrs{$a}, $base); 
 
    # "scheme" is a method on the URI object which returns 
    # the scheme of the URL. We are only interested in URLs 
    # with the scheme "http". 
    next unless $url->scheme =~ /^http/; 
 
    # "host" is a method which returns the hostname part of 
    # the URL. We get the hostname and increment the 
    # associated value in the %servers hash. 
    $servers{$url->host}++;   
  } 
}

Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32. 
Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32. 
Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32. 
Can't locate object method "host" via package "URI::_foreign"  
at F:\Perl\bin\scriptname.pl line 32.

$servers{$url->host}++;

print ref $url, "  - $attrs{a}\n";

next if($url->scheme = /^httpt/);