Sahanya

Montag, 17. 05. 2004

Dateien testen

Filed under: — Sahanya @ 20:45

Dateien können auf die unterschiedlichsten Sachen hin getestet werden. Dazu zĂ€hlt insbesondere das ÜberprĂŒfen, ob es diese Datei schon gibt (-e), um ein Überschreiben zu verhindern. Außerdem kann man auch testen, ob eine Datei ĂŒberhaupt lesbar (-r) bzw. ausfĂŒhrbar (-x) ist und wann sie das letzte mal geĂ€ndert (-M) wurde.

Eine AusfĂŒhrliche Liste findet man hier. Und hier ein praktisches Beispiel:


#!usr/bin/perl -w
#fragt nach Datei und gibt Inhalt in neuer Datei aus
print "Welche Datei wollen sie oeffnen?\n";
chomp ($datei = <STDIN>);
until (-e "$datei.txt") {
print "Diese Datei gibt es nicht! Welche jetzt?\n";
chomp ($datei = <STDIN>);
}
print "Welche Datei soll neu erstellt werden?\n";
chomp ($datei_neu = <STDIN>);
while (-e "$datei_neu.txt") {
print "Diese Datei gibt es schon! Denk dir einen neuen Namen aus.\n";
chomp ($datei_neu = <STDIN>);
}
open (ALT, "$datei.txt") || die "oeffnen geht nicht $!";
open (NEU, "> $datei_neu.txt") || die "Die neue Datei anlegen geht nicht. $!";
while (<ALT>) {
chomp;
print NEU;
}
close ALT || die "schliessen der Ursprungsdatei geht nicht $!";
close NEU || die "schliessen der neuen Datei geht nicht $!";

Andere Perl-Themen

1 Kommentar

  1. [...] llt habe ich ja schon hier behandelt und wie man sie auf verschiedene Eigenschaften testet hier. Jetzt geht es darum, wie man Dateien und Ordner erstellt, löscht, kopie [...]

    Pingback by Sahanya » Mit Dateien und Ordnern arbeiten — Sonntag, 30. 05. 2004 @ 14:09

RSS Feed für Kommentare zu diesem Artikel.

Entschuldige, das Kommentarformular ist zurzeit geschlossen.

 

Powered by WordPress | Angepasst von: www.vlad-design.de