Dateien nach bestimmten Zeichenketten durchsuchen (Allgemeines zu Perl)

[thread]18939[/thread]

Dateien nach bestimmten Zeichenketten durchsuchen

Tags: perl5 Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+20 replies
guest Michael

2014-03-04 14:37
Hallo zusammen,
vermutlich ist es gar nicht so schwer aber ich hänge nun seit Tagen an einem Problem und komme nicht mehr weiter. Vermutlich liegt es daran das ich wirklich nicht fit bin in Perl bzw. C und C ähnliche Sprachen.

Und zwar muss ich erst suchen was, in einem bestimmten bereich, es für HP (Hauptprogramme) in einem Dateiordner gibt (das Funktioniert schonmal, dann in ALLEN existierenden HP Dateien nach Unterlprogramme suchen und die Unterprogramme + kommentare getrennt in arrays ausgeben. Die gesuchten unterprogramme beginnen immer mit "BA".

So sieht das zu suchende in dem Hauptprogramm aus aus:

BedingterHalt(16)
BA_08150_a_bc() ;bla bla bla ## <- ein Unterprogramm

BedingterHalt(16)
BA_08151_d_ef() ;bla bla bla bla ## <- ein Unterprogramm

Mein Programmteil bis jetzt das die Hauptprogramme sucht:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

my $nr=0; for my $i (10..99){ my $gdat= "$i.src"; my $packpfad = '\xxx\xx\xxxx\HP0'; my $config = $zielpfad.$packpfad.$gdat; if (-e "$config"){ $hp[$nr]= "HP0$i.src"; if ($verw_hp==1){ my %conf; my $var; my $value; open(CONF,"<$config") || die "could not read config file: $config [!$]\n"; while (<CONF>) { chomp; s/#.*//; s/^\s+//; s/\s+$//; next unless length; ($var, $value) = split(/\s* \s*/, $_, 2); $conf{$var} = $value; }; close(CONF); $hpcomment[$nr] = $conf{"&COMMENT"}; } if ($verw_unterprog==1){ ######################################### #hier sollte es weiter gehen ######################################### } $i++; $nr++; } } }
Für hilfe wäre ich euch sehr sehr Dankbar

Liebe Grüße
Last edited: 2014-03-04 15:02:11 +0100 (CET)
- +19 replies
- renee
  
  2014-03-04 15:12
  
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  
  Hallo,
  
  es wäre ganz praktisch wenn Du mal ein komplettes "Hauptprogramm" postest und dann sagst was wohin gespeichert werden soll .
  
  Hier aber noch ein paar Anmerkungen zu Deinem Code:
  
  * Du machst $i++, obwohl Du im Schleifenkopf for my $i (10.99) hast, was automatisch schon hochzählt
  * statt my $nr = 0; $hp[$nr] = "HP0$i.src"; $nr++[/code] kannst Du einfach [c]push @hp, "HP0$i.src" machen
  * Die Fehlervariable heißt $!, nicht !$
  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/
  - guest Michael
    
    2014-03-04 15:27
    
    Hallo,
    erst mal vielen Dank für die schnelle Antwort und danke für die Korrektur.
    Speichern möchte ich gar nichts in den Hauptprogrammen, ich lese diese ledeglich nach den "BA" zeilen aus und stecke die gewünschten Werte in eine array o.ä.. Später werden die Werte in eine Excel Tabelle geschrieben.
    
    Grüße
    Last edited: 2014-03-04 15:41:21 +0100 (CET)
  - +17 replies
  - clms
    
    2014-03-04 15:48
    
    User since
    2010-08-29
    373 articles
    BenutzerIn
    
    Ich schließe mich an, insbesondere, da in dem Programmschnipsel Variablen gelesen werden, die nie definiert wurden.
    
    In einem Punkt wäre ich aber vorsichtig:
    
    2014-03-04T14:12:20 renee
    * statt my $nr = 0; $hp[$nr] = "HP0$i.src"; $nr++ kannst Du einfach push @hp, "HP0$i.src"
    
    Generell wäre das push da schöner, aber es führt nur dann zu dem gleichen Ergebnis wenn esin jedem Schleifendurchlauf aufgerufen wird, in dem auch $nr inkremetiert wird. Das ist bei diesem Beispiel-Code nicht gewährleistet. Falls $config kein existierender File ist, bleibt $hp[$nr] "leer " bzw. undef
    - +16 replies
    - Michaelb
      
      2014-03-04 17:31
      
      User since
      2014-03-04
      12 articles
      BenutzerIn
      
      So, jetzt hab ich mich mal angemeldet :)
      
      $verw_hp und $verw_unterprog sind Variablen der Benutzeroberfläche.
      @hp und @hpcomment sind Globale Variablen die gefüllt und später ausgegeben werden.
      
      Der Rest dürfte ja theoretisch klar sein.
      
      Ich Brauche eigentlich nur den Programmteil um in den gefundenen Hauptprogrammen bzw in dem $config Pfaden die Unterprogrammnamen zu Suchen.
      Die zu suchenden Unterprogrammnamen sehen immer gleich aus und beginnen immer mit BA und sind nach dem ";" kommentiert.
      (z.B. "BA_08150_a_bc() ;bla bla bla").
      
      "BA_08150_a_bc" Name des Unterprogrammes.
      "bla bla bla" Kommentar
      
      in einem Hauptprogramm stehen immer mehrere Unterprogramme. Daran scheitere ich auch kläglich.
      
      Grüße
      Last edited: 2014-03-04 17:34:07 +0100 (CET)
      - +15 replies
      - Raubtier
        
        2014-03-04 18:18
        
        User since
        2012-05-04
        1081 articles
        BenutzerIn
        
        Wenn ich dicht recht verstanden habe, willst du nur in einer Datei nach den Unterprogrammen suchen?
        
        Vielleicht so?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        #!/usr/bin/env perl use strict; use warnings; my $all = do { local $/; <DATA> }; my %matches = $all =~ /^(BA_.\w+).*?;(.*)$/mg; while (my ($unterprogramm, $kommentar) = each %matches) { print "Unterprogramm $unterprogramm hat den Kommentar $kommentar\n" } __DATA__ BedingterHalt(16) BA_08150_a_bc() ;bla bla bla ## <- ein Unterprogramm BedingterHalt(16) BA_08151_d_ef() ;bla bla bla bla ## <- ein anderes Unterprogramm
        
        Michaelb
        
        2014-03-04 18:44
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Genau,
        wie kann ich das jetzt in das obrige programm bei:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        if ($verw_unterprog==1){ ######################################### #hier sollte es weiter gehen ######################################### }
        
        einbinden das es direkt aus den Dateien(Hauptprogrammen), die ich auf ihre exitenz geprüft habe, raus filtert? Ich muss ja die Unterprogramme nach denen ich suche aus den pfaden die in $config dann liegen nach und nach raus filtern.
        
        Michaelb
        
        2014-03-04 18:47
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Sorry,
        ich bin wirklich nicht der Perl Profi. :(
        Bitte um verständniss. :(
        
        Michaelb
        
        2014-03-04 21:04
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Geil, es klappt :D
        Vielen Vielen Dank, ihr seid die besten :)
        
        +11 replies
        
        Michaelb
        
        2014-03-06 11:40
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Hallo,
        ich habe nochmal eine Frage.
        Nun muss ich wieder was auslesen und hab keine ahnung wie ich das mit diesem Regex hin bekomme, versteh ich einfach nicht.
        Aufbauen werd ich es wieder wie Raubtier erklärt hat, bräuchte allerdings statt :
        
        Code: (dl )
        
        =~ /^(BA_.\w+).*?;(.*)$/mg;
        
        etwas ähnliches das mir folgendes raus sucht:
        
        Ich habe diesen zusammenhängenden String:
        
        ;FOLD ; Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on;%{PE}%R 8.2.20,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on
        
        und brauche daraus:
        
        eine Variable mit dem inhalt in diesem Teil: "Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime)"
        
        eine Variable mit dem wert am schluss: "on" oder "off"
        
        Die informationen kommen 2 mal im String vor und es ist egal von wo diese ausgelesen werden.
        
        Hat von euch jemand eine gute seite in der regex einfach erklärt ist? Mit den Seiten die ich über Google gefunden habe konnte ich nicht viel anfangen.
        
        Danke und Grüße
        
        +9 replies
        
        guest wer
        
        2014-03-06 12:59
        
        ungetestet:
        
        Code (perl): (dl )
        
        1 2 3
        
        while( $str=~/(Collisionmonitoring\s+between\s+[^]+?$[\($]+\)\s+and\s+[^]+?$[\($]+\))\s(\w+)/sc ) { print "FOUND $1 ===> $2\n"; }
        
        Last edited: 2014-03-06 13:13:05 +0100 (CET)
        
        +8 replies
        
        Michaelb
        
        2014-03-06 13:28
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Hallo,
        
        Danke erst mal aber das läuft nicht so recht.
        
        Da kommt : "Use of /c modifier is maningless without /g
        
        Grüße
        
        +7 replies
        
        guest wer
        
        2014-03-06 13:29
        
        Code (perl): (dl )
        
        1 2 3
        
        while( $str=~/(Collisionmonitoring\s+between\s+[^]+?$[\($]+\)\s+and\s+[^]+?$[\($]+\))\s(\w+)/sgc ) { print "FOUND $1 ===> $2\n"; }
        
        Last edited: 2014-03-06 13:34:48 +0100 (CET)
        
        +6 replies
        
        Michaelb
        
        2014-03-06 18:26
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Leider kommt am ende kein Ausgabewert. Mache ich was Falsch oder kann das sein dass das nicht geht :(
        
        +5 replies
        
        MarkusH
        
        2014-03-06 18:47
        
        User since
        2012-04-08
        162 articles
        BenutzerIn
        
        Noch jemand, der sich mit KUKA (V)KRC rumschlagen muss ;-)
        
        Das sollte funktionieren:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        #!/usr/bin/perl -w use strict; my $fold = ';FOLD ; Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on;%{PE}%R 8.2.20,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on'; my ($comment) = $fold =~ /;FOLD\s*;\s*(Coll.+?);%/; my ($text, $status) = split(/\s+(\w+)$/, $comment, 2); print "$text \t $status \n";
        
        $q =~ /(bb|[^b]{2})/
        
        Michaelb
        
        2014-03-06 19:01
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Ja geil, das geht! :) Vielen vielen Dank :)
        
        Ja genau, und da ich mich wirklich nur Oberflächlich in Perl auskenne ist das etwas knifflig ab und an.
        Aber es wird und ist bald fertig :)
        
        +3 replies
        
        Michaelb
        
        2014-03-06 19:53
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Wie presse ich das am besten in eine Schleife? ich müsste mehrere Werte auslesen.
        
        +2 replies
        
        MarkusH
        
        2014-03-06 20:44
        
        User since
        2012-04-08
        162 articles
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #!/usr/bin/perl -w use strict; open(my $SRC, "<", "$srcfile") or die $!; while (my $line = <$SRC>) { my ($text, $status); if ($line =~ /;FOLD\s*;\s*(Coll.+?);%/) { $comment = $1; ($text, $status) = split(/\s+(\w+)$/, $comment); } else { next; } #mach was mit $text und $status } close $SRC;
        
        $q =~ /(bb|[^b]{2})/
        
        Michaelb
        
        2014-03-13 21:01
        
        User since
        2014-03-04
        12 articles
        BenutzerIn
        
        Dank dir, passt :)
        
        Raubtier
        
        2014-03-06 14:26
        
        User since
        2012-05-04
        1081 articles
        BenutzerIn
        
        2014-03-06T10:40:52 Michaelb
        Hat von euch jemand eine gute seite in der regex einfach erklärt ist?
        
        Vorschläge:
        perlretut
        perlre
        
        Oder ein Buch (auch wenn schon etwas älter und sicher nicht für allerneueste Perl-Features): J. Friedl: Mastering Regular Expressions

View all threads created 2014-03-04 14:37.