Einführung in Perl Dateien, Verzeichnisse und Prozesse II select ...

¢ £ ¡ 

¢ £ ¡ 

¥ 

¤ 

¥ 

¦ 

¤ 

¥ 

¥ 

¤ 

¤ 

¤ 

¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

¥ 

¥ 

IMS 

Heike Zinsmeister 

IMS 


Einführung in Perl 

Dateien, Verzeichnisse und Prozesse II 

Dateihandle 

- select 

- ungepufferte Ausgabe 

- open, ergänzt 

- In-place Bearbeitung 

Dateien manipulieren 

- löschen 

- umbenennen 

Verzeichnisse manipulieren 

Sonstiges 

- Lookahead 

- Lookbehind 

Referenzen 

select 

die Ausgabe von print geht standardmäßig nach STDOUT 

(d.h. normalerweise auf den Bildschirm) 

Umleitung der Ausgabe durch explizites Dateihandle als erstes 

Argument von print 

print DH "bla bla n"; 

select ändert Standardausgabe 

nach der Benutzung auf STDOUT zurücksetzen 

select OUT; 

print ("$_\n"); 

printf ("%2d\.",$c); 

... 

select STDOUT; 

# neue Defaultausgabe 

# Ausgabe nach OUT 

# formatierte Ausgabe nach OUT 

# zurücksetzen auf alte Defaultausgabe 

Perl, 16.01.04 Dateien, Verzeichnisse, Prozess II 1 


IMS 


IMS 


Autoflush 

#! /usr/local/bin/perl -w 

Autoflush - Bsp (1) 

standardmäßig wird die Ausgabe (bisher: print, printf) 

gepuffert 

– zeilenweise bei Bildschirmausgabe 

– blockweise andernfalls 

ist kodiert in interner Variable $| (Defaultwert: 0) 

$| = 0; # Default 0: Pufferung auf Zeile oder Block 

# Wert 1: Flush nach jeder Print-Anweisung 

print "Wert von AUTOFLUSH: $|\n" ; 

# (zur Kontrolle) 

# Aufgabe: alle Dateien eines Verzeichnisses sollen bearbeitet werden 

$pfad ="/home/users7/zinsmeis/Teaching/Perl-03/"; # Verzeichnis 

opendir (VH, "$pfad") or die "Kann $pfad nicht oeffnen: $!"; 

# wird geoeffnet 

auch $OUTPUT AUTOFLUSH oder $AUTOFLUSH 

alternative Ausgabe bei $| =1 

– erzwingt Leeren des Puffers nach jedem print, printf 

foreach $dateiname (readdir VH) { 

$datei = "$pfad$dateiname"; 

print "."; 

&bearbeite_datei($datei); 

} 

# Aufruf der Dateinamen 

# vollstaendige Adresse 

# Kontrollausgabe auf dem 

# Bildschirm, um Fortschreiten 

# anzuzeigen und Wartezeit zu verkuerzen 

# Bearbeitung der Datei in Subroutine 


Perl, 16.01.04 Dateien, Verzeichnisse, Prozess II 4

¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

¥ 

¥ 

¥ 

¦ 

¥ 

¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

¥ 

IMS 


IMS 


Autoflush - Bsp (2) 

wenn Subroutine &bearbeite datei zeitintensiv genug bekommt 

man folgenden Unterschied 

open – Wiederholung 

open (FILE, "PfadDerDatei") # oeffnet bestehende Datei zum Lesen 

open (FILE, "< PfadDerDatei") # ebenfalls 

open (OUT, "> Dateiname") # erzeugt neue Datei zum Schreiben 

open (LOG, ">> Dateiname") # ergaenzt (ggf. neu erzeugte) Datei 

$| = 0 

nach längerer Wartezeit einmalig Ausgabe einer Punktzeile 

Beispiele: 

Fortlaufend in LOG-Datei protokollieren 

$| = 1 

sich Punkt füf Punkt aufbauende Punktzeile; Fortschritt der 

Bearbeitung ist ablesbar 

open (LOG, ">> .fehler_log") 

or die "Kann Logdatei nicht oeffnen: $!"; 

print LOG "... 

close (LOG); 

Systemfehlermeldungen am Ende in private Logdatei schreiben 

NB wenn die Print-Anweisung n enthält, wird der Puffer zur 

Bildschirmausgabe auch bei $| = 0 unmittelbar geleert 

open (STDERR, ">> .fehler_log") or 

die "Kann Logdatei nicht oeffnen: $!"; 



IMS 


IMS 


In-place-Bearbeitung (1) 

# Programm: convert_to_latex.perl 

$^I=".bak"; 

# ueberschreibe Inputdatei, 

# erzeuge Backupdatei ’Name.bak’ 

# (Aufruf ohne Backup-Datei: $^I="";) 

