Bestimmte Zeilen raussuchen (RegExp?) (Allgemeines zu Perl)

[thread]13750[/thread]

Bestimmte Zeilen raussuchen (RegExp?)

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
Gast Benny

2009-07-17 15:54

Hallo zusammen,

kurz vorweg: ich bin völliger Perl-Anfänger und habe ein Problem, bei dem ich dachte, mit ein bischen Einlesen und Anschauen von Beispielprogrammen kriege ich es hin. Mittlerweile bin ich aber verzweifelt - es klappt einfach nicht.

Es geht um Perl & Regular Expressions.

$variable enthält:
ds[used].type = "GAUGE"
ds[used].minimal_heartbeat = 20
ds[used].min = 0.0000000000e+00
ds[used].max = 1.1258999068e+15
ds[used].last_ds = "34080235520.000000"
ds[used].value = 3.0672211968e+11
ds[used].unknown_sec = 0
ds[free].type = "GAUGE"
ds[free].minimal_heartbeat = 20
ds[free].min = 0.0000000000e+00
ds[free].max = 1.1258999068e+15
ds[free].last_ds = "24130674688.000000"
ds[free].value = 2.1717607219e+11
ds[free].unknown_sec = 0

Ich will nur folgende Linien haben
ds[used].type = "GAUGE"
ds[free].type = "GAUGE"

In Linux wäre der Befehl echo $variable | egrep '\<ds\>[[][a-z]{*}[]][.]\<type\>'

Wie lautet der Equivalent in Perl dazu? Ich weiss nicht wie ich das RegExp Pattern auf die Variable legen kann.

$variable soll am Ende einfach nur die beiden oberen Linien enthalten.

mfg
- +10 replies
- renee
  
  2009-07-17 16:16
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  my $variable = qq~ ds[used].type = "GAUGE" ds[used].minimal_heartbeat = 20 ds[used].min = 0.0000000000e+00 ds[used].max = 1.1258999068e+15 ds[used].last_ds = "34080235520.000000" ds[used].value = 3.0672211968e+11 ds[used].unknown_sec = 0 ds[free].type = "GAUGE" ds[free].minimal_heartbeat = 20 ds[free].min = 0.0000000000e+00 ds[free].max = 1.1258999068e+15 ds[free].last_ds = "24130674688.000000" ds[free].value = 2.1717607219e+11 ds[free].unknown_sec = 0~; my @types = $variable =~ /(ds\[[a-z]*\]\.type\s+=\s+[^\n]+)/g; print $_,"\n" for @types
  
  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/
  - +9 replies
  - LanX-
    
    2009-07-17 17:24
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    Offtopic:
    
    ne Stilfrage, meinst ihr nicht man sollte besser "überflüssige" Klammern setzen?
    
    Code (perl): (dl )
    
    my @types = ( $variable =~ /(ds\[[a-z]*\]\.type\s+=\s+[^\n]+)/g );
    
    persönlich finde ich die diversen Kontexte und Idiome um Matching und Substitute so verwirrend in ihrer "Subtilität", dass ich lieber sprechenderen Code nutze...
    me and my writeups
    - +8 replies
    - renee
      
      2009-07-17 17:53
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich "hasse" überflüssige Klammern. Wenn man einen schnellen Blick auf Code mit zu vielen Klammern wirft, finde ich das unleserlich...
      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
      - Gast benny
        
        2009-07-17 19:45
        
        danke, daran hing ich heute den ganzen tag!
        
        naja ist meine erste perl woche und mein zweiter egexp tag :D
        
        GwenDragon
        
        2009-07-17 19:52
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        Guest benny
        danke, daran hing ich heute den ganzen tag!
        
        naja ist meine erste perl woche und mein zweiter egexp tag :D
        Mach dir nix draus, so erging es mir früher als Anfängerin auch.
        Regexe sind zu Anfang ziemlich undurchschaubare Viecher.
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +5 replies
      - LanX-
        
        2009-07-17 21:32
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        2009-07-17T15:53:07 renee
        Ich "hasse" überflüssige Klammern. Wenn man einen schnellen Blick auf Code mit zu vielen Klammern wirft, finde ich das unleserlich...
        
        hmm ... auch ein Standpunkt! 8)
        
        Nach dem Motto wenn da ne unerwartete Klammer steht, muss auch was unerwartetes passieren ...
        me and my writeups
        
        +4 replies
        
        neniro
        
        2009-07-17 21:49
        
        User since
        2008-12-14
        79 Artikel
        BenutzerIn
        
        2009-07-17T19:32:18 LanX-
        Nach dem Motto wenn da ne unerwartete Klammer steht, muss auch was unerwartetes passieren ...
        
        Nee, wenn die Anzahl an Klammern steigt, wechselt der Programmierer irgendwann in den LISP-Modus ;)
        -- yet another amateur perl hacker
        
        +3 replies
        
        LanX-
        
        2009-07-17 21:52
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        es gibt bei B::Deparse ne Option zur maximalen Klammerung des Perlcodes, falls du schon mal Lisp üben möchtest (jetzt wo du den vi-mode in emacs bestaunen durftest ;)
        me and my writeups
        
        +2 replies
        
        neniro
        
        2009-07-17 21:55
        
        User since
        2008-12-14
        79 Artikel
        BenutzerIn
        
        2009-07-17T19:52:06 LanX-
        (...) falls du schon mal Lisp üben möchtest (jetzt wo du den vi-mode in emacs bestaunen durftest ;)
        
        Lisp macht nicht halb so schön Kopfweh wie Forth - davon abgesehen, dass ich schon ein Haskell-Buch hier stehen habe, dass mich vorwurfsvoll anschaut. Außerdem gibt es nur einen Editor: Textmate - nur eben leider nicht für Windows oder Linux :(
        -- yet another amateur perl hacker
        
        LanX-
        
        2009-07-17 22:38
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        textmate kann ich mir leider nicht anschauen.. :(
        
        Hast mein Mitgefühl, ich würd ja kotzen wenn mein Editor nicht überall verfügbar wäre (*arschiges Grinsen*)
        
        googlen liefert als alternativen vimmate und gedit...
        
        Es gibt einige plugins für emacs, z.B für Textmate-Templates (ähm "Snippets¹"), die sollen ja so gut sein... och da weiß ich schon wie ich den Abend verbringe 8)
        
        UPDATE: http://e-texteditor.com/index.html
        
        UPDATE2: (1) hab mal recherchiert mit yasnippet kann man Textmate-snippets im emacs nutzen, siehe screencast
        Last edited: 2009-07-18 21:47:20 +0200 (CEST)
        me and my writeups

View all threads created 2009-07-17 15:54.