Hallo Zusammen
In der Schule müssen wir eine Arbeit machen (die benotet wird), wo wir mit einem PERL-Skript User aus einer Datei auslesen und anlegen sollen. Ausserdem soll jeder User ein Homeverzeichnis erhalten.
Ausserdem sollen wir ein Skript basteln, dass alle User in einer Liste löscht - mit Rückfrage auch, ob das Homeverzeichnis gelöscht werden soll.
Das absolut tolle daran:
Wir hatten in der Schule NULL Lektionen Theorie zu PERL, noch hatten wir bisher je etwas mit PERL gemacht. Wir haben einfach den Auftrag bekommen, für welchen wir jetzt 2 Wochen Zeit haben und welcher benotet wird.
Die User-Liste soll so aussehen:
Loginname, Gruppenname, Vorname, Nachname
Wenn die Gruppe nicht bereits existiert, soll sie angelegt werden.
Sonstige Anforderungen:
Für alle User wird ein Standardpasswort vergeben, dieses kann also als Variable im PERL Skript festgelegt werden.
Alle Home-Verzeichnisse werden in einem Verzeichnis angelegt, welches im Skript angegeben wird. Wird nichts angegeben, soll ein Standardpfad existieren.
Nach paar Stunden Googlen und herumbasteln sieht mein Skript nun so aus:
_________________________________________________________________________
#!/usr/bin/perl -w
#
# Autor:
# Datum: 18.05.2016
# Version: 1.0
#
# ***********************************************************
# * Dieses Skript erstellt User und fügt sie Gruppen hinzu. *
# * Wenn die Gruppen nicht existieren, werden sie erstellt. *
# ***********************************************************
my $skriptpfad = "/home/manuel/Dokumente/users-to-create.txt";
my $passwort = "Passwort123";
open (DATEI, $skriptpfad) or die $!;
@Benutzerzeile = <DATEI>; #Array wird in die Datei geschrieben
print @Benutzerzeile, "\n";
close (DATEI);
_________________________________________________________________________
Im Moment kann ich die Datei auslesen und in der Konsole ausgeben.
Kann mir jemand, der PERL kann, helfen, wie ich dieses Skript schreiben kann?
Wie gesagt, wir hatten NULL Stunden Theorie zur PERL.
Gruss
