Split in Gruppen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-07-01 14:10:33
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
13 Gäste

[thread]19125[/thread]

submit to reddit

Split in Gruppen [gelöst]

[gelöst]

Tags: perl5 split gruppieren Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+10 replies
MarkusH

2014-05-31 13:17
User since
2012-04-08
162 Artikel
BenutzerIn
Hallo,

ich möchte einen String in Gruppen zu je zwei Zeichen splitten.
Das funktioniert soweit mit
Code (perl): (dl )

my @rgb = split /(\w{2})/, '4C4C45';
Ich hätte jetzt folgendes Array erwartet:
Code: (dl )

1 2 3 4 5

$VAR1 = [ '4C', '4C', '45' ];
Stattdessen erhalte ich aber
Code: (dl )

1 2 3 4 5 6 7 8

$VAR1 = [ '', '4C', '', '4C', '', '45' ];
Ich verstehe nicht, warum das so ist.
Wie erhalte ich ein Array ohne die Leerplätze?
$q =~ /(bb|[^b]{2})/
- +9 replies
- GwenDragon
  
  2014-05-31 13:24
  User since
  2005-01-17
  14848 Artikel
  Admin1
  Du darfst nicht split verwenden. split trennt am Trennzeichen auf, und bei dir ist das Trennzeichen eben zwei Wortzeichen (\w{2})!
  
  Du solltest einen Regex match nehmen:
  
  Code (perl): (dl )
  
  my (@rgb) = '4C4C45' =~ m/(\w{2})/g;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - MarkusH
    
    2014-05-31 15:13
    
    User since
    2012-04-08
    162 Artikel
    BenutzerIn
    
    Danke!
    $q =~ /(bb|[^b]{2})/
    - +7 replies
    - Linuxer
      
      2014-06-01 17:39
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      ist Dir denn klar geworden, was genau beim perlfunc split passiert und warum Du dieses Ergebnis bekommst?
      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!
      - +6 replies
      - MarkusH
        
        2014-06-01 21:17
        
        User since
        2012-04-08
        162 Artikel
        BenutzerIn
        
        Nein, mir ist völlig unklar, warum dieses Ergebnis zustande kommt. Hab zwar auch Onkel Google befragt, aber der wußte es auch nicht.
        $q =~ /(bb|[^b]{2})/
        
        +2 replies
        
        lichtkind
        
        2014-06-01 21:36
        
        User since
        2004-03-22
        5708 Artikel
        ModeratorIn + EditorIn
        
        naja so schwer ist es nicht. im normalfall trennt man sachen wie
        
        Code (perl): (dl )
        
        split /:/, "mehrere:verschiedene:sachen"
        
        und bekommt die 3 worte. Was du ihm zu suchen gibst sind 2 buchstaben.
        der erste fund sind 4c und davor ist nur "" also ist das das erste ergebnis von split die nächsten funde sind ...
        
        [MODEDIT - blödsinn gelöscht bevor es jemand als anleitung nimmt]
        Last edited: 2014-06-02 20:58:12 +0200 (CEST)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        pq
        
        2014-06-01 22:48
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        nix verhaspeln ;-)
        
        verwendet man klammern, wird gecaptured, und in dem fall bekommt man die captures als zusätzliches ergebnis.
        
        Quote
        If the PATTERN contains parentheses, additional list elements are created from each matching substring in the delimiter.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        perl -wE' my $string = "abc:def:ghi"; my @array = split /(:)/, $string; say for @array' abc : def : ghi
        
        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
        
        2014-06-01 23:46
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        In grober Beschreibung, was passiert:
        
        Der String soll an einem Pattern (zwei Wortzeichen) getrennt; das gefundene Pattern soll zusätzlich zu den aufgetrennten Teilstrings mitgeliefert werden.
        
        Das verwendete Pattern wird bei Deinem String als "4C", "4C" und "45" gefunden.
        
        Zwischen diesen Sequenzen gibt es aber keinen Rest-Text mehr, also wird als aufgetrennter Teilstring der Leerstring geliefert.
        
        Wenn Du Deinen Beispieltext etwas änderst, wird das vielleicht etwas deutlicher:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $ # Sonderzeichen und Verbindungslinien zur Verdeutlichung eingefügt $ perl -MData::Dumper -e 'my @rgb = split /(\w{2})/, ".4C,4C-45"; print Dumper \@rgb;' $VAR1 = [ | | | '.', ---------------------------------------/ | | '4C', | | ',', ------------------------------------------/ | '4C', | '-', ---------------------------------------------/ '45' ];
        
        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!
        
        lichtkind
        
        2014-06-02 15:18
        
        User since
        2004-03-22
        5708 Artikel
        ModeratorIn + EditorIn
        
        danke euch beiden, bin halt noch immer anfänger :)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        MarkusH
        
        2014-06-02 19:27
        
        User since
        2012-04-08
        162 Artikel
        BenutzerIn
        
        Danke für die ausführliche Erklärung!
        $q =~ /(bb|[^b]{2})/

View all threads created 2014-05-31 13:17.