while () { 

s/Ä/{\\\"A}/g; 

s/Ö/{\\\"O}/g; 

s/Ü/{\\\"U}/g; 

s/ä/{\\\"a}/g; 

s/ö/{\\\"o}/g; 

s/ü/{\\\"u}/g; 

s/ß/{\\ss}/g; 

s/&/\\&/g; 

print; 

# schreibe direkt in Inputdatei 

} 

Alternativ als Switch: 

#! /usr/bin/perl -w -i.bak # analog in Kommandozeile 

In-place-Bearbeitung (2) 

Input 

Reclamheft & "Draußen nur Kännchen" 

Welche fünf Gegenstände müssen in eine Ausstellung über 

Deutschland? 

Aufruf convert to latex.perl text 

Ausgabe: Dateien text und text.bak 

Reclamheft \& "Drau{\ss}en nur K{\"a}nnchen" 

Welche f{\"u}nf Gegenst{\"a}nde m{\"u}ssen in eine Ausstellung 

{\"u}ber Deutschland? 



¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

IMS 


IMS 


Dateien löschen (1) 

Dateien löschen (2) 

über einen Systemaufruf 

Rückgabewert von unlink = Anzahl der gelöschten Dateien 

system "rm *~"; 

über unlink-Funktion 

keine direkte Kontrolle über einzelne Datei bei Liste 

Ausweg 

unlink "slides.tex~"; 

unlink "slides-1.tex~", "slides-2.tex~", "slides-3.tex~"; 

unlink (glob "*~"); 

foreach $dat ( qw /slides-1 slides-2 slides-3/){ 

unlink $dat or warn "Konnte $dat nicht loeschen: $!\n’’; } 

unlink ist schneller als rm 

rm hat Anfrageoption, unlink nicht 

Achtung! unlink löscht auch nicht les/-schreibbare Dateien, 

falls Verzeichnisrechte es zulassen 



IMS 


IMS 


Dateien umbenennen 

Dateien umbenennen - Bsp 

analog zu Unix-Befehl mv 

system "mv slides.new slides.old"; 

rename "slides.old", "slides.new"; 

Umbennenungen auch verzeichnisübergreifen 

zumindest, wenn beide Verzeichnisse auf demselben gemounteten 

Volume 

rename "/temp/slides.old", "slides.new"; 

rename "/temp/slides.old", "/floppy/floopy#0/slides.new"; 

foreach $datei (glob "*.old") { 

$neue_datei = $datei; 

$neue_datei =~ s/\.old$/.new/; 

if (-e $neue_datei) { 

warn "Kann $datei nicht in $neue_datei: $neue_datei existiert bereits\n"; 

} elsif (rename $datei, $neue_datei ) { 

print "$datei wurde nach $neue_datei umbenannt.\n"; 

} else { 

warn "Umbennenen von $datei in $neue_datei fehlgeschlagen: $!"; 

} 

} 



¢ £ ¡ 

¢ £ ¡ 

¥ 

¥ 

¥ 

¥ 

¥ 

¢ £ ¡ 

¢ £ ¡ 

¥ 

¦ 

¥ 

¦ 

¥ 

¥ 

¥ 

¥ 

IMS 


IMS 


Verzeichnissen manipulieren 

Lookaround 

mkdir legt neue Unterverzeichnisse an 

gieriges Patternmatching arbeitet gesamten String ab 

rmdir löscht leere Verzeichnisse; 

Rückgabewert = Anzahl der gelöschten Verzeichnisse 

Probleme können entstehen, wenn Ende des Suchmusters ein 

Fenster auf dem String abdeckt, das wiederum potentiellen 

Anfang des Musters enthält 

Lösung: nicht-matchendes Lookahead/-behind 

– positives Lookahead MUSTER(?= ...) rechts vom Muster 

wird etwas bestimmtes erwartet 

– negatives Lookahead MUSTER(?! ... ) rechts vom Muster 

wird etwas bestimmtes ausgeschlossen 

– positives Lookbehind (?

¥ 

¥ 

¥ 

¦ 

¥ 

¥ 

IMS Heike Zinsmeister 

¢ £ ¡ 

Referenzen (3) 

@array = qw (Tick Trick Track); 

$ref1 = \@array; 

$ref2 = $ref1; 

if ($ref1 == $ref2 ) { 

$numerisch = $ref1+1 ; 

$numerisch -= 1; 

print "Numerisch sind sie identisch: $numerisch\n"; 

} 

if ($ref1 eq $ref2) { 

print "\$ref1 und \$ref2 haben auch denselben Debugginstring: 

$ref1.\n"; 

} 

# Ausgabe: 

# Numerisch sind sie identisch: 1226524 

# $ref1 und $ref2 haben auch denselben Debugginstring: ARRAY(0x12b71c) 



¢ £ ¡ 

Dereferenzieren (2) 

Referenzierung erlaubt z.B. eine Referenz auf eine Datenstruktur 

in eine Subroutine weiterzugeben anstatt die Datenstruktur 

selbst 

über Dereferenzierung kann auf die eigentliche Datenstruktur 

zugegriffen werden 



¢ £ ¡ 

Referenzen (2) 

Referenzen 

– numerische Form 

eindeutige Memory Adresse der internen Datenstruktur 

– Stringform (bei print Vergleich mit eq) 

Debuggingstring 



¢ £ ¡ 

Dereferenzieren (1) 

Referenzierung durch vorangestellten Backslash 

– @array 

– @array 

Dereferenzierung durch Ersetzen des Namens (auch identifiers) 

mit $-Identifier in geschweiften Klammern 

– @array 

– @{$referenz auf array} 

– $array[1] 

– ${$referenz auf array}[1] 


¥ 

¥ 


¢ £ ¡ 

Referenzen 

Schwartz, Randal L. & Tom Phoenix, 2002. Einführung in Perl. 

Köln, O’Reilly: Teile von Kap. 12 und Ausschnitte aus Kap. 13. 

Schwartz, Randal L., 2003. Learning Perl Objects, References 

& Modules. O’Reilly. 



¢ £ ¡ 

Übung 10 

Bearbeiten Sie die Zusatzaufgabe der ersten Teilaufgabe aus 

Übung 9 vom 9.1.2004 erneut (Sortieren von Dateien nach 

Extensionen und intern alphabetisch). Verwenden Sie zum 

Sortieren eine komplexe Datenstruktur. Abgabe: 22.1.2004 

Nächsten Donnerstag muss die Übungsstunde leider ausfallen. 

Sie können aber jederzeit Fragen zur Aufgabe oder den Projekten 

stellen

Einführung in Perl Dateien, Verzeichnisse und Prozesse II select ...

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

Template löschen?

Als Template speichern?