wilamowski-b-m-irwin-j-d-industrial-communication-systems-2011

Automatic Data Mining on Internet by Using PERL Scripting Language 66-5
$title_row=$Sheet->Cells(1,$col)->{'Value'};
#extract manuscript and save in an array
if ($title_col=∼ m/Manuscript/)
{$area[$row-1]=$Sheet->Cells($row,$col)
->{'Value'};}
#extract email and save in an array
if ($title_col =∼ m/Email Address/)
{$email[$row-1]=$Sheet->Cells($row,$col)
->{'Value'};}
}
}
$Excel->Quit();
}
for($n=0;$n