Try this , it might give you an idea ...
my %HASH; while (<DATA>) { my ($name , $value ) = split(/\s+/,$_); if ( exists( $HASH{$name} ) ) { $HASH{$name} .= ",$value"; }else{ $HASH{$name} = $value; } } foreach my $name (keys %HASH) { print "Name : $name and values : $HASH{$name}\n"; } __DATA__ GEORGE 21 GEORGE 45 NICK 12 PETER 27 JIM 18 JIM 87 CHRIS 33
In reply to Re: Any hints on how to do this?
by ahmad
in thread Any hints on how to do this?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |