Thanks guys. But now I come up with one more question. Now I want to print all the lines sorted by the Town. Like this

Town         Surname       Firstname

Basel        Chaplin       Charlie          
Manica       Estevez       Emilio Santa   
Montmarte    Sarte         Jean Paul  
Montmarte    Rodin         Paul 
Amsterdam    Rikard        Frank
[download]

I did something like this:

my $data = "clients.dat";
open (DAT, $data) or die "\"$data\" not existed or can't be opened!\n"
+;
my @client;  # make this an array, not a hash;
my @fields = qw/surname firstname town/;

while (<DAT>) {
    next if ( /^Surname/ or /^-/ );
    my @values = unpack 'A20A20A20', $_;
    my %entry = map { $fields[$_] => $values[$_] } ( 0..$#fields );
    push @client, \%entry;
}

my @towns;
my $client;
foreach my $client (@client){
    push @towns, "$client->{'town'}";
}
my @sorted_towns = sort @towns;

foreach my $key (@sorted_towns) {
    my @elems = $key;
    my $client = $client->[$elems[1]-1];
    print "$client->{'town'} $client->{'surname'} $client->{'firstname
+'}";
    
}
[download]

But this doesnt work somehow. Can anyone help please?

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.