Prüfen ob Verzeichnis existiert

Lesezeichen \| Suche \| Benutzerliste \| FAQ \| Mitgliedschaft \| Registrieren \| Einloggen
Gast

Forenindex » Archiv » Perl und CGI » Prüfen ob Verzeichnis existiert

flobaer

Beiträge: 317

19. Aug 2009, 16:02

Beitrag #1 von 10
Bewertung:

(80421 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Hallo zusammen,

ich beschäftige mich gerade gezwungenermaßen mit Perl und komme nicht weiter. Die Aufgabe ist eigentlich ganz einfach: Ich muss prüfen ob es ein Verzeichnis gibt und entsprechend reagieren. Der entsprechende Teil meines scriptes sieht folgendermaßen aus:

Code

srand(time); 
$go=0; 
while($go<1) { 
        $rand = rand(); 
        print "Zufallszahl erzeugt: $rand\n"; 
        $tempdir = "/tmp/Script_"; 
        $tempdir .= $rand; 
        ($tempdir = $tempdir) =~ s/\.//; 
        if(-d $tempdir) { 
                print "Verzeichnis $tempdir schon vorhanden!\n"; 
        } 
        else { 
                print "Verzeichnis $tempdir nicht vorhanden!\n"; 
                $go=1; 
        } 
}

Wenn $go=1 ist, wird die Schleife verlassen und das Verzeichnis angelegt. Es ist aber egal ob es ein Verzeichnis bereits gibt oder nicht, das Kript gibt immer zurück, dass das Verzeichnis nicht existiert.

Wo ist der Fehler?

Vielen Dank für Eure Hilfe
Florian

oesi50 A

Beiträge: 2315

19. Aug 2009, 16:26

Beitrag #2 von 10
Beitrag ID: #405649

Bewertung:

(80392 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Hi flobaer,

was bezweckst du mit dieser Zeile?

Code

        ($tempdir = $tempdir) =~ s/\.//;

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)

als Antwort auf: [#405645]

(Dieser Beitrag wurde von oesi50 am 19. Aug 2009, 16:29 geändert)

flobaer

Beiträge: 317

19. Aug 2009, 16:33

Beitrag #3 von 10
Beitrag ID: #405651

Bewertung:

(80387 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Hallo Oesi,

Code

$rand = rand();

erzeugt eine Fließkommazahl, also etwa 0.762220207442628. Die von Dir angesprochene Zeile entfernt den Punkt.

Viele Grüße
Florian

als Antwort auf: [#405649]

oesi50 A

Beiträge: 2315

19. Aug 2009, 16:43

Beitrag #4 von 10
Beitrag ID: #405654

Bewertung:

(80384 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

das geht besser so:

$rand = int(rand(1000000));

aber, denke bitte daran, rand ist nicht gut geeignet, um temporäre Dateien zu erstellen, weil es passieren kann, dass die selbe Zufallszahl in Serie hintereinander generiert wird.

Wie temporäre Dateien erzeugt werden, ist hier
http://perldoc.perl.org/...temporary-file-name?
erklärt.

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)

als Antwort auf: [#405649]

(Dieser Beitrag wurde von oesi50 am 19. Aug 2009, 16:55 geändert)

flobaer

Beiträge: 317

20. Aug 2009, 09:35

Beitrag #5 von 10
Beitrag ID: #405716

Bewertung:

(80332 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Hallo Oesi,

genau das ist ja das Problem. Deshalb möchte ich ja prüfen ob das Verzeichnis bereits existiert und wenn dem so ist eine neue Zufallszahl erzeugen, solange bis ein Verzeichnisname raus kommt, der noch nicht verwendet wurde.

Meine Frage ist ja deshalb auch nicht wie man eine bessere Zufallszahl erzeugt, sondern wieso das Prüfen des Verzeichnisses nicht funktioniert. Die entscheidende Zeile ist also:

Code

 if(-d $tempdir)

Viele Grüße
Florian

als Antwort auf: [#405654]

oesi50 A

Beiträge: 2315

20. Aug 2009, 10:06

Beitrag #6 von 10
Beitrag ID: #405717

Bewertung:

(80325 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Ja, diese Zeile testet, ob $tempdir ein Verzeichnis ist.

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)

als Antwort auf: [#405716]

flobaer

Beiträge: 317

20. Aug 2009, 10:16

Beitrag #7 von 10
Beitrag ID: #405720

Bewertung:

(80315 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Ja, das sollte sie. Deshalb habe ich auch geschrieben:

Code

if(-d $tempdir) {  
                print "Verzeichnis $tempdir schon vorhanden!\n";  
        }  
        else {  
                print "Verzeichnis $tempdir nicht vorhanden!\n";  
                $go=1;  
        }

Es wird aber immer "Verzeichnis XY nicht vorhanden!" ausgegeben, auch wenn es im Durchlauf zuvor angelegt wurde. Offensichtlich funktioniert die Abfrage so nicht. Aber warum?

als Antwort auf: [#405717]

oesi50 A

Beiträge: 2315

20. Aug 2009, 10:36

Beitrag #8 von 10
Beitrag ID: #405725

Bewertung:

(80310 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Ich glaube nicht, dass Perl hier schwindelt.
Möglicherweise wird das Verzeichnis an einer anderen Stelle angelegt,
oder die Permission stimmt nicht.
Besonders im /tmp Verzeichnis, dort gelten oft andere Zugriffsrechte.

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)

als Antwort auf: [#405720]

flobaer

Beiträge: 317

20. Aug 2009, 10:42

Beitrag #9 von 10
Beitrag ID: #405726

Bewertung:

(80304 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Das Verzeichnis wird auf jeden Fall an der richtigen Stelle angelegt. Wie müssen denn die Permissions sein? Möglicherweise kann ich nach dem Anlegen des Verzeichnisses noch einen chmod hinterherschieben...

als Antwort auf: [#405725]

oesi50 A

Beiträge: 2315

20. Aug 2009, 11:22

Beitrag #10 von 10
Beitrag ID: #405853

Bewertung:

(80294 mal gelesen)
URL zum Beitrag

Beitrag als Lesezeichen

Prüfen ob Verzeichnis existiert

Hast du es schon mal ohne Zufallszahlen probiert?

oder teste mal folgenden Code:

Code

#!/usr/bin/perl 
 
use strict; 
 
srand(time); 
 
my $tempdir; 
for (1..10){ 
    $tempdir = '/tmp/Script_' . int(rand(1_000_000_000)); 
    last if mkdir $tempdir, 0700; 
    $tempdir = ''; 
} 
if($tempdir){ 
    print "$tempdir angelegt\n"; 
} 
else{ 
    print "Fehler\n" 
}

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)

als Antwort auf: [#405726]

(Dieser Beitrag wurde von oesi50 am 20. Aug 2009, 11:35 geändert)

Forenindex » Archiv » Perl und CGI » Prüfen ob Verzeichnis existiert


Foren\|Tutorials\|Jobs\| HDS-Service\|HDS-Werbepartner\|Richtlinien\|Impressum