#!/usr/local/bin/perl -w
open ("in", "<passwd");
while (<in>)
{
($user) = split (/:/);
($user) = @user;
@sorted = sort (@user);
print "@sorted \n";
}
close "in";

use strict;

my

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";
}

($user) = @user;

push @user, $user;

#!/usr/bin/perl
use strict;
use warnings;


my $passwd = '/etc/passwd';
my @users = ();

open my $in, '<', $passwd or die "$passwd: $!\n";

while ( my $line = <$in> ) {

        my ( $user ) = split( /:/, $line, 2 );
        
        push @users, $user;
}

close $in;

@users = sort @users;

print "@users\n";

#!/usr/bin/perl
use strict;
use warnings;

my $passwd = '/etc/passwd';

open my $in, '<', $passwd or die "$passwd: $!\n";

# Listenkontext: Lese zeilenweise aus Filehandle, sortiere das gelesene
# splitte es am ':' in 2 Teile und nehme nur das erste; packe das ganze
# dann in @users
my @users = map { ( split(/:/, $_, 2) )[0] } sort <$in>;

close $in;

print "@users\n";