in reply to regexp's
# you might have to refine the regexp, but that should
# match your array
foreach $element (@array)
{ if ($element=~/(\d+).*\s+(\w+)/)
{
$hash{$2}=$1;
}
}
# probably not the best, but it should work!
|
---|
In Section
Seekers of Perl Wisdom