Schreibzugriff auf Dateien per Skript (solved) (Perl/CGI)

[thread]20558[/thread]

Schreibzugriff auf Dateien per Skript [solved]

Tags: perl5 CGI Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+9 replies
smurf

2019-01-17 09:49
User since
2019-01-17
5 articles
BenutzerIn
Hallo,

seit Jahren habe ich erfolgreich einige PERL-Skripte laufen.
jetzt hatten wir eine Serverumstellung (neuer Server und gleichzeitig Wechsel von Windows auf Unix-Umgebung auf dem Server).
Grundsätzlich laufen meine Skripte inzwischen auch wieder, aber was noch nicht funktioniert ist der Schreibzugriff auf Dateien über ein Skript. Lesen kann ich den Dateiinhalt, aber nicht neu schreiben.
Hat jemand ne Idee woran das liegen kann (ich habe recht wenig Ahnung von PERL und noch weniger von allem, was auf dem Server gemacht werden muss )

Beispiel:
Ich habe eine Datei "Test":. Inhalt von "TEST" ist die Zahl 3.

Skript zum Lesen der Datei:
***************
Code (perl): (dl )

1 2 3

open IN, "TEST"; while( <IN> ) { $variable = $_; } close IN;
***************
Das funktioniert einwandfrei und liefert mir als Ergebnis in §variable eine "3".

Was nicht funktioniert ist folgendes:
***************
Code (perl): (dl )

1 2 3

open OUT, "Test"; print OUT $variable; close OUT;
***************

Kann mir jemand sagen warum das nicht mehr geht?
Bis vorgestern (Ära vor der Webserverumstellung) hat es gut funktioniert.
Bin dankbar für jede Hilfe, da mein Serverbetreuer da leider was PERL angeht auch nicht so fit ist.

LG Smurfi

modedit Editiert von GwenDragon: Perlcode in PERL-Tags gesetzt, siehe https://www.perl-community.de/bat/poard/markup_hel...
Last edited: 2019-01-17 11:14:07 +0100 (CET)
- renee
  
  2019-01-17 11:16
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  Du solltest die Datei auch zum Schreiben öffnen...
  
  Code: (dl )
  
  1 2 3
  
  open OUT, ">", "Test"; print OUT $variable; close OUT;
  
  außerdem noch ein paar Fehlerabfragen einbauen:
  
  Code: (dl )
  
  1 2 3
  
  open OUT, ">", "Test" or die $!; print OUT $variable or die $!; close OUT or die $!;
  
  Besser ist es auch lexikalische Filehandles zu nehmen, nicht dass Du Dir die aus Versehen überschreibst...
  
  Code: (dl )
  
  1 2 3
  
  open my $out, ">", "Test" or die $!; print $out $variable or die $!; close $out or die $!;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +2 replies
- GwenDragon
  
  2019-01-17 11:32
  User since
  2005-01-17
  14784 articles
  Admin1
  Eigentlich müssen Fehler deines Programms dann auch im Webserverlog stehen.
  
  Dein Code für open ist grundsätzlich problembehaftet.
  
  Für open solltest du die 3-Paramater-Version nehmen.
  Man benutzt üblicherweise für Eingabe und Ausgabe keine Dateihandles wie IN oder OUT sondern verwendet je eine Variable.
  Man überprüft warum etwas beim Öffnen, Schreiben udn Schließen einer Datei nicht klappt.
  
  sinnvollerweise so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $in; # Variable für Eingabe-Dateihandle # Datei mit 3-Paramater-open einlesen open($in, '<', '/kompletter/pfad/auf/TEST') or die "Fehler: Datei zum Lesen öffnen schlug fehl ($!)"; # hier wird auf Fehler getestet und abgebrochen was ein Problem vorhanden while( my $line = <$in> ) { $variable = $line; } close($in) or die "Fehler: Datei konnte nicht geschlossen werden ($!)";
  
  und hier für die Ausgabe in eine Datei:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $out; open($out, '>', "/kompletter/pfad/auf/Test") # Datei für Ausgabe erzeugen; vorhandene wird überschrieben or die "Fehler: Datei zum Schreiben konnte nicht erzeugt werden ($!)"; # hier wird auf Fehler getestet und mit Fehlermeldung abgebrochen print {$out} $variable or die "Fehler: Daten konnten nicht geschrieben werden ($!)"; close($out) or die "Fehler: Datei konnte nicht geschlossen werden ($!)";
  
  Last edited: 2019-01-17 11:37:13 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - smurf
    
    2019-01-17 16:04
    
    User since
    2019-01-17
    5 articles
    BenutzerIn
    
    Hallo GwenDragon,
    
    leider hat Dein Vorschlag auch nicht funktioniert.
    Bin ein wenig ratlos.
    
    LG Smurf
