print auf mehrere zeilen aufteilen (Allgemeines zu Perl)

[thread]15107[/thread]

print auf mehrere zeilen aufteilen

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
Gast gast

2010-06-06 18:00
Hallo,
ich möchte gerne eine Zeile in mehre aufteilen, d.h. wenn meine 150 Zeichen hat möchte jeweils max. 60 Zeichen pro Zeile printen.
Code: (dl )

1 2 3 4 5

for(my $i = 1; $i <= length($zeile); $i++){ print 1..60 print 61 -120 print rest }
Gibts perl eine Funktion dafür???

}
Last edited: 2010-06-06 18:11:32 +0200 (CEST)
- +4 replies
- pq
  
  2010-06-06 18:18
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  Versuch mal Text::Wrap.vielleicht suchst du aber auch nur einfach die funktion substr
  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
  - Gast gast
    
    2010-06-06 18:24
    danke, ich glaube substr. ist richtig..nur mit den schleifen das funktioniert irgendwie nicht
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    for(my $i = 1; $i <= length($rest); $i= $i+60){ for(my $j = 60; $i <= length($rest); $j= $j+60){ print substr($rest,$i,$j)."\n"; } }
    
    Last edited: 2010-06-06 18:38:30 +0200 (CEST)
    - MatthiasW
      
      2010-06-06 18:48
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Ich würde dazu kein substr() benutzen:
      
      Code (perl): (dl )
      
      print join "\n", $string =~ /(.{1,60})/g; #edit: bösen fehler entfernt {60} => {1,60}
      
      Wenn du es aber doch mit substr() machen möchtest:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      for ( my $i = 0; $i < length($string); $i += 60 ) { print substr($string, $i, 60), "\n"; } # for # oder: (edit) print join "\n", map substr($string,$_*60,60), 0 .. length($string) / 60;
      
      MfG
      
      edit: int() entfernt
      Last edited: 2010-06-06 19:13:46 +0200 (CEST)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - renee
      
      2010-06-06 18:50
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      my $string = 'a' x 150; my $max = 60; while( $string ) { print substr( $string, 0, $max ), "\n"; $string = substr $string, $max; }
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- Gast rb999
  
  2010-06-06 19:23
  Man kann auch format und den Befehl write verwenden.
  Unter
  
  Code: (dl )
  
  perldoc perlform
  
  findet sich eine Beschreibung
  und zwei (oder mehr) Programmbeispiele für genau diese Problem.
  Last edited: 2010-06-06 19:43:42 +0200 (CEST)

View all threads created 2010-06-06 18:00.