Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Add space in long string

by johngg (Abbot)
on May 28, 2013 at 13:29 UTC ( #1035598=note: print w/ replies, xml ) Need Help??


in reply to Add space in long string

Using substr as an alternative to regex substitution and also grouping in fours from the right-hand side in case that is a requirement.

$ perl -Mstrict -Mwarnings -E ' sub ins { my $str = shift; my $len = length $str; while ( ( $len -= 4 ) > 0 ) { substr $str, $len, 0, q{ }; } return $str; } say ins( $_ ) for qw{ 1 10 110 1101 10010 101100 1110101 10001011 110100010 };' 1 10 110 1101 1 0010 10 1100 111 0101 1000 1011 1 1010 0010 $

I hope this is useful.

Cheers,

JohnGG


Comment on Re: Add space in long string
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2015-07-04 04:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls