#!/usr/bin/perl # -*- Perl -*- # Perl-Beispielscripts V1.00 - Ausgabe von /etc/passwd # Copyright (C) 1997, Ronald Blaschke - 9620411 # # $RCSfile: passwd1.pl,v $ - $Author: rbla $ # $Revision: 1.1 $ - $Date: 1997/06/13 00:57:29 $ # Formatangabe für STDOUT, Titelzeile format STDOUT_TOP = Passwd File Name Login Uid Gid Home ------------------------------------------------------------------ . # Formatangabe für STDOUT, normale Zeile format STDOUT = @<<<<<<<<<<<<<<<<<<<<<<<<< @||||||| @>>>> @>>>> @<<<<<<<<<<<<<<<<< $user_name, $login_name, $uid, $gid, $directory . open(P, "/etc/passwd"); while(
) { # Eine Zeile aus dem Filehandle P lesen; # liefert true, wenn eine Zeile gelesen werden konnte chomp; # Zeilenumbruch entfernen # Einträge der Passwd aufspalten (siehe passwd(1), chfn(1)) ($login_name, $passwd, $uid, $gid, $user_name, $directory, $shell)=split(/:/,$_, 7); ($user_name)=split(/,/,$user_name); # Behalte von den Benutzerinfos nur den Namen # BLOCK if EXPR write if $user_name; } close(P);