Dateizugriff

flock wird mit dem File-Handle der Datei und einer dezimalen Kennziffer aufgerufen, deren Bedeutung aus der nachfolgenden Tabelle hervorgeht.

1	LOCK_SH	shared read lock. Offener Zugriffsschutz, wird meist beim lesenden Zugriff verwendet. Andere dürfen während der Sperre die Datei lesen, schreiben darf jedoch nur der Benutzer, der die Sperre veranlaßt hat.
2	LOCK_EX	exclusive write lock. Exklusiver Zugriffsschutz, erlaubt anderen während der Sperre keinerlei Zugriff auf die Datei, auch keinen Lesezugriff.
4	LOCK_NB	nicht blockierende Sperre. Setzt lediglich einen Vermerk auf die datei ohne andere am Zugriff zu hindern.
8	LOCK_UN	unlock. Hebt eine Sperre wieder auf.

Aufgabe 2:
Schreiben Sie ein HTML-Dokument mit einem Formular, das dieselben Daten abfragt wie das Formular aus Aufgabe 1. Das Formular soll aber diesmal nicht an FormMail, sondern an ein CGI-Skript mit Namen Aufgabe2.pl in Ihrem CGI-Verzeichnis geschickt werden. Schreiben Sie ein Perl-Skript, das die Antworten entgegennimmt und Sie zeileweise in der Form:
Parametername=Parameterwert
in einer Datei in Ihrem Home-Verzeichnis auf dem CGI-Server ablegt. Nachfolgende Formulareingaben sollen immer hinten an die vorhandenen angehängt werden. Ihr Home-Verzeichnis dort hat den absoluten Pfadnamen /cgi/Kennung, wobei Kennung für Ihre Benutzerkennung steht. Die Formulareingaben sollen jeweils auch als normale Text-Datei an den WWW-Browser gehen. Abgesehen vom Abspeichern der Eingaben in einer Datei, soll Ihr Formular also so reagieren wie das nachfolgende:

Ein- & Ausgabe mit Pipes

   #!/softsrv1/bin/perl
   open(LS," ls -l |");
   while ($Zeile = ) {
    print $Zeile;
   }

   ../KURS/Pipe.pl

  ./Pipe.pl

   #!/softsrv1/bin/perl
   print "Content-type: text/plain\n\n";
   open(LS," ls -l |");
   while ($Zeile = <LS>) {
    print $Zeile;
   }

Ebenso kann man auch einen Ausgabestrom in einen anderen Prozeß pipen. Im folgenden Beispiel wird ein Ausgabestrom an ein Drucke-Kommando weitergereicht:

   #!/softsrv1/bin/perl
   open(DR,"| lpr -Pps1");
   while (<>) {
    print DR $_;
   }

Beispiel: Mail versenden

   open(MAIL,"|mail ss8i000\@uni-hamburg.de");
   print MAIL "Dies ist ein Test\n";
   close(MAIL);

Filehandles: Standareingabe: $a=<STDIN>;

chop($a = <STDIN>); gleich Newline abschneiden
while (<>) { .. } holt sich den Filenamen von der Eingabezeile; die Dateinamen kommen dabei in @ARGV
also könnte man auch folgendes machen:
@ARGV=("Datei1","Datei2","Datei3);
while (<>) { ... };
open(Filehandlename,"dateiname");
while($name=<Filehandlename>) {
chop($name);
print "$name\n";
}

ein vorgesetztes -M gibt die Zeit in Tagen seit der letzten Speicherung
Bsp: if (-M Filehandlename >7) { .... } schon eine Woche her

Bsp: Eine komplette Datei ausgeben
open(Filehandle,"/etc/passwd");
while (<Filehandle>) {
chop;
print "$_\n";
}

Bsp: Eine Datei kopieren
open(INFILE, "dateiname");
open(OUTFile,"outdateiname");
while (<INFILE>) {
print OUTFILE $_;
}
close(OUTFILE);
close(INFILE);

Bsp: Alle Dateien holen
while ($nextname = </etc/host*.*>) {
print "$nextname\n";
oder while ($nextname = </etc/host*>) {

$nextname = s#.*/##;
print "$nextname\n";
} alles von dem letzten / entfernen !

Öffnen für Ausgabe:
open(AusgabeName,">dateiname");
print AusgabeName "Dies ist ein test\n";

Wildcards:
while ($filename=<*.*>) {
print "ich habe $filename gefunden\n";
oder: @files=</etc/*.htm>; liefert alle *.htm-Dateien

Ein ganzes Directory lesen:
opendir(ETCDIR, "/etc");
while ($name=readdir(ETCDIR)) { print "$name\n"; usw........}
closedir(ETCDIR);

Datei umbenennen: rename($filename,"$filename.neu");

Datei löschen: unlink ("dateiname");
unlink (<*.html>); wie rm *.html

Datei auf Existens testen: if (-e $filename) { ... $filename existiert };

Datei ist lesbar: if (-r $filename) { ... $filename ist lesbar };

Datei ist beschreibbar: if (-w $filename) { ... $filename ist schreibbar };

Hier eine Liste der Datei-Test-Zeichen

-r lesbar  -w schreibbar  -x ausführbar  -o gehört dem Benutzer  -e existiert  -z existiert und hat die Größe Null  -s existiert und hat eine Größe  -f ist eine normale Datei  -d ist ein Directory  -l ist ein symb. Link	-S ist ein Socket  -p ist ein FIFO  -b ist ein Festplatte  -c ist ein Zeichengerät  -t ist ein Ausgabegerät  -T enthält Text  -B enthält Binärdaten  -M Zeit seit der letzten Änderung in Tagen  -A Zeit seit dem letzten Zugriff
es gibt noch weitere

Anlegen eines Verzeichnisses: mkdir ("VerzName", 0777);

Löschen eines Verzeichnisses: rmdir ("verzname");

Zugriffsrechte ändern: chmod(0666,"dateiname");

Aufgabe3:
Schreiben Sie ein Perl-Skript, das die Eingaben des Formulares aus Aufgabe1 entgegennimmt und jeweils in eine eigene Datei in Ihrem Home-Verzeichnis auf dem CGI-Server ablegt. Der Dateiname soll gleich dem eingegebenen Nachnamen sein.

Aufgabe4:
Schreiben Sie ein Perl-Skript, das von einem Formular den absoluten Pfadnamen eines Verzeichnisses auf dem CGI-Server übernimmt und die Namen aller Dateien in diesem Verzeichnis an den WWW-Browser übergibt.

Aufgabe5:
Ändern Sie das Perl-Skript aus Aufgabe 4 so ab, daß die Dateiamen in einer Auswahlliste eines Formulares auf dem Bildschirm angeboten werden. Dateien, deren Namen mit . beginnen sollen nicht angeboten werden. Es sollen nur echte Dateien, also z.B. keine Verzeichnisnamen angeboten werden. Die ausgewählte Datei soll an das CGI-Skript: http://cgi.rrz.uni-hamburg.de/~rz2v003/KURS/Echo.pl geschickt werden.