Suchfunktion steuern (Allgemeines zu Perl)

[thread]17289[/thread]

Suchfunktion steuern

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
Ap0ll099

2012-04-03 15:23
User since
2012-04-03
4 Artikel
BenutzerIn
Hallo,
ich bin Anfänger bzgl. Forum und Perl und will mein erstes Script schreiben. Hab mir dafür eine Aufgabe rausgesucht und komme nicht gerade sehr weit. Deshalb will ich es hier versuchen, ob Ihr mir Tipps geben könnt. (ich bevorzuge learning by doing)
Folgenden Quelltext habe ich bereits:
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 42 43 44

#!/usr/bin/perl $SUCHE="TARS"; $BEGRENZER_probe = "probe"; $i=0; $TEXT='probe http probe_L7_IDST-TARS-8085 port 8085 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200 probe http probe_L7_IDST-TARS-18080 port 18080 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200 probe icmp probe_L3_PING interval 4 passdetect interval 8 passdetect count 2 receive 2'; # Text in Zeilen aufteilen ------------------------------------------------------- $TRENNER="\n"; @KONFIG=split(/$TRENNER/,$TEXT); foreach $STRING(@KONFIG) { chomp($STRING); } #============================================================== #Suche------------------------------------------------------------------ if ($TEXT =~ /probe.*$SUCHE/) { print $&."\n"; } elsif ($TEXT =~ /.*probe.*/) { print $'."\n"; }
Meine Schwierigkeit besteht darin, dass ich nicht weiß, wie ich es schaff, dass ich bei der Ausgabe das hier hinbekomm:
Code: (dl )

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

