#!/usr/bin/perl
#Dieses Programm gibt die Zeile des Benutzers ein von
#der Datei /etc/passwd
die "Verwendung: $0 Name\n" if (@ARGV !=1);
($u) = @ ARGV;
open (IN, "/etc/passwd") || die "Datei nicht vorhanden\n";
while ($line = )
{
@l = split (/:/, $line);
($user) =@l;
if ($user eq $u)
{
foreach $h (@l)
{
print "$h ";
}
print "\n";
}
}
Fr Jul 30 13:54:24 CEST 2021
