Hi,
nichts leichter als das:
#!/usr/bin/perl -wuse strict;
my %seen; # Hash, um doppelte Eintrge zu filtern
my %pwmap;
while (<DATA>) {
chomp;
next if $seen{$_}++;
my ($user, $password) = $_ =~ m/^(.*), (.*)$/;
$pwmap{$user} = $password;
}
print map {"User <<$_>> hat Passwort <<$pwmap{$_}>>\n" } sort keys %pwmap;
__DATA__
namex, passworty
namex, passworty
namez, passwortz
namez, passwortz
namez, passwortz
Gruss,
svenXY
Datum: 05.12.2005-16:16
