in reply to Working With Arrays and Files
which gives you the following output:#!/usr/bin/perl my %hash; while (<DATA>) { chomp; my ($name, $column2, $column3, $column4, $column5, $type) = sp +lit/\s+/; $hash{$type} = $hash{$type} . "$name $column2 $column3 $column +4 $column5\n"; } foreach $key (sort keys %hash) { print "$key\n$hash{$key}\n"; } __DATA__ name1 1 2 3 4 typex name2 3 4 5 6 typey name3 2 3 3 1 typex
typex name1 1 2 3 4 name3 2 3 3 1 typey name2 3 4 5 6
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Working With Arrays and Files
by kevinw (Novice) on Jul 23, 2002 at 20:08 UTC |