split nach jedem "x", wenn nächster Buchstabe "y"? (Allgemeines zu Perl)

[thread]18737[/thread]

split nach jedem "x", wenn nächster Buchstabe "y"?

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
Student87

2013-11-09 16:01

User since
2012-11-08
73 Artikel
BenutzerIn

Hi,

ich suche nach einem nicht so einfachen regex Ausdruck, um einen string nach jedem A zu splitten, sofern der folgende Buchstabe ein C ist.

Das heißt,

BBACCCCADD

soll zerlegt werden in:

BBA
CCCCADD

Also nur beim ersten A soll gesplittet werden und das A soll auch nicht "weggeworfen werden". Weiß jemand, wie das geht?
Last edited: 2013-11-09 16:02:26 +0100 (CET)
- +3 replies
- Linuxer
  
  2013-11-09 16:35
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Das könnte man mit einem einfangenden Regex lösen.
  
  Edit: neue Lösung, schau mal, ob Du damit hinkommst:
  
  Quickshot:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #! /usr/bin/perl use strict; use warnings; # quickshot: split on "A" if followed by "C" while ( my $line = <DATA> ) { my @parts = $line =~ m{(\w*?A)(C\w*?)}g; local $, = " "; print @parts, "\n"; } __DATA__ BBACCCCADD BACBACBACDAC BACBAC
  
  Edit: Diese Lösung arbeitet unvollständig. Für eine bessere Lösung siehe Raubtiers Antwort.
  Last edited: 2013-11-09 17:13:09 +0100 (CET)
  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
  - Raubtier
    
    2013-11-09 16:54
    
    User since
    2012-05-04
    1081 Artikel
    BenutzerIn
    
    Das hat das Problem, dass du gar nichts bekommst, wenn das Pattern nicht drin ist.
    
    Ich schlage mal das hier vor:
    perl -wE'$_="BBACCCCADD";say for split /(?<=A)(?=C)/'
    
    Also split an look-behind A und look-ahead C.
    - Linuxer
      
      2013-11-09 16:56
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Ich weiß, die Variante ist noch nicht perfekt.
      Ich arbeitete noch an einer besseren Lösung, der Du zuvor gekommen bist:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      #! /usr/bin/perl use strict; use warnings; # quickshot: split on "A" if followed by "C" while ( my $line = <DATA> ) { my @parts = grep {length} split m/(.+?A)(?=C)/, $line; # Kontrolle local $, = " "; print @parts, "\n"; } __DATA__ BBACCCCADD BACBACBACDAC BACBAC ABAA
      
      PS: Wobei Deine ja eine konsequente Weiterentwicklung meiner (obigen) Lösung ist. Gute Lösung!
      Last edited: 2013-11-09 16:58:56 +0100 (CET)
      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!

View all threads created 2013-11-09 16:01.