while Schleife arbeitet nicht (gelöst) (Allgemeines zu Perl)

[thread]17519[/thread]

while Schleife arbeitet nicht [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
geloescht

2012-06-26 21:48
User since
2012-06-19
141 Artikel
BenutzerIn
Abend Leute

Ich hab hier einen Code, der nur in Verbindung mit Push funktioniert. Keine Ahnung warum.

Das Codestückchen sollte die Datei "incoming.csv" öffnen und eine Zeile (Datensatz) auslesen, durch den if-Vergleich schicken, wenn keine Übereinstimmung, nächste Zeile auslesen. usw...
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

open(FILEMANAGER, "<coresys/incoming.csv") or die "ERROR: Unable to open the IC-file during read-access!"; flock(FILEMANAGER, LOCK_EX); my $DeltaMinuten = ""; while(! eof(FILEMANAGER)){ my $zeile = <FILEMANAGER>; my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey) = split(/;/,$zeile); $DeltaMinuten = ($Minuten - $DB_Minuten); if ($DB_IPAdresse eq $IPAdresse and $DB_Monatstag eq $Monatstag and $DB_Monat eq $Monat and $DB_Jahr eq $Jahr and $DB_Stunden eq $Stunden and $DeltaMinuten < 5) { close(FILEMANAGER); goto TimeLock; } close(FILEMANAGER); }
Den Skalar $DeltaMinuten musste ich aus der while-Klammer auslagern. Sonst kann ich wo anders im Code nicht darauf zugreifen. Scheinbar macht Perl einen Unterschied, ob die Variable - pardon - Skalar, in einer geschweiften Klammer definiert wird, oder nicht. Das nur am Rande.

Dieser Code funktioniert in einem anderen Programm - nur eben mit push. Das kann doch nicht sein, das man "pushen" muss um jede Zeile einzeln zu bekommen?

Ich hab mir auch schon die Dateiberechtigungen angesehen. 644 ist doch völlig ausreichend.

Hier die...

[url=http://]Testseite[/url]

Eingaben für Testbetrieb:

Storycode: KG123J
Titel: blablabla(egal)
Text: blablabla(egal)
E-Mail: bla@bla.de (muss nur "@" und "." drin sein)
Teilnahmebedingungen: abhaken(Haken setzen)
Spamschutzcode: 21026062 (gilt nur für heute)

Bei der Ausgabe (Antwort von Perl) kann man sehen, daß der Wert "Minuten(speicher)" leer ist. Das heißt trotz vorhandenen Werten in der csv-Datei, liest er nix!

Gruß HP-User

modedit Editiert von GwenDragon: URL gelöscht auf Wunsch
Last edited: 2012-10-05 12:58:36 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +3 replies
- Linuxer
  
  2012-06-26 22:03
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  2012-06-26T19:48:34 ?
  Den Skalar $DeltaMinuten musste ich aus der while-Klammer auslagern. Sonst kann ich wo anders im Code nicht darauf zugreifen. Scheinbar macht Perl einen Unterschied, ob die Variable - pardon - Skalar, in einer geschweiften Klammer definiert wird, oder nicht. Das nur am Rande.
  
  Und damit passiert genau das, was passieren soll; siehe http://perldoc.perl.org/functions/my.html
  
  2012-06-26T19:48:34 ?
  Dieser Code funktioniert in einem anderen Programm - nur eben mit push. Das kann doch nicht sein, das man "pushen" muss um jede Zeile einzeln zu bekommen?
  
  Hier verlierst Du mich... Ich kann Dir nicht folgen.
  push() fügt einen oder mehrere Werte ans Ende eines Array an.
  Was hast das mit dem Code zu tun, der hier aus einer Datei lesen soll?
  
  Warum schließt Du den Filehandle noch in der while-Schleife?
  Scheinbar willst Du nur die erste Zeile auslesen?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - geloescht
    
    2012-06-26 22:17
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi Linuxer
    
    Das push erwähnte ich, weil im anderen funktionsfähigen Code das die einzige Zeile ist, die noch zusätzlich zu meinem aktuellen Code gegeben war. Aber "Schwamm drüber".
    
    Das mit dem "close" ist natürlich ein dummer Fehler. Logisch, wenn ich zumache, kann er auch nichts mehr lesen.
    
    Die Zeitsperre hab ich mal deaktiviert. Rechnen tut er noch nicht richtig. Die Minutenangabe aus der CSV wird nicht angezeigt. Muss noch ein wenig Fehler suchen...
    
    Gruß und Danke für den Tipp mit dem frühzeitgen "close". Das hab ich schonmal korrigiert.
    
    Vieln , vielen Dank - Linuxer!
    
    von HP-User
    Last edited: 2012-06-26 22:19:37 +0200 (CEST)
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - Linuxer
      
      2012-06-26 22:31
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Welche Minutenangabe aus der CSV?
      Wenn Du $DB_Minuten meinst, der Skalar ist doch nur im while-Block bekannt...
      
      Der einzige Skalar, der Daten aus der while-Schleife liefern könnte, dürfte $DeltaMinuten sein...
      
      Bist Du sicher, dass Du den Skalar nicht nochmal in einem anderen Block deklariert hast?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      my $foo = 'Hallo'; # 1. block: $foo aendern { $foo .= ' Welt.'; } # 2. block: neues $foo im Block; { my $foo = 'Adieu'; print "2. $foo.\n"; } # "aeusseres" $foo kontrollieren print "X. $foo\n";
      
      Ohne den relevanten Code zu sehen, kann man nur raten. Das oben war mein Versuch ;-)
      Vielleicht raten andere noch besser ... ;-)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +8 replies
- Linuxer
  
  2012-06-26 22:16
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Hast Du berücksichtigt, dass das Semikolon ein gültiges Zeichen in Texten ist?
  
  Wenn nicht, sprengt es Dir Deinen Datenparser. Text::CSV und Text::CSV_PP sind echt tolle Module...
  
  Hm, anscheinend entfernst Du das Semikolon einfach aus dem Text. Unschön, wie ich finde.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +7 replies
  - geloescht
    
    2012-06-26 22:33
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi Linuxer
    
    Zitat'"Hast Du berücksichtigt, dass das Semikolon ein gültiges Zeichen in Texten ist?"'
    
    Hehe - Nicht in den Texten, die ich kenne ;-)
    
    Zitat'"Hm, anscheinend entfernst Du das Semikolon einfach aus dem Text. Unschön, wie ich finde. "'
    
    Aber effektiv! Ein Semikolon hat in einer Geschichte nichts verloren. Solche Zeichen (und einige weitere) werden gerne von XSS-Schlaumeiern (Cross-Site-Scripting) verwendet, um Unfug zu treiben. Deshalb - weg damit!
    
    Eine hätte ich noch:
    
    Wie kann ich aus einem my $Skalar in einem geschützten Block einen Skalar machen, den ich auch wo anders im Programm nutzen kann?
    
    Ich hätte nämlich gerne die $DB_Minuten für ne Testausgabe weiter unten im Programm ausgegeben.
    
    Gruß HP-User
    Last edited: 2012-06-26 22:34:59 +0200 (CEST)
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - +6 replies
    - Linuxer
      
      2012-06-26 22:43
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Was einem bisher nicht unterkommt, darf es nicht geben, oder wie? Naja, verstümmel eben die Texte, ist Dein Projekt.
      
      Wenn Du auf den Wert eines Skalar außerhalb der While-Schleife zugreifen willst, dann musst Du den Skalar eben ausserhalb der Schleife deklarieren; und zwar mindestens in dem Bereich, in dem Du darauf zugreifen willst. Mit $DeltaMinuten hast Du das doch schon getan...
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +5 replies
      - geloescht
        
        2012-06-26 23:05
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hallo Linuxer
        
        2012-06-26T20:43:09 Linuxer
        Wenn Du auf den Wert eines Skalar außerhalb der While-Schleife zugreifen willst, dann musst Du den Skalar eben ausserhalb der Schleife deklarieren; und zwar mindestens in dem Bereich, in dem Du darauf zugreifen willst. Mit $DeltaMinuten hast Du das doch schon getan...
        
        Hallo Linuxer
        
        Ja, aber das dürfte hier wohl schwieriger werden, da der betreffende Skalar ($DB_Minuten) innerhalb einer Sammeldeklaration liegt. Siehe hier:
        
        Code: (dl )
        
        1 2 3
        
        while(! eof(FILEMANAGER)){ my $zeile = <FILEMANAGER>; my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey) = split(/;/,$zeile);
        
        Und nach meinem Programmverständnis (ich kann mich auch irren), muss die Split-Anweisung innerhalb des While-Blocks liegen.
        
        Keine Chance das $DB_Minuten außerhalb des while- greifbar zu machen?
        
        Gruß HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        Gast wer
        
        2012-06-26 23:21
        
        Definiere die Variablen außerhalb der Schleife.
        Last edited: 2012-06-26 23:24:08 +0200 (CEST)
        
        +3 replies
        
        Linuxer
        
        2012-06-26 23:24
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Du kannst doch nach der Sammeldeklaration die übergeordnete Variable befüllen...
        
        Schema:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        my $outer_scope = 0; while ( my $line = <$handle> ) { my ( $foo, $bar, $fuzz, $bazz ) = split /;/, $line; $outer_scope = $bar; } # beachte, nach Ablauf der while-Schleife hat $outer_scope # den Wert von $bar der letzten gelesenen Zeile
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        geloescht
        
        2012-06-26 23:44
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Happy end!
        
        Danke nochmal an alle Helfer. Linuxer, daß mit dem Einschleusen eines übergeordneten Skalars war echt "tricky". Das hat funktioniert!
        
        Der Beweis:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        ################################################# # Multi-Post-Blocker (MPB) / Mehrfachpostsperre # ################################################# open(FILEMANAGER, "<coresys/incoming.csv") or die "ERROR: Unable to open the IC-file during read-access!"; flock(FILEMANAGER, LOCK_EX); my $DeltaMinuten = ""; my $GlobalDB_Minuten = ""; while(! eof(FILEMANAGER)){ my $zeile = <FILEMANAGER>; my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey) = split(/;/,$zeile); $GlobalDB_Minuten = $DB_Minuten; $DeltaMinuten = ($Minuten - $DB_Minuten); if ($DB_IPAdresse eq $IPAdresse and $DB_Monatstag eq $Monatstag and $DB_Monat eq $Monat and $DB_Jahr eq $Jahr and $DB_Stunden eq $Stunden and $DeltaMinuten < 5) { close(FILEMANAGER); goto TimeLock; } } close(FILEMANAGER);
        
        Jetzt, da die Sammel-Engine läuft, kann ich eventuell noch diese Woche online gehen. Muss noch schauen, wie ich die Eröffnungsseite gestalte. Es sollte ersichtlich sein, daß nur eine Voreröffnung stattfindet. Vielleicht mach ich was mit nem schwarzen Vorhang/Tuch (ähnlich wie beim Automobil - Stichwort "Erlkönig")- mal sehen...
        
        Gruß und gute Nacht
        
        HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        GUIfreund
        
        2012-06-27 13:03
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-06-26T21:44:03 ?
        ... daß mit dem Einschleusen eines übergeordneten Skalars war echt "tricky".
        
        Das war garnicht "tricky" - das gehört zum Basiswissen von Perl. Wie wäre es, wenn du einmal ein Buch zur Einführung in Perl liest, statt weiter herumzumurksen und deine Zeit zu verplempern?
        
        2012-06-26T21:44:03 ?
        
        Code: (dl )
        
        open(FILEMANAGER, "<coresys/incoming.csv") or die "ERROR: Unable to open the IC-file during read-access!";
        
        Und vieleicht könntest du dich auch dazu durchringen, die guten Ratschläge zu beherzigen, die dir schon mehrfach gegeben wurden.
        Gruß
        GUIfreund

View all threads created 2012-06-26 21:48.