spliten (Allgemeines zu Perl) - Perl-Community.de

[thread]14785[/thread]

spliten

Leser: 23

Articles: hide open all | hide show old branches

+9 replies
Gast Martin

2010-03-08 14:37

Ist es möglich einen String einzulesen, der aus n Buchstaben besteht, diesen immer nach dem xten Zeichen abzuschneiden und eine neue Zeilen zu beginnen?
z.B: n=15, x=5
hallohallohallo

gewünschtes Erg.:
hallo
hallo
hallo

???
- +8 replies
- pq
  
  2010-03-08 14:43
  User since
  2003-08-04
  12208 Artikel
  Admin1
  klar.
  
  Code (perl): (dl )
  
  $string =~ s/(.{1,$n})/$1\n/g;
  
  generell wäre es höflich, wenn du das nächste mal dazusagst, was du schon versucht hast bzw. wieviel perl du kannst. wenn man keine ahnung hat, wieviel perl das gegenüber kann, ist es manchmal schwierig, eine gute antwort zu finden, weil man nicht weiss, ob sie verstanden wird. (unsere FAQ, die beim schreiben eines artikels verlinkt ist, hast du ja sicher gelesen.)
  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
  - Gast Martin
    
    2010-03-08 14:50
    
    Danke für die schnelle Antwort. Ich hab nicht viel Perl Erfahrungen. Kannst du mir daher kurz dein perl code erläutern? Wäre dir sehr dankbar.
    - +5 replies
    - pq
      
      2010-03-08 14:53
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      falls du die lektüre noch nicht kennst:
      http://p3rl.org/perlintro
      http://p3rl.org/perlre (stichwort "Quantifiers" ist speziell bei dieser regex nützlich)
      http://p3rl.org/perlretut
      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
      - Gast Martin
        
        2010-03-08 15:26
        
        Ok, da ich aber mehre strings der gleichen Länge n habe und sie alle nach länge x in einer neuen Zele beginnen lassen möchte, habe ich mir folgendes über legt:
        (Bsp: aus :
        
        Code: (dl )
        
        1 2
        
        hallohallohallo hannahannahanna
        
        soll werden:
        
        Code: (dl )
        
        1 2 3 4
        
        hallo hanna hallo hanna
        
        )
        Code:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my $string1="hallohallohallo"; my $string2="hannahannahanna"; my @array1; my @array2; push(@array1,$string1); push(@array2,$string2); my $count=0; for my $i (0..$#array1){ if($i % 5 == 0){ for my $j($count..$i){ print $array1[$j]."\n"; print $array2[$j]."\n"; } $count=$i; } }
        
        Ergebnis ist das die strings unverändert bleiben.
        
        +2 replies
        
        pq
        
        2010-03-08 15:29
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        und warum benutzt du nicht meine lösung? das $n in meiner regex steht für die anzahl der zeichen, die pro zeile übrig bleiben sollen.
        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
        
        Gast Martin
        
        2010-03-08 15:47
        
        Da ich jetzt 2 strings habe und sie abwechselnd ausgeben möchte.
        
        pq
        
        2010-03-08 16:08
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        my @s = qw/ hallohallohallO hannahannahannA /; for (@s) { $_ = [m/(.{1,5})/g]; } for my $i (0 .. $#{ $s[0] }) { for (@s) { print "$_->[$i]\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
  - Escape
    
    2010-03-08 15:23
    User since
    2008-07-24
    312 Artikel
    BenutzerIn
    
    2010-03-08T13:43:18 pq
    klar.
    
    Code (perl): (dl )
    
    $string =~ s/(.{1,$n})/$1\n/g;
    
    Bezogen auf den Inhalt der Fragestellung ...
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $string = "hallohallohallo"; my $x = 5; $string =~ s/(.{$x})/$1\n/g; print $string;
    
    Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.

View all threads created 2010-03-08 14:37.