In einem String Zeilenumbruch setzen (solved) (Allgemeines zu Perl)

[thread]20368[/thread]

In einem String Zeilenumbruch setzen [solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+6 replies
Sascha2018

2017-09-04 10:39
User since
2017-08-05
51 articles
BenutzerIn
Hallo.

Folgende Frage:
Ich habe zum Beispiel einen langen String.
Code: (dl )

my $text = "Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaalo\nWie geht es dir heute so ?";
Ich arbeite zur Zeit mit dem Text::Wrap Modul und habe folgendes programmiert:
Code: (dl )

1 2 3

$Text::Wrap::columns=250; $Text::Wrap::break='[\s+]'; $message=wrap('',' ', $message);
Ich möchte jetzt zum Beispiel nach bestimmt vielen Wörtern einen Zeilenumbruch herbeiführen.
Das klappt soweit auch damit ganz gut.
Nur .... Wenn das Hallo jetzt ganz lang wird , also ohne Leerzeichen, dann kommt kein Zeilenumbruch.
Wie kann ich es jetzt programmieren, das dort auch einer kommt, wenn ein Wort zu lang ist?

lg

Danke
- +4 replies
- renee
 
 2017-09-04 10:53
 User since
 2003-08-04
 14371 articles
 ModeratorIn
 Welche Version hast Du?
 
 Bei mir sieht das so aus:
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13
 
 use v5.10; use strict; use warnings; use Text::Wrap; my $text = "Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaalo\nWie geht es dir heute so ?"; $Text::Wrap::columns=10; $Text::Wrap::break='[\s+]'; my $message=wrap('',' ', $text); say $message;
 
 mit der Ausgabe
 
 Code: (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
 
 $ perl community/wrap.pl Haaaaaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aalo Wie geht es dir heute so ? $
 
 Code: (dl )
 
 1 2 3 4
 
 $ perl -MText::Wrap\ 99999999999999 -e 1 Text::Wrap version 2147483647 required--this is only version 2013.0523. BEGIN failed--compilation aborted. $
 
 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/
 - +3 replies
 - Sascha2018
 
 2017-09-04 11:11
 
 User since
 2017-08-05
 51 articles
 BenutzerIn
 
 Danke... Die Lösung war einfach Columns bisschen runterzusetzen
 Welche Version habe ich keine Ahnung ;)
 
 lg
 - +2 replies
 - Sascha2018
 
 2017-09-04 11:41
 
 User since
 2017-08-05
 51 articles
 BenutzerIn
 
 Ok das klappt jetzt wenn man es heruntersetzt.
 Aber was kann man bei:
 
 Code: (dl )
 
 $Text::Wrap::break='[\s+]';
 
 einstellen, das z.b HTML Tags nicht durch ersetzt werden sollen ?
 In dem String kann auch ein ziemlich langer <img src="......................."> vorkommen, und das wird ebenfalls umgebrochen, obwohl ich das nicht möchte :(
 - GwenDragon
 
 2017-09-04 12:33
 
 User since
 2005-01-17
 14835 articles
 Admin1
 
 Vielleicht wäre Text::Format besser, da kannst du das img im NoBreakRegex angeben.
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- lichtkind
 
 2017-09-04 12:50
 
 User since
 2004-03-22
 5701 articles
 ModeratorIn + EditorIn
 
 schau mal unter Text::Wrap steht:
 
 "When words that are longer than $columns are encountered, they are broken up. wrap() adds a "\n" at column $columns. This behavior can be overridden by setting $huge to 'die' or to 'overflow'. When set to 'die', large words will cause die() to be called. When set to 'overflow', large words will be left intact."
 
 aah zu langsam ... hatte den tab noch offen
 Tutorien in der Wiki, mein zeug:
 kephra, baumhaus, garten, gezwitscher
 
 Es beginnt immer mit einer Entscheidung.

View all threads created 2017-09-04 10:39.