#!/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(<P>) {        # 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);

