Die use-Anweisung

testpasswd2.pl

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

	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.