Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: Text::ANSI::Util for wrapping "colorful" text

by ibm1620 (Friar)
on Jul 25, 2022 at 16:42 UTC ( #11145718=note: print w/replies, xml ) Need Help??


in reply to Re^3: Text::ANSI::Util for wrapping "colorful" text
in thread Text::ANSI::Util for wrapping "colorful" text

Just thought I should add this...

This implementation starts dragging when the number of (space-separated) words exceeds ~300. This paragraph contains 341 words and took around a minute to wrap.

^[30m01:06:52:18 [CMP] Okay, Well look at the bottom by the first 2 in +ches without any constant direction. Indeed, at the bottom of this we +alth of nature. President Barbicane, however, lost not one of the Bar +bados. It is but an atom of carbonic acid, by a moment. We'll have fu +rther word on the forward OMNI is good for the inhabitants ought to b +e despised. But that day, about eleven o'clock position from the eart +h. Besides, even without these conditions, as regards the optical ins +truments at their highest pitch throughout this triumphant march. Mic +hel Ardan hoped to get any crew status report. We're about 88 degrees + east, coming up on the earth once more entered the Bay of Espiritu S +anto, opening precisely upon the moon's formation, by means of which +one is located at 7 The other one is right in on any of the United St +ates of the projectile! The necessary operations for the food bags ar +e so good, who ventures to affirm it. "True," rejoined the major. "Tr +ue," replied Barbicane. The problem is a PROCEED and allow the hot fi +re is complete, and I'm proceeding with opening the hatch at this cri +sis, as though the samples for that of the journey. Many foolish thin +gs had been probably 20 minutes to pass to Columbia, we would expect +that once this is Houston. We need a change had taken place in a pite +ous tone, that is not inhabited; no! the moon was a little hard for u +s in all four tanks and position the antenna tracks through in the si +gnal for renewed cries of still greater precision, they succeeded in +rising, drew a thermometer from its center. "Then," said Nicholl, it +is a little scratchy. It looks fairly good size. It has the choice be +tween two seas, they pretended that it is true; but it will continue +its elliptical crater, and then add UP DATA LINK switch to RANGE. We' +re going to be in opposition. These eclipses, caused by weight; nor a + boat, whose stability on the B B shot has hit the surface.^[0m
Another one, with 360 words, ran for five minutes before I killed it.

I'm running perl 5.36.0 on an M1 MacBook Air.

Replies are listed 'Best First'.
Re^5: Text::ANSI::Util for wrapping "colorful" text
by tybalt89 (Monsignor) on Jul 25, 2022 at 19:22 UTC

    I put that line into my test program and it took about 20 milliseconds.
    I'm running 5.36.0 on ArchLinux on a Ryzen 3700x
    I'd suspect either copy/paste error or some problem with Mac's \r vs Linux \n line termination, which of course I can't test since I don't have a Mac.

      Sorry to create confusion: those '^'s at the beginning and end are "\e". That makes the difference.

      Mac line endings are the same as Linux: 0x0a.

      When I tested just now in a standalone program, it took about 5 seconds. Doubling the length of the text between the escape sequences, though, I cancelled after about 30 secs. Remove the escape sequences and it's quick.

        Try this one...

        #!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11143680 use warnings; use 5.010; use Term::ANSIColor qw(color :constants); use List::Util qw( uniq ); sub findwrappoint { my ($string, $width) = @_; my $cut = 0; my $char = 0; while( $string =~ /(\e[[\d;]*m)|([^ ]+)|( +)/g ) { $3 and $char <= $width and $cut = $+[3]; $char += $1 ? 0 : $2 ? length $2 : length $3; $char > $width and return substr( $string, 0, $cut, ''), $string; } return $string, ''; } sub ta_wrap { my $cnt = 0; my ($text, $width, $optionsref) = @_; tr/\n\t/ /, s/ +/ /g for $text; # replace newlines and tabs my %pads = (flindent => '', slindent => '', %{ $optionsref // {} } ) +; $text = $pads{flindent} . $text; my $out = ''; my $carryover = ''; while( length $text ) { my ( $line, $rest ) = findwrappoint( $text, $width ); $out .= "$line\e[m\n"; s/.*\e\[0?m// for $carryover .= join '', $line =~ /\e[[\d;]*m/g; $carryover = join '', uniq $carryover =~ /\e[[\d;]*m/g; $text = $rest; $text =~ /./ and $text = "$pads{slindent}$carryover$text"; } return $out; } sub show { my $line = shift; my $wrapped = ta_wrap($line, 79, {flindent => q[ ] x 5, slindent => q[ ] x 5 } ); say "BEFORE:"; say $line; say "AFTER:"; say $wrapped; } show "Marley was " . BOLD . color('green') . "dead, " . RESET . "to be +gin with."; show "Marley was " . color('green') . "dead, " . RESET . "to be +gin with."; show "Marley was " . BOLD . "dead, " . RESET . "to be +gin with."; show "Marley was " . UNDERLINE . color('green') . BOLD . "dead, to beg +in with. " . RESET . "There is no doubt..."; show "Marley was " . UNDERLINE . "dead, to begin with +. " . RESET . "There is no doubt..."; show "Marley was dead, to begin with. There is no doubt..."; show UNDERLINE . "Marley was dead, to begin with. There is no doubt... +" . RESET; show qq(\e[33m01:06:52:18 [CMP] Okay, Well look at the bottom by the f +irst 2 inches without any constant direction. Indeed, at the bottom o +f this wealth of nature. President Barbicane, however, lost not one o +f the Barbados. It is but an atom of carbonic acid, by a moment. We'l +l have further word on the forward OMNI is good for the inhabitants o +ught to be despised. But that day, about eleven o'clock position from + the earth. Besides, even without these conditions, as regards the op +tical instruments at their highest pitch throughout this triumphant m +arch. Michel Ardan hoped to get any crew status report. We're about 8 +8 degrees east, coming up on the earth once more entered the Bay of E +spiritu Santo, opening precisely upon the moon's formation, by means +of which one is located at 7 The other one is right in on any of the +United States of the projectile! The necessary operations for the foo +d bags are so good, who ventures to affirm it. "True," rejoined the m +ajor. "True," replied Barbicane. The problem is a PROCEED and allow t +he hot fire is complete, and I'm proceeding with opening the hatch at + this crisis, as though the samples for that of the journey. Many foo +lish things had been probably 20 minutes to pass to Columbia, we woul +d expect that once this is Houston. We need a change had taken place +in a piteous tone, that is not inhabited; no! the moon was a little h +ard for us in all four tanks and position the antenna tracks through +in the signal for renewed cries of still greater precision, they succ +eeded in rising, drew a thermometer from its center. "Then," said Nic +holl, it is a little scratchy. It looks fairly good size. It has the +choice between two seas, they pretended that it is true; but it will +continue its elliptical crater, and then add UP DATA LINK switch to R +ANGE. We're going to be in opposition. These eclipses, caused by weig +ht; nor a boat, whose stability on the B B shot has hit the surface.\ +e[0m);

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11145718]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2022-12-07 21:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?