Splitting text into lines

[wxb2744]

Hi,

This is more a challenge then a question really.

I'm wanting to print some long lines out to a terminal, but I don't want the terminal to cut words in half as they wrap to the next line. Essentially I want to be able to split on the last word boundary before, say, 80 characters. I cannot pre-format the text as the terminal width is not guaranteed to be the same.

I want to, for example, to do this: -

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor 
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis 
nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. 
Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu 
fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in 
culpa qui officia deserunt mollit anim id est laborum

instead of this: -

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor 
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis [red][b]nostr
ud[/b][/red] exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis [red][b]au
te[/b][/red] irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat 
nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa [red][b]qu
i[/b][/red] officia deserunt mollit anim id est laborum

I've already got some code that does it, but it is clunky and horrible. I'm looking for something simpler and more elegant.

Thanks,

Warren

 

[feherke]

Hi

See if you have [tt]fold[/tt].

Feherke.

http://free.rootshell.be/~feherke/

 

[feherke]

Hi

Oops. I though this is shell scripting question.

Use [tt]Text::Wrap[/tt]'s [tt]wrap()[/tt] to wrap the lines where [tt]Term::ReadKey[/tt]'s [tt]GetTerminalSize()[/tt] indicates.

( [tt]Text::Wrap[/tt] is a are core module, but [tt]Term::ReadKey[/tt] is not. )


Feherke.

http://free.rootshell.be/~feherke/

 

[wxb2744]

Thanks feherke, but I spent most of yesterday looking into it and I got the code down to: -

[blue]my $[/blue]text = "[COLOR=gray]Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.[/color]";

[blue]my $[/blue]width = [red]80[/red] - [red]1[/red]; [green]# 80 just for example[/green]
[red]print[/red] "[gray]$_\n[/gray]" [red]for[/red] [blue]$[/blue]text =~ /\s?(.{[red]1[/red],[blue]$[/blue]width})(?=\s|$)/g;

Warren