|
#!/usr/local/bin/perl use strict; use warnings; use Passwd2; my $cmdname = $0; $cmdname =~ s{.*/}{}; die "Usage: $cmdname login\n" unless @ARGV == 1; my $login = shift; my $pwentry = getpwent_by_login($login); if (defined $pwentry) { print "Name: $pwentry->{name}\n"; print "UID: $pwentry->{uid}\n"; print "GID: $pwentry->{gid}\n"; } else { print "$cmdname: $login is not in passwd.\n"; } |
Wenn nicht nur das Modul zur Verfügung stehen soll,
sondern auch Namen in den eigenen Namensraum zu übernehmen
sind, wird use anstatt von require verwendet.
| |
Entsprechend läßt sich nachher getpwent_by_login
ohne weitere Qualifizierung verwenden.
| |
Von dieser Technik sollte nur sehr zurückhaltend
Gebrauch gemacht werden, um Namenskollisionen zu
vermeiden.
| |
Es gibt Techniken zur partiellen Übernahme von Namen,
auf die hier nicht weiter eingegangen wird.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |