split mit Ausnahme möglich? (Allgemeines zu Perl)

[thread]15881[/thread]

split mit Ausnahme möglich?

Leser: 22

Articles: hide open all | hide show old branches

+9 replies
Gast Max

2011-01-24 13:39

Kann bei der Split-Funktion eine Ausnahme definiert werden?

Es soll ein String nach Leerzeichen getrennt werden, z.B. $zeile = "Hello (World New)".

Mit split( / /, $zeile); ist das Egebnis ('Hello','(World','New)').

Nun soll aber nach Leerzeichen getrennt werden, außer die in den Klammer?! Folgendes Ergebnis soll erreicht werden ('Hello','(World New)').

Ist diese möglich? Für Antworten wäre ich sehr dankbar.
Last edited: 2011-01-24 13:51:27 +0100 (CET)
- pq
  
  2011-01-24 15:33
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  also wenn man mal versucht, in worten eine bedingung zu beschreiben, die man split übergeben müsste, wird einem klar, dass das wohl kaum möglich ist.
  ein ansatz wäre, zuerst die teile ohne und mit klammern zu trennen und dann die ohne zu splitten.
  aber dafür gibt es Text-Balanced, wobei ich zugeben muss, dass die doku für mich sehr verwirrend ist. müsste sich mal jemand zu äussern, der es schon benutzt hat.
  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
- +6 replies
- MatthiasW
  
  2011-01-24 15:34
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  grep defined && length, split /\s+|($.*?$)/, $zeile sollte funktionieren.
  
  edit: da fehlte wohl noch ein length().
  
  MfG
  Last edited: 2011-01-24 15:37:01 +0100 (CET)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - pq
    
    2011-01-24 15:40
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    hm, stimmt, wenn man die teile mit klammern captured und dann filtert, geht es. schön!
    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
  - GwenDragon
    
    2011-01-24 15:41
    
    User since
    2005-01-17
    14761 Artikel
    Admin1
    
    Nein.
    U:\>perl print join "\n",grep defined && length, split /\s+|($.*?$)/,"Hello (World New) of (all) or not(a and b)"; ^Z Hello (World New) of (all) or not (a and b)
    
    not(a nd b) darf eigentlich nicht getrennt sein.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - pq
      
      2011-01-24 15:43
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ja, bei verschachtelten klammern wird das auch nicht mehr gehn. aber vielleicht sind ja die bedingungen so, dass es keine verschachtelungen gibt und vor/nach klammern immer whitespaces.
      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
    - MatthiasW
      
      2011-01-24 15:47
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Oh hatte es so verstanden das geklammerte Ausdrücke immer alleine stehen sollen. Damit es auch so funktioniert, müsste man den regulären Ausdruck noch weiter anpassen: grep defined && length, split /(?:^|\s+)($.*?$)(?:$|\s+)|\s+/, $zeile. Jetzt wird es langsam hässlich :/
      
      edit: not(a and b) wäre jetzt immer noch getrennt, aber in die Teile 'not(a', 'and', 'b)'.
      
      MfG
      Last edited: 2011-01-24 15:50:33 +0100 (CET)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - moritz
      
      2011-01-24 15:48
      
      User since
      2007-05-11
      923 Artikel
      HausmeisterIn
      
      2011-01-24T14:41:42 GwenDragon
      not(a nd b) darf eigentlich nicht getrennt sein.
      
      Abhilfe: jeweils ein \S* nach ( und vor ), also
      
      Code: (dl )
      
      grep defined && length, split /\s+|(\S*$.*?$\S*)/, $string
      
      Perl 6 - Perls Zukunft
- topeg
  
  2011-01-24 19:17
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Man sollte sich nicht so sehr auf "split" versteifen. In den fall ist es wohl besser nach Worten und Klammern zu suchen und nicht an den Leerzeichen zu trennen.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $str="Hello (World New) of (all) or not(a and b)"; my @l=$str=~/($.+?$|[^()\s]+)/gs; print "$_\n" for @l;

View all threads created 2011-01-24 13:39.