Mega Code Archive

 

Categories / Perl / Hash

 

Loop through an associative array

while(<>) {         chop;         ($Header, $Value) = split(/:/,$_,2);         $Value =~ s/^\s+//;          # remove trailing whitespace         $Heading{$Header} = $Value;     }     foreach $Head (sort keys %Heading) {         print "$Head --> $Heading{$Head}\n";     }