Harv L R

... ... Harv L R .... .... ##

##

Harv L RHarvard Law Review
MLRModern Law Review

##

##


...
...
Harvard Law Review
....
....



##

##

use XML::XPath;
use XML::XPath::XMLParser;

$xp = XML::XPath->new(filename => 'mlr_648.xml');
$nodeset = $xp->find('//reference/title[@type="journal"]');
foreach my $node ($nodeset->get_nodelist)
{
   $line=XML::XPath::XMLParser::as_string($node);
   if($line =~m!(.*)!)
   {
       $jb = $1;
   }
   &rep($jb);
}

sub rep
{
   $jabb = $jb;
   open(DAT, "mlr.dat");
   $/=undef;
   $x=;
   while($x=~m!(.*)\t(.*)!ig)
   {
       %data = ("$1" => "$2");
       $jname = $data{$jabb};
       if($jname ne "")
       {
           print "$jname\n";
       }
   }

}