Cheers,#! /usr/bin/perl env use strict; use warnings; my $hash; while(my $line = <DATA>) { my ($key, $val)=split(':',$line); $hash = ini($key,$val); } foreach (keys %$hash) { print "$_\n"; } sub ini { my ($key,$val)=@_; my %ini_hash; $ini_hash{$key}=$val; return \%ini_hash; } __DATA__ Name: Sam Address: Mascot Ph.No: 123321
In reply to Hash Add new elements through loop by tart
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |