split und sort - #101539 (Allgemeines zu Perl)

moritz

2007-10-29 16:50

User since
2007-05-11
923 Artikel
HausmeisterIn

Ein guter Tipp zum Anfang: immer

Code: (dl )

use strict;

verwenden, und Variablen mit

Code: (dl )

my

deklarieren.

Ich habe nicht so ganz verstanden, was du jetzt mit den Zeilen machen willst - willst du die nach dem User sortieren, und dann die ganze Zeile ausgeben? Oder nur den User sortiert ausgeben?

In letzterem Falle ginge das as:

Code (perl): (dl )

use strict;
use warnings;

open my $in, '<', '/etc/passwd' or die "Can't read password file: $"!;
my @user
while (<$in>){
    my ($u) = split /:/, $_, 1;
    push @user, $u;
} 
close $in;
my @sorted = sort @user;
for (@sorted){
    print "$_\n";
}

Perl 6 - Perls Zukunft