push(@INC, 'c:/namazu/share/namazu/pl');
require 'nmzidx.pl';

my $dir = ".";
my %list_f;
my $nmzi = new nmzidx($dir, 'r');
my $fh = $nmzi->open_flist;
open(OUT,">NMZ.field.link") || die "NMZ.field.link : $!";
while (defined $fh->read(\%list_f)){
	my $file_name = $list_f{'r'};
#	print "$file_name\n";
	print_links($file_name);
}

sub print_links{
	my $file_name = shift(@_);
	open(IN,"$file_name");
	$pattern = "<a\\s[^>]*href=([\"'])(http://.*?)\\1";
	#$pattern = "<a href=\"(http://[^\"]*)\"";
	$i = 0;
	while(<IN>){
		chomp;
		if (@links = /$pattern/ig){
			for (@links){
				if($i == 0){
					$i = 1;
				}else{
					print OUT "$_ ";
					$i = 0;
				}
			}
		}
	}
	print OUT "\n";
}