Help for this page
@fields = split /:/; $process = shift @fields; $hash{$process}{'TEXT'} = shift @fields; $hash{$process}{'ACTION'} = shift @fields; $hash{$process}{'EMAIL'} = shift @fields;
foreach my $processKey (sort keys %hash) { ... print ":$daemontable{$processKey}{$hashKey}\n"; } }