> grep $USER /etc/passwd
>
> ausgegeben bekomme. Allerdings soll sie in folgender Form
> ausgegeben werden:
>
> Name: Mustermann
> UID: 523
> GID: 105
> Shell: /bin/sh
> HOME: /home/Mustermann
> Eintragslaenge: 66
>
> Wie kann ich das realisieren?
Ihr jungen Leute wißt euch echt bei den einfachsten Problemen nicht über die
Runden zu helfen...
#!/usr/bin/perl -w
use strict qw(vars);
my ($pl, $ln, $li, @fl);
die "Specify login name!\n" unless ($ARGV[0]);
$li = $ARGV[0];
open IN, "</etc/passwd" or die "pwd file: $!\n";
while (<IN>){
chomp;
$pl = $_ if (/^$li/);
}
close IN;
@fl = split /:/, $pl;
$ln = length($pl);
print <<EOF;
User: $fl[0]
UID: $fl[2]
GID: $fl[3]
Gecos: $fl[4]
Home: $fl[5]
Shell: $fl[6]
Length: $ln
EOF
exit 0;
Ist das 'ne Hausaufgabe für die Schule oder so? Du darfst dann morgen um 15
Uhr in Frankfurt, Stresemannallee 36 mein Auto zum Waschen und Polieren
abholen.
-martin
---------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
