|
#!/usr/local/bin/perl use strict; use warnings; require Passwd; my $cmdname = $0; $cmdname =~ s{.*/}{}; die "Usage: $cmdname login\n" unless @ARGV == 1; my $login = shift; my $pwentry = Passwd::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"; } |
Mit require wird ein Modul importiert. Dadurch
wird nicht der aktuelle Namensraum beeinflußt.
| |
Module werden in allen Verzeichnissen gesucht,
die in @INC enthalten sind. Dazu gehören alle
Bibliotheks-Verzeichnisse von Perl und das aktuelle Verzeichnis.
Mit der Environment-Variablen PERL5LIB oder entsprechenden
Angaben auf der Kommandozeile (-Idir) können weitere
Verzeichnisse für Module angegeben werden.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |