path name ##

##

path name
##

##

$/ = "";
$raw = "";
$linktext = "";
%atts = ();

while (<>)
{
while (/]+)>([^<]+)<\/A>/ig)
{
$raw = $1;
$linktext = $2;
$linktext =~ s/[\s]*\n/ /g;
while ($raw =~ /([^\s=]+)\s*=\s*("([^"]+)"|[^\s]+\s*)/ig)
{
if (defined $3)
{
	$atts{ uc($1) } = $3;
}
else
{
	$atts{ uc($1) } = $2;
}

print '-' x 15;
print "\nLink text: $linktext\n";

foreach $key ("HREF", "NAME", "TITLE", "REL", "REV", "TARGET")
		  
{
	if (exists($atts{$key}))
			
{
             
	$atts{$key} =~ s/[\s]*\n/ /g;
	print "   $key: $atts{$key}\n";
}
}
	%atts = ();
}
}
}