probe http probe_L7_IDST-TARS-8085 port 8085 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200 probe http probe_L7_IDST-TARS-18080 port 18080 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200
Entweder ich habe nur die erste Zeile, oder den kompletten Text, also alles was in der Variable drinsteht. Mir fehlt die Möglichkeit bei der ich angeben kann, dass alles gefunden werden soll was zu "TARS" gehört bis wieder die nächste "probe" beginnt. Sollte diese jedoch auch "TARS" enthalten, dann soll sie auch mit ausgegeben werden.
Kann man iwie dem Script mitteilen, dass es zwar nach "probe" suchen soll, aber wenn es eine weitere "probe" findet aufhören soll und dann in dieser "probe" wieder nach dem gesuchten Begriff sucht?
Danke für Eure Hilfe!
vg
Last edited: 2012-04-03 15:25:01 +0200 (CEST)
- +7 replies
- pq
  
  2012-04-03 15:32
  User since
  2003-08-04
  12208 Artikel
  Admin1
  erstmal generell möchte ich dir http://perl-tutorial.org/ empfehlen.
  
  hast du den text wirklich in einer variablen oder liest du das aus einer datei? könnte einfacher sein, schon beim einlesen in parapgraphen zu splitten.
  
  da ich deine erklärung nicht ganz verstanden habe, was jetzt ausgegeben werden soll und was nicht, hier nur das splitten nach paragraphen:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @paragraphs = split /\n\n+/, $TEXT; # splitten bei 2 oder mehr newlines for my $p (@paragraphs) { # in $p steht ein kompletter absatz von probe ... bis zum ende, # also mehrere zeilen }
  
  edit: wenn du in deinem beispiel nach \n splittest, ist ein chomp danach übrigens völlig unnötig, denn ein split /\n/ entfernt ja das \n jeweils schon. und man kann auch alle einträge in einem array auf einmal chompen: chomp @array;
  Last edited: 2012-04-03 15:34:58 +0200 (CEST)
  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
  - +6 replies
  - Ap0ll099
    
    2012-04-03 16:03
    User since
    2012-04-03
    4 Artikel
    BenutzerIn
    
    Hi pq,
    danke für die schnelle Antwort!
    Ich weiß nicht genau wie relevant dass zum Thema ist, deshalb hab ich nicht so viel über mich erzählt. War auch noch nie in Foren unterwegs, hab immer nur gelesen ;-)
    Deshalb ganz kurz: ich habe schon ein paar Perlskripte geschrieben die auch laufen, aber das sind solche vom Charakter "Hello World!" also meist gerade mal 10 Zeilen. D.h. ich habe zumindest eine ungefähre Vorstellung bzgl. der Sprache, aber mir fehlt so etwas wie ein Wörterbuch, bei dem schön kurz und knapp erläutert wird, welcher Befehl welche Funktion hat. Wenn man den erst mal wissen würde, könnte man dann darüber das Tutorial lesen. Keine Ahnung ob es so etwas gibt. Hab ich aber noch bei keiner Sprache gefunden.
    Bei dem Tutorial habe ich immer das Prob dass ich es zwar ganz lesen kann, aber ohne persönliche Erfahrung mit den Befehlen vergisst man das alles wieder zu schnell. Darum fang ich jetzt an größere Scripte zu schreiben und mir so mein Wissen aufzubauen. Werde diesbzgl. auch in dem Forum nach Tipps umschauen.
    
    Zurück zum Thema:
    Ich werde das ausprobieren, was du gepostet hast und dann wieder melden. Habe leider auch nicht immer Zeit jeden Tag daran zu arbeiten.
    Und ja, ich will das später als Datei einlesen. Aber für mich der Einfachheit halber, hab ich einen kleinen Teil der Konfig erst einmal in eine Variable zeilenweise einlesen wollen. Weil am wichtigsten für mich ist es erst einmal das Ergebnis zu erhalten das ich möchte. Dann kommt das Feintuning. Das Script wird eh noch viel komplexer, da ich es direkt am Loadbalancer auslesen möchte bei dem ich dann eine ssh-Verbindung über Perl hinbekommen möchte. Und dann soll später noch viel mehr mit der Konfiguration "gearbeitet" werden.
    Generell zum Verständnis der Ausgabe für die Suche:
    Es soll mir am Ende alle zu "TARS" gehörigen Teile der Konfig ausspucken. "probe" ist nur ein Teil davon. Und zu der probe gehören dann noch die paar Zeilen bis die nächste "probe" beginnt. Deshalb soll die Ausgabe im jetzigen Bsp genau so aussehen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    probe http probe_L7_IDST-TARS-8085 port 8085 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200 probe http probe_L7_IDST-TARS-18080 port 18080 interval 5 passdetect interval 5 passdetect count 2 request method get url /login.jsp expect status 200 200
    
    Sorry für so viel Text!
    - +5 replies
    - pq
      
      2012-04-03 16:18
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ein gutes tutorial arbeitet auch mit beispielen zum ausprobieren.
      dein perl sieht sehr veraltet aus, daher empfehle ich wirklich, sich bei den tutorials mal umzuschauen.
      
      eine intro findest du unter perldoc perlintro auf deinem rechner oder im netz: perlintro.
      
      eine referenz (z.b. perldoc perlfunc) alleine nützt dir nix.
      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
      - +4 replies
      - Ap0ll099
        
        2012-04-04 10:34
        
        User since
        2012-04-03
        4 Artikel
        BenutzerIn
        
        Ok, werde ich machen.
        
        Bin grad am weiterbasteln. Vll kann ich jetzt mein Prob besser verifizieren. Ich habe jetzt immer noch etwas in der Ausgabe, also einen Teil der in $p steht, den ich raushaben will. Und das ist das anfangs erwähnte Prob. Wie kann ich bei einer Suche quasi eine Ausnahme einbinden?
        Last edited: 2012-04-04 10:44:42 +0200 (CEST)
        
        pq
        
        2012-04-04 10:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-04-04T08:34:03 Ap0ll099
        Wenn ich das richtig verstehe wird ein "/n" als Trenner genutzt und alles ausgegeben, was mit "TARS" zusammenpasst und bis zu einem "/n" geht.
        Wie schaff ich so etwas wenn ich aber kein "/n" als Trenner habe?
        Könnte "probe" als Trenner dienen, also alle "probe" die am Anfang einer Zeile stehen, weil es ja auch vorkommt, wo es nicht als Trenner dienen darf?
        
        als trenner wird nicht /n genutzt. das ist ein slash und ein n.
        als trenner werden newlines genutzt, und zwar mindestens 2. \n schreibt man das.
        also parapgraphen. trenner ist mindestens eine leere zeile.
        
        wenn der trenner "probe" am anfang der zeile sein soll, dann definier es so.
        in regex ausgedrückt wäre das split m/^probe/m, $text.
        
        auch hier wieder ein verweise auf die doku:
        perlretut
        
        vielleicht solltest du aber, anstatt die bedingungen jetzt ständig zu ändern, erstmal langsam stück für stück vorgehen und ausprobieren. dein beispiel hat leere zeilen als trenner, und du solltest erstmal prüfen, ob mein code so funktioniert.
        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
        
        +2 replies
        
        pq
        
        2012-04-04 10:51
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        bitte verändere nicht den kompletten sinn deiner artikel.
        
        die editierfunktion ist dafür da, dass man kleine fehler korrigieren kann oder sachen ergänzen.
        netterweise gibt es sogar ein kleines kommentarfeld, in das man einen kurzen kommentar zu der änderung eintragen *kann*.
        
        sie ist nicht dazu da, komplett neue fragen zu stellen und den alten inhalt einfach verschwinden zu lassen. besonders ärgerlich, wenn sich schon jemand die mühe gemacht hat zu antworten.
        
        danke.
        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
        
        Ap0ll099
        
        2012-04-04 11:17
        
        User since
        2012-04-03
        4 Artikel
        BenutzerIn
        
        Ja, da gleich eine Entschuldigung von mir! War da etwas zu voreilig und habe gehofft es noch vor Sichtung ändern zu können.
        Das mit dem Trenner hab ich dann selber verstanden und wollte glei das eigl. Prob beschreiben. Wird nicht wieder passieren. Ihr seid hier ziemlich flott, großes Lob dafür. Hast mir auch scho sehr geholfen und bin scho gut weitergekommen. Werde also mal sehen, wann ich wieder kapitulieren muss und auf euch zurück komme.
        Werde bis dahin auch das Tutorial durchhaben.
        Danke

View all threads created 2012-04-03 15:23.