Prüfen ob Verzeichnis existiert

[Gast] Foren Archiv Perl und CGI Prüfen ob Verzeichnis existiert

Archiv - Archivierte Foren

Themen

Beiträge

Moderatoren

Letzter Beitrag

Perl und CGI

359

1951

11. Apr 2024, 18:43

shalena54

flobaer

Beiträge gesamt: 317

19. Aug 2009, 16:02
Beitrag # 1 von 10
Bewertung:
(49197 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

Prüfen ob Verzeichnis existiert

oesi50

Beiträge gesamt: 2315

19. Aug 2009, 16:26
Beitrag # 2 von 10
Beitrag ID: #405649
Bewertung:
(49168 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hi flobaer,

was bezweckst du mit dieser Zeile?

Code

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

als Antwort auf: [#405645]
(Dieser Beitrag wurde von oesi50 am 19. Aug 2009, 16:29 geändert)

Prüfen ob Verzeichnis existiert

flobaer

Beiträge gesamt: 317

19. Aug 2009, 16:33
Beitrag # 3 von 10
Beitrag ID: #405651
Bewertung:
(49163 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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]

Prüfen ob Verzeichnis existiert

oesi50

Beiträge gesamt: 2315

19. Aug 2009, 16:43
Beitrag # 4 von 10
Beitrag ID: #405654
Bewertung:
(49160 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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.

als Antwort auf: [#405649]
(Dieser Beitrag wurde von oesi50 am 19. Aug 2009, 16:55 geändert)

Prüfen ob Verzeichnis existiert

flobaer

Beiträge gesamt: 317

20. Aug 2009, 09:35
Beitrag # 5 von 10
Beitrag ID: #405716
Bewertung:
(49108 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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]

Prüfen ob Verzeichnis existiert

oesi50

Beiträge gesamt: 2315

20. Aug 2009, 10:06
Beitrag # 6 von 10
Beitrag ID: #405717
Bewertung:
(49101 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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

als Antwort auf: [#405716]

Prüfen ob Verzeichnis existiert

flobaer

Beiträge gesamt: 317

20. Aug 2009, 10:16
Beitrag # 7 von 10
Beitrag ID: #405720
Bewertung:
(49091 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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]

Prüfen ob Verzeichnis existiert

oesi50

Beiträge gesamt: 2315

20. Aug 2009, 10:36
Beitrag # 8 von 10
Beitrag ID: #405725
Bewertung:
(49086 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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.

als Antwort auf: [#405720]

Prüfen ob Verzeichnis existiert

flobaer

Beiträge gesamt: 317

20. Aug 2009, 10:42
Beitrag # 9 von 10
Beitrag ID: #405726
Bewertung:
(49080 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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]

Prüfen ob Verzeichnis existiert

oesi50

Beiträge gesamt: 2315

20. Aug 2009, 11:22
Beitrag # 10 von 10
Beitrag ID: #405853
Bewertung:
(49070 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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" 
}

als Antwort auf: [#405726]
(Dieser Beitrag wurde von oesi50 am 20. Aug 2009, 11:35 geändert)

Aktuell

Diverses

axaio veröffentlicht neue MadeToTag-Version 2.9.126

| 12.09.2023

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen

14.05.2024

Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung

Veranstaltungen

16.05.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!

Weitere Events

Neuste Foreneinträge

Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

InDesign 19.2 konvertiert 19.3-Dateien beim Öffnen ungefragt

Weitere Stellenangebote