in reply to split hash into two columns
my $half = scalar keys %hash; $half = $half / 2 + 1; my $cnt = 0; foreach (keys %hash) { $cnt++; my $key = $_; if ($cnt <= $half) { print "$key => $hash{$key}\n"; } else { print "\t$key => $hash{$key}\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: split hash into two columns
by ikegami (Patriarch) on Mar 27, 2006 at 20:52 UTC | |
by sulfericacid (Deacon) on Mar 27, 2006 at 20:54 UTC |