|
scanpasswd.pl |
#!/usr/local/bin/perl -w my $passwd = "</etc/passwd"; open(PASSWD, $passwd) || die "Unable to read from $passwd\n"; while(<PASSWD>) { chomp; my ($login, $passwd, $uid, $gid, $name, $home, $shell) = split /:/; $passwd_by_uid{$uid} = $passwd_by_login{$login} = { login => $login, passwd => $passwd, uid => $uid, gid => $gid, name => $name, home => $home, shell => $shell }; } close(PASSWD); sub getpwent_by_uid { return $passwd_by_uid{$_[0]}; } sub getpwent_by_login { return $passwd_by_login{$_[0]}; } |
Genauso wie bei Listen können auch bei assoziativen
Arrays die Elemente Zeiger auf beliebige Datenstrukturen sein.
|
Copyright © 2000 Ingo Melzer, in HTML konvertiert am 10.11.2000 |