führende und folgende Zeichen entfernen (Allgemeines zu Perl)

[thread]16547[/thread]

führende und folgende Zeichen entfernen

Tags: perl5 Ähnliche Threads

Leser: 31

Articles: hide open all | hide show old branches

+9 replies
jan99

2011-07-20 09:25
User since
2008-09-18
439 Artikel
BenutzerIn
hi !

es gibt ja bekanntlich für die Leerzeichen
Code (perl): (dl )

1 2

$string =~ s/^\s+//; $string =~ s/\s+$//;
Nun will ich aber "(" bzw. ")" entfernen.

Ich habe nur die Zeichen die für das Leerzeichen stehen /s entfernt und entsprechend durch meine Klammern ersetzt. Da die ( bzw. ) ein zusammenfassendes Character sind habe ich noch / davorgesetzt.
Code (perl): (dl )

1 2

$selparts[0] =~ s/^/(+//; $selparts[0] =~ s/()+$//;
Das ist aber anscheinend noch nicht alles - bekomme immer noch eine Fehlermeldung:

Quote
syntax error at osm_poimaker_sub.pm line 452, near "/;"
Final $ should be \$ or $name at osm_poimaker_sub.pm line 453, within string

Kann mir einer weiterhelfen ?

Gruß Jan :-)

Kann mir einer
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +8 replies
- renee
  
  2011-07-20 09:36
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Schau mal genauer hin. Hinweis: Slash vs. Backslash... ;-)
  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/
  - +7 replies
  - grauwau
    
    2011-07-20 15:00
    User since
    2011-07-20
    2 Artikel
    BenutzerIn
    
    Quote
    
    Code: (dl )
    
    1 2
    
    $string =~ s/^\s+//; $string =~ s/\s+$//;
    
    Hallo Forum,
    
    dieser Thread scheint ja wohl zu meinem Problem zu passen, da brauch ich nicht gleich mit meinem ersten Beitrag einen neuen aufmachen *g*
    
    Code: (dl )
    
    1 2 3
    
    my $zeile = "a b c "; # oder Var. 2: " a b c " my @array = split( /[ \t]+/ , $zeile ); foreach( @array ) { print( $_.":" ) }
    
    Das geht soweit, aber nur wenn vor dem ersten Zeichen kein Leerzeichen steht. Wenn doch, erhalte ich 4 Array Elemente, das erste enthält einen Nullstring.
    
    Wie kriege ich alle Wörter und nur die in ein Array, egal wie viele Leerzeichen und Tabs drumrumstehen?
    
    Ich hab Perl vor 2 Tagen entdeckt, eigentlich wollte ich ein Bash Script stricken. Bin total begeistert, nur diese s/^\s+// Würmer machen mir Kopfweh. Bestimmt muss der in meinem Codeschnipsel noch ein Stück verlängert werden *g*
    
    mfg
    grauwau
    Last edited: 2011-07-20 15:07:40 +0200 (CEST)
    - pq
      
      2011-07-20 15:11
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      versuch es mal so:
      my @array = split ' ', $zeile;
      
      split bekommt normalerweise eine regex, aber ' ' ist ein spezialfall, der an allen whitespaces splittet und gleichzeitig leere elemente am anfang und ende wegwirft.
      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
    - renee
      
      2011-07-20 15:13
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich werde den Thread splitten, weil das zwei sehr unterschiedliche Probleme sind.
      
      Wenn Du "Magie" haben willst und auch bei Variante zwei nur 3 Elemente haben willst, dann kannst Du einfach split " ", $zeile machen:
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      rb@test:~/community$ perl -le 'my $var = "a b c "; print join "::", split /[ \t]+/, $var' a::b::c rb@test:~/community$ perl -le 'my $var = " a b c "; print join "::", split /[ \t]+/, $var' ::a::b::c rb@test:~/community$ perl -le 'my $var = " a b c "; print join "::", split " ", $var' a::b::c
      
      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/
    - +4 replies
    - pq
      
      2011-07-20 15:28
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      2011-07-20T13:00:00 grauwau
      dieser Thread scheint ja wohl zu meinem Problem zu passen, da brauch ich nicht gleich mit meinem ersten Beitrag einen neuen aufmachen *g*
      
      einen neuen thread starten kostet bei uns nichts extra ;-)
      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
      - grauwau
        
        2011-07-20 18:28
        
        User since
        2011-07-20
        2 Artikel
        BenutzerIn
        
        Hallo zusammen,
        
        vielen Dank für die prompte Antwort. split ' ', $zeile macht genau, was ich brauche. Warum einfach, wenns auch kompliziert geht, beschreibt wohl meinen Versuch. Ich dachte, wenn ich Leerzeichen und Tabs killen will, geht das nur mit soner regex. Wie macht split denn das? Ist da eine "Wer Leerzeichen weghaben will braucht bestimmt auch keine \t, \n und \r" Logik eingebaut? Echt magisch eben.
        
        Tschuldigung, mit meinem schlichten Anfängergemüt hab ich gedacht, wenn es um solche "Würmer" geht, werden sich die Themen schon ähneln.
        
        Bei der Überlegung, ob Thread aufmachen, musste ich wohl an Karl Valentin denken: "Mögen täten wir schon wollen, aber dürfen haben wir uns nicht getraut!"
        
        mfg
        grauwau
        
        GwenDragon
        
        2011-07-20 18:43
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        2011-07-20T16:28:39 grauwau
        Tschuldigung, mit meinem schlichten Anfängergemüt hab ich gedacht, wenn es um solche "Würmer" geht, werden sich die Themen schon ähneln.
        Musst dich nicht Entschuldigen, bist ja noch neu hier. Willkommen. ;)
        
        Manchmal ist es wegen der Übersichtlichkeit sinnvoller einen eigenen Thread aufzumachen, sonst wird es irgendwann zum Sammelthread, was eher unpraktisch wäre.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        pq
        
        2011-07-20 19:05
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        dass man an leerzeichen und tabs usw. splitten will, ist halt ein sehr häufiger anwendungsfall, und meistens möchte man da auch automatisch die leeren felder weghaben, daher hat man sich diesen spezialfall ausgedacht. split erkennt, ob eine regex oder ein einfacher string übergeben wurde. also nur auf den ersten blick magisch =)
        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

View all threads created 2011-07-20 09:25.