|
#!/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 use lib qw(dir1 dir2) können Verzeichnisse zu @INC
hinzugefügt werden. Dies ist direkten Manipulationen von
@INC vorzuziehen.
| |
Alle Prozedur- oder Variablennamen aus einem so
importierten Modul müssen mit dem Modulnamen
voll qualifiziert werden.
| |
Es gibt in Perl keinen (einfachen) Schutz gegen
die Verwendung von Internas eines Moduls. Per Konvention beginnen
private Namen mit einem _.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |