Bugs in meinem Skript: Hash file (gelöst) (Allgemeines zu Perl)

[thread]18600[/thread]

Bugs in meinem Skript: Hash file [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+16 replies
Lauvia

2013-09-16 12:27

User since
2013-09-05
42 Artikel
BenutzerIn

Hallo Zusammen,

ich habe ein Skript geschrieben, das einen Ordner (Eingabe Kommando Zeile) öffnet soll, die enthaltenen html files analysiert und anschließend eine hash-Datei im Output (ebenso in Kommando Zeile eingegeben) erzeugt.

1- wenn die Zeilen 50-54 aktiv sind wird die Error Message von Zeile 52 getriggert: "No directory given!"
Ist doch in Kommandozeile eingegeben!!

2- werden diese Zeile 50-54 deaktiviert wird die Error Message der Zeile 108 ausgespuckt: "Cannot read html file: '.'"

3- werden auch die "main"-Zeile 79-89 deaktiviert, so wird die "main"-Zeile 77 durchgeführt und Inhalt des Input Ordners aufgelistet!

WAS LÄUFT HIER SCHIEF!!!??

Kommandozeile: C:\...>ErrorTracking_1.pl .\<Input Ordner> .\<Output Ordner>

Anhang, test.zip enthält:

1x ErrorTracking_1.pl
1x Log4test.pm
1x Ordner mit html Files
Anhänge

application/zip
Test.zip

text/plain
273 lines
log4test.pm

text/plain
297 lines
ErrorTracking_1.pl

Last edited: 2013-09-17 08:49:39 +0200 (CEST)
- +10 replies
- GwenDragon
  
  2013-09-16 13:18
  User since
  2005-01-17
  14761 Artikel
  Admin1
  1) C:\...>ErrorTracking_1.pl .\<Input Ordner> .\<Output Ordner>
  Wie?
  Du gibst das doch die Ordnernamen nicht mit < > ein oder?
  
  2) Benutze bitte Scalare definiert mit my als Dateihandle in einem Programm.
  Du benutzt bislang globale Dateihandles wie z. B. writefile
  
  3) Schalte auch in deinem Modul strict und warnings ein
  
  4) mach auch mal ein paar Ausgaben in deinen Fehlermeldungen
  Statt
  
  Code (perl): (dl )
  
  Log_Error("No directory given!");
  
  so
  
  Code (perl): (dl )
  
  Log_Error("No directory given! : $DIR");
  
  Dann findest du schneller, was wirklich ans Programm übergeben wird
  Last edited: 2013-09-16 13:25:47 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +9 replies
  - Lauvia
    
    2013-09-16 14:01
    
    User since
    2013-09-05
    42 Artikel
    BenutzerIn
    
    1) C:\...>ErrorTracking_1.pl .\<Input Ordner> .\<Output Ordner>
    Wie?
    Du gibst das doch die Ordnernamen nicht mit < > ein oder?
    
    Natürlich nicht nicht!-->
    
    ...Perl\Errortracking_1.pl Log_test tutos
    
    Log_test = Input Ordner
    tutos = Output Ordner
    
    2- Benutze bitte Scalare definiert mit my als Dateihandle in einem Programm.
    Du benutzt bislang globale Dateihandles wie z. B. writefile
    
    readFile in Function "ReadDataBase" habe ich jetzt lokal mit my deklariert. es ändert sich nicht. oder wie hättest du das konkret gemacht?
    
    3- strict und warnings Module waren schon eingeschaltet.
    
    4-mach auch mal ein paar Ausgaben in deinen Fehlermeldungen
    
    [ERROR] No direectory given! : Log_test
    [INFO] HTML file: '.'
    [ERROR] Cannot read html file: '.'
    
    Sieht so aus als. Variable $html_file leer ist!!
    - +4 replies
    - bianca
      
      2013-09-16 14:03
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Kannst du den fremden Text bitte in Quote Tags setzen.
      Danke
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - Lauvia
        
        2013-09-16 14:18
        
        User since
        2013-09-05
        42 Artikel
        BenutzerIn
        
        Quote
        1) C:\...>ErrorTracking_1.pl .\<Input Ordner> .\<Output Ordner>
        Wie?
        Du gibst das doch die Ordnernamen nicht mit < > ein oder?
        
        Natürlich nicht nicht!-->
        
        ...Perl\Errortracking_1.pl Log_test tutos
        
        Log_test = Input Ordner
        tutos = Output Ordner
        
        Quote
        2- Benutze bitte Scalare definiert mit my als Dateihandle in einem Programm.
        Du benutzt bislang globale Dateihandles wie z. B. writefile
        
        readFile in Function "ReadDataBase" habe ich jetzt lokal mit my deklariert. es ändert sich nicht. oder wie hättest du das konkret gemacht?
        
        Quote
        3- Schalte auch in deinem Modul strict und warnings ein
        
        strict und warnings Module waren schon eingeschaltet.
        
        Quote
        4-mach auch mal ein paar Ausgaben in deinen Fehlermeldungen
        
        [ERROR] No direectory given! : Log_test
        [INFO] HTML file: '.'
        [ERROR] Cannot read html file: '.'
        
        Sieht so aus als, ob Variable $html_file leer ist!!
        
        Muffi
        
        2013-09-16 14:49
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ja, du wirst wohl mit readdir auch "." und ".." kriegen.
        1 + 1 = 10
        
        bianca
        
        2013-09-16 17:08
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Die Edit Taste hätte gereicht. War kein neuer Beitrag notwendig.
        10 print "Hallo"
        20 goto 10
    - GwenDragon
      
      2013-09-16 14:46
      
      User since
      2005-01-17
      14761 Artikel
      Admin1
      
      Zu 2) Ein Scalar ist tewas mit $ am Anfang.
      Ein Dateihandle sollte also so lauten in einem Beispiel für open:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      #öffne Dateihandle Openmodus Dateiname open (my $file_handle1, ">>", $mein_dateiname) or die "Datei '$mein_dateiname' kann nicht geöffnet werden"; # weiterer Code ..... close $file_handle1;
      
      Dasselbe für Verzeichnisse:
      
      Code (perl): (dl )
      
      1 2 3
      
      opendir (my $dirh, $dir) or die "Verzeichnis '$dir' kann nicht geöffnet werden"; # .... closedir $dirh
      
      zu 3) In deinem Modul selbst nicht. Wenn du irgendwann mal nur ein Modul kompilierst fallen dir dann Fehler nicht auf.
      
      Code (perl): (dl )
      
      1 2
      
      use strict; use warnings;
      
      ist immer angebracht.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - GwenDragon
      
      2013-09-16 14:57
      
      User since
      2005-01-17
      14761 Artikel
      Admin1
      
      Zu 2) Ein Scalar ist tewas mit $ am Anfang.
      Ein Dateihandle sollte also so lauten in einem Beispiel für open:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      #öffne Dateihandle Openmodus Dateiname open (my $file_handle1, ">>", $mein_dateiname) or die "Datei '$mein_dateiname' kann nicht geöffnet werden"; # weiterer Code ..... close $file_handle1;
      
      Dasselbe für Verzeichnisse:
      
      Code (perl): (dl )
      
      1 2 3
      
      opendir (my $dirh, $dir) or die "Verzeichnis '$dir' kann nicht geöffnet werden"; # .... closedir $dirh
      
      zu 3) In deinem Modul selbst nicht. Wenn du irgendwann mal nur ein Modul kompilierst fallen dir dann Fehler nicht auf.
      
      Code (perl): (dl )
      
      1 2
      
      use strict; use warnings;
      
      ist immer angebracht.
      
      4) Dateitest beim Verzeichnis?
      
      Code (perl): (dl )
      
      if(! defined $DIR or ! -f $DIR)
      
      -f testet ob es eine Datei ist, nicht ob es ein Verzeichnis ist.
      -d ist für Verzeichnisse geeignet ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Lauvia
        
        2013-09-16 15:56
        
        User since
        2013-09-05
        42 Artikel
        BenutzerIn
        
        Hallo GwenDragon,
        
        für Dateitest beim Verzeichnis ist geregelt, war Tippfehler, use strict und warnings im Modul Log4test jetzt auch, Danke!
        
        beim anderen Fehler leider nicht.
        deine Variante Datei zu öffnen
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        open (my $file_handle, '>', $in_file) or die "Cannot Open html file: $in_file"; ... ... ... close file_handle;
        
        und meine:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        if(! open (readFile, $in_file)) { Log_Error("Cannot read html file: '$in_file'"); die; } my $info_ref; while (my $line = <readFile>) { ... ... }
        
        bewirken das gleiche:
        
        16.09.2013 15:49:14 [INFO] Running script ErrorTracking.pl version 1.0.0
        16.09.2013 15:49:14 [INFO] USAGE: ErrorTracking.pl <html file> [<output directory>]
        16.09.2013 15:49:14 [INFO] Script parameters
        16.09.2013 15:49:14 [INFO] Output directory: 'tutos'
        16.09.2013 15:49:14 [INFO] Data HTML hash: 'tutos\html_hash.txt'
        
        16.09.2013 15:49:14 [INFO] HTML file: '.'
        
        16.09.2013 15:49:14 [ERROR] Cannot read html file: '.'
        
        Verbindung zwischen $html_file und $in_file scheint nicht zu funktionieren!
        
        Muffi
        
        2013-09-16 16:07
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Hast du meinen Kommentar oben schon gelesen?
        Oder versteh ich grad was nicht.
        1 + 1 = 10
- +3 replies
- hlubenow
  
  2013-09-16 16:03
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  2013-09-16T10:27:12 Lauvia
  WAS LÄUFT HIER SCHIEF!!!??
  
  Bitte schrei' mich nicht an.
  
  "log4test.pm" hat 273 Zeilen mit 15 Funktionen. Könntest Du bitte das Problem ein bißchen mehr isolieren?
  
  Hilfreich wäre z.B., (nur) den notwendigen Code in ein kurzes einfaches Skript zu kopieren, so daß man sich über die Modul-Besonderheiten keine Gedanken machen muß.
  Last edited: 2013-09-16 16:05:20 +0200 (CEST)
  - +2 replies
  - Lauvia
    
    2013-09-16 16:39
    
    User since
    2013-09-05
    42 Artikel
    BenutzerIn
    
    Um Gottes Willen, ich schreie keinen an!! :-)
    
    @Muffi, ich habe dein Kommentar gelesen aber nicht ganz verstanden. was hättest du an der Stelle benutzt?
    
    @Hlubenow
    
    Script Log4test.pm ist OK, habe es nur hochgeladen damit das Skript ErrorTracking_1.pl von euch benutzt wird.
    ich habe eine Variante von ErrorTracking geschrieben, wo man in die Kommandozeile der Konsole direkt die HTML-File eingibt. Funktioniert prima, Hash-File habe ich.
    Da ich nicht nur eine HTML-File habe, sondern mehrere Testergebnisse in einem Ordner (hier z.B. Log_test)habe ich das Skript geändert um den Ordner statt die HMTL-File einzugeben. Es soll dann die einzelnen HTML-Files im Ordner geöffnet werden und verarbeitet.
    Problem liegt dann in Funktion ReadDataBase. Irgendwie werden die HTML nicht gelesen!
    - Muffi
      
      2013-09-16 16:46
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Antworte das nächste mal lieber getrennt, sonst blickt irgendwann keiner mehr durch welche Antwort wo zu welcher Frage steht.
      
      Wenn du readdir benutzt, was man schon kann, dann kriegst du, wie auch wenn du im DOS-Fenster dir eingibst wohl auch die Verzeichnisse "." und ".." mit. Und die versuchst du als Datei zu öffnen, was nicht geht.
      
      Ich würd mal
      
      Code (perl): (dl )
      
      my @files = grep { -f $_ } readdir(DIR);
      
      versuchen.
      1 + 1 = 10
- +2 replies
- Lauvia
  
  2013-09-18 15:46
  User since
  2013-09-05
  42 Artikel
  BenutzerIn
  Hallo zusammen,
  
  ich habe das Problem gelöst indem ich einfach den Relativpfad zu den Files mit glob geschnappt habe!!
  
  Code (perl): (dl )
  
  1 2 3 4
  
  opendir (DIR, $DIR) || die ('Error Open $DIR'); my @files = glob("$DIR/*.html"); ... ...
  
  Ich danke euch allen!
  - pq
    
    2013-09-18 16:01
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das ist aber doppelt gemoppelt. wenn du glob benutzt, brauchst du das opendir nicht mehr.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-09-16 12:27.