Anfängerproblem Matching (Allgemeines zu Perl)

[thread]15220[/thread]

Anfängerproblem Matching

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
Protower

2010-06-29 14:08
User since
2010-06-29
2 Artikel
BenutzerIn
Hallo zusammen,
bisher habe ich eigentlich nichts mit Perl zu tun, muß aber jetzt ein kleines Problemche lösen.
Ich habe folgendes:
Code (perl): (dl )

1 2 3

my $Txt = "ArtikelNr|4711X"; $Txt =~ /^(ArtikelNr)\|(.*)(X_Z|X|_Z)$/; print "ArtikelNr:$2";
Es soll praktisch die Artikelnummer (verscheidene Längen) ausgegeben werden, ohne die Endungen 'X' oder 'X_Z' oder '_Z'.

Danke für jede Hilfe

Joachim
Es können folgende

//Modedit GwenDragon: Perl-Tags hinzu
Last edited: 2010-06-30 10:45:19 +0200 (CEST)
- esskar
  
  2010-06-29 14:12
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  ja, supper, danke, klappt!
  wtf?
- pq
  
  2010-06-29 14:16
  User since
  2003-08-04
  12209 Artikel
  Admin1
  nur ein kleiner hinweis, die variablen $1 und co. sollte man immer nur nach einem erfolgreichen match benutzen.
  also immer in ein if schreiben:
  
  Code (perl): (dl )
  
  1 2 3
  
  if (m/.../) { # mach was mit $1 }
  
  denn wenn der match nicht erfolgreich ist, kann in $1 trotzdem noch ein wert stehen, nämlich der vom letzten match. das führt dann zu fehlern, die zudem noch schwer zu finden sind.
  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
- lichtkind
  
  2010-06-29 14:17
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  reicht nicht
  
  Code (perl): (dl )
  
  $Txt =~ /^ArtikelNr\|(\d*)/;
  
  ???
  
  das \d nimmt nur ziffern und beim ersten buchstaben kommt nicht mehr in $1
  Last edited: 2010-06-29 14:19:06 +0200 (CEST)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - +3 replies
  - Protower
    
    2010-06-30 10:08
    User since
    2010-06-29
    2 Artikel
    BenutzerIn
    
    Habe die Lösung gefunden:
    
    Code (perl): (dl )
    
    $Txt =~ /^(ArtikelNr)\|(.*?)X?(_Z?)?$/;
    
    Danke
    - +2 replies
    - Gast wer
      
      2010-06-30 10:19
      
      Code (perl): (dl )
      
      $Txt =~ /^ArtikelNr\|(.+?)X?(?:_Z?)?$/;
      
      Dann sollte alles in $1 stehen und ich denke besser ".+?" schreiben um sicher zu sein dass irgend etwas in $1 steht.
      Last edited: 2010-06-30 10:33:17 +0200 (CEST)
      - lichtkind
        
        2010-06-30 15:06
        
        User since
        2004-03-22
        5730 Artikel
        ModeratorIn + EditorIn
        
        trotzden wäre \d statt . besser weil du j azahlen matchen willst
        mein zeug:, Leute
        
        Es beginnt immer mit einer Entscheidung.

View all threads created 2010-06-29 14:08.