- +4 replies
- smurf
  
  2019-01-17 15:54
  User since
  2019-01-17
  5 articles
  BenutzerIn
  Hallo,
  
  also erst mal meine Entschuldigung, dass meine Ursprungsmeldung etwas ungenau formuliert war (mal wieder zwischen Tür und Angel gemacht). Hier nochmal konkretere Infos.
  
  Folgender Skriptteil (diesmal nicht schnell hingeschrieben sondern wirklich per Copy&Paste übernommen, damit alle Kommata da sind etc.) funktioniert problemlos:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  open IN, "<$zaehlerfile" or scriptAbbruch("Konnte Zählerdatei nicht finden."); while( <IN> ) { $zaehler = $_; $zaehler++; } close IN;
  
  Damit bin ich problemlos in der Lage die Zahl, die in der Datei steht auszulesen und um 1 Zähler hochzusetzen.
  (Info: "scriptAbbruch" ist eine kleine Funktion weiter oben im Skript, die den Skriptabbruch mit Ausgabe des Textes abfängt und mir so hilft zu sehen wo genau mein Skript abbricht)
  
  Das Problem beginnt mit dem Versuch in die Datei zu schreiben bzw. diese zu ersetzen. Ich habe nach euren Infos jetzt folgenden 3 Tests gemacht:
  
  Test 1:
  
  Code: (dl )
  
  1 2 3
  
  open OUT, ">$zaehlerfile" or scriptAbbruch("Konnte Zählerdatei nicht öffnen."); print OUT $zaehler or scriptAbbruch("Konnte Zähler nicht setzen."); close OUT;
  
  Test 2:
  
  Code: (dl )
  
  1 2 3
  
  open OUT, ">", $zaehlerfile or scriptAbbruch("Konnte Zählerdatei nicht öffnen."); print OUT $zaehler or scriptAbbruch("Konnte Zähler nicht setzen."); close OUT;
  
  Test 3:
  
  Code: (dl )
  
  1 2 3 4
  
  my $OUT; open($OUT, '>', $zaehlerfile) or scriptAbbruch("Konnte Zählerdatei nicht öffnen."); print {$OUT} $zaehler or scriptAbbruch("Konnte Zähler nicht setzen."); close($OUT);
  
  Alle 3 Tests bringen mir eine identische Antwort ... nämlich "Konnte Zählerdatei nicht öffnen" ;o(((
  
  Hat jemand noch ne Idee dazu, was ich noch versuchen könnte?
  - rosti
    
    2019-01-17 16:06
    User since
    2011-03-19
    3505 articles
    BenutzerIn
    
    Mit IO::File ist das doch alles viel besser leserlich und modern:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    use strict; use warnings; use IO::File; my $fh = IO::File->new; $fh->open("counterfile", O_CREAT|O_RDWR|O_BINARY) or die $!; my $i; if( read($fh, my $buffer, 4)) { $i = unpack "N", $buffer; } else{ $i = 0; } $i++; $fh->truncate(0); $fh->seek(0,0); $fh->print( pack "N", $i ); $fh->close; print $i;
    
    Und was die Berechtigungen angeht, das ist kein Perlproblem.
    
    MfG
    
    PS: Anstelle pack "N", $i; kannst Du die Zahl auch als plaintext da rein schreiben. pack() hat jedoch den Vorteil, daß da stets genau 4 Byte sind.
    Last edited: 2019-01-17 16:32:07 +0100 (CET)
  - GwenDragon
    
    2019-01-17 16:16
    User since
    2005-01-17
    14784 articles
    Admin1
    
    Dann lasst dir mal in scriptAbbruch() den Wert von $zaehlerfile und $! mit ausgeben, dann siehst du mehr was nicht passt.
    
    Kann ein Rechteproblem sein, dass du dort nicht in die Datei schrieben darfst.
    
    Was ich vergessen habe:
    Dateien sollten vor dem Schreiben mit flock auch gesperrt werden.
    
    Code: (dl )
    
    1 2
    
    use Fcntl qw(:flock); flock($OUT, LOCK_EX) or scriptAbbruch("Lock kann nicht erzeugt werden");
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Raubtier
    
    2019-01-17 17:02
    User since
    2012-05-04
    1076 articles
    BenutzerIn
    
    Nimm Variante 3, aber folgendermaßen abgeändert:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    # das "my $OUT" braucht nicht separat zu stehen open(my $OUT, '>', $zaehlerfile) or scriptAbbruch("Konnte Zählerdatei $zaehlerfile nicht öffnen. Grund: $!"); print {$OUT} $zaehler or scriptAbbruch("Konnte Zähler nicht setzen."); close($OUT);
    
    Und sobald du diesen Fehler gefunden und behoben hast, wende dich GwenDragons Kommentar bzgl. "flock" zu.
    
    Vermutlich wird dein Webserver keine Schreibrechte haben. Du könntest auf einer Shell des Server mal
    ls -l /pfad/zu/zaehlerdatei
    eingeben. Wahrscheinlich gehört die Datei root, während sie www-data gehörten sollte. Wäre mein best guess.
    Last edited: 2019-01-17 17:05:32 +0100 (CET)
- smurf
  
  2019-01-18 15:23
  
  User since
  2019-01-17
  5 articles
  BenutzerIn
  
  Hallo,
  
  Der "best guess" von Raubtier war absolut korrekt!
  Nachdem ich unserem Server-Betreuer "Raubtiere" auf ihn zu hetzen ;O), hat er sich tatsächlich nochmal intensiv mit den Einstellungen am Server beschäftigt und siehe da ... jetzt kann ich meine Dateien auch beschreiben.
  DANKE für den Hinweis und die Hilfe!!!
  
  Jetzt werde ich dann erst mal das gesamt-Konstrukt meiner Skripte wieder zum Laufen bringen und dann beschäftige ich mich mit der "Säuberung" und "Verfeinerung" des Codes (wie z.B. dem Flock-Befehl).
  
  Ganz lieben Dank an alle für eure Hilfestellung
  (ich fürchte ihr hört in Kürze wieder von mir, mit dem nächsten Problemchen ;O)
  
  Smurf

View all threads created 2019-01-17 09:49.