|
scanpasswd.pl |
#!/usr/local/bin/perl -w $passwd = "</etc/passwd"; open(PASSWD, $passwd) || die "Unable to read from $passwd\n"; while(<PASSWD>) { chomp; ($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 © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |