Regulärer Ausdruck, Leerzeichen am Anfang (Allgemeines zu Perl)

[thread]14747[/thread]

Regulärer Ausdruck, Leerzeichen am Anfang

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
cirruswolke

2010-03-01 21:40

User since
2010-03-01
5 Artikel
BenutzerIn

Hallo,

ich versuche eine Zeile einzulesen, die mit mehren Leerzeichen beginnt.
total bla bal...
if($_ =~/total/){$description = $_;}

Ich möchte jedoch die Leerzeichen am Anfang nicht mit in der Variablen speichern bzw später nicht mit ausgeben. Wie kann ich das lösen?
- +6 replies
- pq
  
  2010-03-01 21:57
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  if(s/^ +total/total/){ $description = $_; }
  
  so?
  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
  - +5 replies
  - cirruswolke
    
    2010-03-01 22:14
    
    User since
    2010-03-01
    5 Artikel
    BenutzerIn
    
    leider nein..
    \s\s\s total bla bla...
    die Zeile an sich kann ich ja einlesen in dem $_ =~/total/ und dann $_ meiner Variablen zu weisen,...damit stehen aber die Leerzeichen auch in der Variablen, die sollen aber raus ;)
    - Gast wer
      
      2010-03-01 22:26
      
      Code (perl): (dl )
      
      1 2 3
      
      if(/^\s+(total.+?)$/){ $description = $1; }
    - +3 replies
    - pq
      
      2010-03-01 22:28
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-03-01T21:14:46 cirruswolke
      die Zeile an sich kann ich ja einlesen in dem $_ =~/total/
      
      hm? das liest keine zeile ein, sondern wendet den matching-operator auf $_ an.
      
      Quote
      und dann $_ meiner Variablen zu weisen,...damit stehen aber die Leerzeichen auch in der Variablen, die sollen aber raus ;)
      
      ja dass die raussollen, war mir schon klar. deswegen habe ich ja s/.../... verwendet, den substitutionsoperator.
      was hat an dem code nicht funktioniert, hast du eine fehlermeldung bekommen?
      
      ich zeig dir mal, wie der code bei mir funktioniert:
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      perl -wle' $_ = " total bla"; if(s/^ +total/total/){ $description = $_; } print "<$description>"' <total bla>
      
      wie du siehst, steht in $description am ende der gewünschte string ohne leerzeichen. meinetwegen benutze halt \s statt " ". du sprachst aber nur von leerzeichen, weswegen ich nicht \s genommen habe.
      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
      - cirruswolke
        
        2010-03-01 23:03
        
        User since
        2010-03-01
        5 Artikel
        BenutzerIn
        
        Stimmt mein Fehler...bei funktionierts auch, sorry
        
        hab jedoch noch ein Problem das vor total noch ne Zahl steht:
        \s\s\s 3,456 total bla...
        
        s/^ +[0-9]*,[0-9]* sequences/[0-9]*,[0-9]* sequences/... so werden aber natürlich die Zahlen mit dem reg. Ausdruck ersetzt ;(
        
        pq
        
        2010-03-01 23:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn du da noch mehr matchen willst, empfiehlt sich die lösung von "wer". beachte, dass seine lösung aber auch gleich das ~~leerzeichen~~ newline hinten abschneidet.
        Last edited: 2010-03-01 23:08:35 +0100 (CET)
        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
- +3 replies
- Linuxer
  
  2010-03-01 23:13
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hier mal eine Variante, die ohne einfangende Klammern auskommen sollte:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $unsauber = ' Hallo Welt.'; ( my $sauber = $unsauber ) =~ s/^\s*//;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - Hagen
    
    2010-03-02 09:33
    
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Ich sehe dieses Konstrukt zum ersten mal, daher zum Verständnis ob ich das richtig verstehe:
    
    Durch die Klammer (...) wird die RegExp auf die zweite Variable angewendet, aber das Ergebnis der ersten zugewiesen?
    Gruß
    Hagen
    - bianca
      
      2010-03-02 09:53
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-03-02T08:33:44 Hagen
      Durch die Klammer (...) wird die RegExp auf die zweite Variable angewendet, aber das Ergebnis der ersten zugewiesen?
      
      Durch die Klammer wird erst der Wert von $unsauber auf $sauber zugewiesen und auf $sauber dann der Regex angewendet. Intern wird wahrscheinlich sogar erst der Wert von $unsauber temporär kopiert, darauf der Regex angwendet, ohne $unsauber zu verändern und das Ergebnis dann $sauber zugewiesen.
      Last edited: 2010-03-02 09:54:11 +0100 (CET)
      10 print "Hallo"
      20 goto 10
- +2 replies
- pq
  
  2010-03-01 23:43
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  crosspost: http://community.perl.de/content/regul-rer-ausdruc...
  
  bitte beim nächsten mal kenntlich machen
  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
  - Gast cirruswolke
    
    2010-03-02 09:47
    
    Danke mir es geholfen ;D, wollte keinen crosspost machen, habs rausgenommen

View all threads created 2010-03-01 21:40.