perl one liner : suche string und ausgabe wert (gelöst) (Allgemeines zu Perl)

[thread]18441[/thread]

perl one liner : suche string und ausgabe wert [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+10 replies
bora99

2013-07-15 22:25

User since
2009-12-05
54 Artikel
BenutzerIn

hallo,

ich versuche in einer datei nach einem string zu suchen und nach trennung durch "=" den wert auszugeben. zwischen "=" können <tab>s oder <blank>s sein.
der länge des wertes ist 4 stellig. nach dem wert können auch kommentare durch "#" getrennt stehen.

bsp: ( im anhang )

die ersten 3 einträge ( suche nach "key" und ausgabe von SID* ) sollen gefunden werden. Nach "SID1" ist ein Leerzeichen

key = SID0
key = SID1
key = SID2 # kommentar, soll gefunden und ausgegeben werden
key = SID33 # kommentar, soll nicht gefunden und nicht ausgegeben werden

was ich nicht schaffe, SID33 rauszufiltern.

perl -lan -e 'if(/^([\s]*)key[\s]+=[\s]([A-Z0-9]{4})[\s]*$|[\s][\W]*$/i) {print "$F[2]" }' test.txt

gruss
Anhänge

text/plain
3 lines
test.txt
- +2 replies
- renee
  
  2013-07-15 23:10
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Da SID33 5 Zeichen lang ist, ist das Ergebnis ja korrekt, weil Du sagst, dass der Wert 4 Zeichen lang sein soll ([A-Z0-9]{4}). Wenn es *mindestens* 4 Zeichen lang sein soll, dann musst Du [A-Z0-9]{4,} schreiben...
  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/
  - bora99
    
    2013-07-16 08:36
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    2013-07-15T21:10:19 renee
    Da SID33 5 Zeichen lang ist, ist das Ergebnis ja korrekt, weil Du sagst, dass der Wert 4 Zeichen lang sein soll ([A-Z0-9]{4}). Wenn es *mindestens* 4 Zeichen lang sein soll, dann musst Du [A-Z0-9]{4,} schreiben...
    
    Der Wert soll genau 4 Zeichen lang sein.
    
    Quote
    Wenn es *mindestens* 4 Zeichen lang sein soll, dann musst Du [A-Z0-9]{4,} schreiben.
    
    danke für den hinweis !
- +7 replies
- clms
  
  2013-07-15 23:22
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  2013-07-15T20:25:27 bora99
  hallo,
  
  ich versuche in einer datei nach einem string zu suchen und nach trennung durch "=" den wert auszugeben. zwischen "=" können <tab>s oder <blank>s sein.
  der länge des wertes ist 4 stellig. nach dem wert können auch kommentare durch "#" getrennt stehen.
  
  bsp: ( im anhang )
  
  die ersten 3 einträge ( suche nach "key" und ausgabe von SID* ) sollen gefunden werden. Nach "SID1" ist ein Leerzeichen
  
  key = SID0
  key = SID1
  key = SID2 # kommentar, soll gefunden und ausgegeben werden
  key = SID33 # kommentar, soll nicht gefunden und nicht ausgegeben werden
  
  was ich nicht schaffe, SID33 rauszufiltern.
  
  perl -lan -e 'if(/^([\s]*)key[\s]+=[\s]([A-Z0-9]{4})[\s]*$|[\s][\W]*$/i) {print "$F[2]" }' test.txt
  
  Die -a Option macht hier IMHO keinen Sinn.
  Außerdem verstehe ich nicht, warum Du die \s in eckige Klammern gepackt hast.
  "SID33" kannst du rausfiltern indem Du nach [A-Z0-9]{4} mit \b eine "word boundary" verlangst.
  
  Ich würde es so schreiben (ungetestet):
  perl -len 'print $1 if /^\s*key\s+=\s+([A-Z0-9]{4})\b/'
  - +6 replies
  - bora99
    
    2013-07-16 08:46
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    hallo,
    
    Quote
    Die -a Option macht hier IMHO keinen Sinn.
    Außerdem verstehe ich nicht, warum Du die \s in eckige Klammern gepackt hast.
    "SID33" kannst du rausfiltern indem Du nach [A-Z0-9]{4} mit \b eine "word boundary" verlangst.
    
    Habe ein Beispiel gesehen, wo [\s] ... angeführt war, an die Vorlage habe ich mich gehalten, gebe dir Recht, macht keinen Sinn.
    
    Code: (dl )
    
    [A-Z0-9]{4} mit \b eine "word boundary" verlangst
    
    habe alle verschiedenen Varianten probiert, aber \b habe ich übersehen, ich habe versucht die versch. Varianten nach den Zeichen mit \s oder |\s ... zu ermitteln.
    
    Code: (dl )
    
    1 2
    
    Ich würde es so schreiben (ungetestet): perl -len 'print $1 if /^\s*key\s+=\s+([A-Z0-9]{4})\b/'
    
    funktioniert leider nicht
    
    Quote
    perl -lan -e 'if(/^(\s*)key\s+=\s([A-Z0-9]{4})\b/i) {print "$F[2]" }'
    
    diese variante von mir funktioniert !
    - +5 replies
    - clms
      
      2013-07-16 10:33
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2013-07-16T06:46:09 bora99
      Quote
      Ich würde es so schreiben (ungetestet):
      
      Code: (dl )
      
      perl -len 'print $1 if /^\s*key\s+=\s+([A-Z0-9]{4})\b/'
      
      funktioniert leider nicht
      
      Code: (dl )
      
      perl -lan -e 'if(/^(\s*)key\s+=\s([A-Z0-9]{4})\b/i) {print "$F[2]" }'
      
      diese variante von mir funktioniert !
      
      Statt -len müssen die Kommandline-Optionen -ln -e sein. Dann funktioniert es.
      - +4 replies
      - bora99
        
        2013-07-16 18:02
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        Quote
        Statt -len müssen die Kommandline-Optionen -ln -e sein. Dann funktioniert es.
        
        jetzt funktioniert es !
        
        noch eine letzte frage : es machte also einen unterschied aus , wie man die Kommandline-Optionen ? dachte
        
        Code: (dl )
        
        -len
        
        ist gleich
        
        Code: (dl )
        
        -ln -e
        
        oder
        
        Code: (dl )
        
        -lne
        
        Gruss
        
        +3 replies
        
        Gast wer
        
        2013-07-16 19:20
        
        -e heißt "execute" und bedeutet "führe den nachstehenden Code aus"
        Wenn du -len '...' stehen hast interpretiert das perl als -l -e '' -n -- '...'
        
        korrekt ist also: -lne '...' oder -nle '...'
        Last edited: 2013-07-16 19:22:17 +0200 (CEST)
        
        +2 replies
        
        murphy
        
        2013-07-16 21:24
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Guest wer
        [...]
        Wenn du -len '...' stehen hast interpretiert das perl als -l -e '' -n -- '...'
        [...]
        
        Das stimmt so nicht. -len ist vielmehr äquivalent zu -l -e 'n' '...'
        
        Man kann das zum Beispiel ausprobieren indem man eine Subroutine n anlegt:
        
        Code: (dl )
        
        1 2
        
        $ perl -e'sub n { print "Hello\n" }' -en Hello
        
        Eine allgemeine Faustregel ist, dass einbuchstabige Kommandozeilenoptionen nur dann bedenkenlos in einem Argument zusammengefasst werden können, wenn sie keinen Parameter haben. Optionen wie -e, denen ein Parameter folgt, müssen alleine oder am Ende einer zusammengefassten Gruppe stehen.
        When C++ is your hammer, every problem looks like your thumb.
        
        bora99
        
        2013-07-17 17:35
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        danke für die antworten und korrekturen

View all threads created 2013-07-15 22:25.