best regards neniro#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $string = q(one tow three four five six); my @words = split(/ /, $string); my %hash1; my %hash2; $hash2{$words[1]} = join(" ", @words[2..5]); $hash1{$words[0]} = \%hash2; print Dumper(%hash1);
In reply to Re: Hash of Hash
by neniro
in thread Hash of Hash
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |