Hi,
Mine is not as elegant as J.Krahn's or Jeff's.
But it's an alternative.
I am just glad to contribute at least something
to the forum I have owed so much...
--
Regards,
Edward WIJAYA
SINGAPORE
-----------------------
use strict;
use warnings;
use Data::Dumper;
my %hash = ();
while (<DATA>) {
s/\s//g;
/(\w+)=(\w+)/;
$hash{$1} = $2;
}
print Dumper \%hash;
__DATA__
One = Hana
Two = Dool
Three = Set
------------------------------
output:
$VAR1 = {
'Three' => 'Set',
'Two' => 'Dool',
'One' => 'Hana'
};
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
