Zeichenkette splitten (gelöst) (Allgemeines zu Perl)

[thread]17714[/thread]

Zeichenkette splitten [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
jens_g

2012-08-30 17:40
User since
2011-05-31
6 Artikel
BenutzerIn
Hallo zusammen!

Endlich habe auch ich mal eine Frage ;)

Ich möchte eine Zeichenketten splitten (in ein Array, das je Element 3 Zeichen der Kette aufnehmen soll. Also aus
Code: (dl )

my $kette = "abcdefghijklmno";
soll ein Array werden. Das erste Element hat dann als Inhalt "abc", das zweite Element "def", das dritte "ghi" u.s.w.

Wie splittet man das?

Gruß - Jens
Last edited: 2012-08-30 17:42:33 +0200 (CEST)
- +5 replies
- betterworld
  
  2012-08-30 17:43
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  my @splitted = $kette =~ /.../g;
  
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +4 replies
  - Muffi
    
    2012-08-30 20:55
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Hab grad kein perl da, aber wenn ichs richtig im Kopf hab geht auch
    
    Code (perl): (dl )
    
    my @splitted = split(/(...)/, $kette);
    
    1 + 1 = 10
    - +3 replies
    - Linuxer
      
      2012-08-30 23:17
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Das erzeugt aber leere Felder in der Ergebnisliste vor und zwischen den eingefangenen split-Pattern.
      
      Beispiel:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      perl -wle ' my @splitted = split(/(...)/, "abcdefghij"); print ">$_<" for @splitted; ' >< >abc< >< >def< >< >ghi< >j<
      
      Nachtrag:
      Wenn man die Leerfelder eliminieren möchte, könnte man ein map {} nachschalten:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      $ perl -wle ' my @splitted = map { length $_ ? $_ : () } split(/(...)/, "abcdefghij"); print ">$_<" for @splitted; ' >abc< >def< >ghi< >j<
      
      Last edited: 2012-08-30 23:29:03 +0200 (CEST)
      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
      - Muffi
        
        2012-08-31 08:34
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ach, stimmt.
        
        Oder mit grep
        
        Code (perl): (dl )
        
        my @splitted = grep { length $_ } split(/(...)/, $kette);
        
        Aber besonders hübsch isses nicht.
        1 + 1 = 10
        
        Linuxer
        
        2012-08-31 08:40
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Ich merke, dass ich in letzter Zeit zuviel mit map gearbeitet habe. grep ist hier angebrachter als map.
        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!
- moritz
  
  2012-08-30 21:48
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Code (perl): (dl )
  
  my @a = unpack '(A3)*', $kette
  
  Perl 6 - Perls Zukunft

View all threads created 2012-08-30 17:40.