Die Benutzung von Modulen

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

testpasswd.pl
#!/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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003