in reply to Re: spliting a lengthy text
in thread splitting and coloring

Very nice (++) but aren't you missing the new line? ... 
print join ' ', unpack '(a10)*', "$_\n" for unpack '(a50)*', $str;

[download]
 update that newline is in the wrong place... 
print "" . join ' ', unpack '(a10)*', $_ . "\n" for unpack '(a50)*', $
+str;

[download]
update A regex solution based on your plan of attack (if only because (un)?pack still scares me :) 
for ($str =~ /.{1,50}/g) {print join " ", /.{1,10}/g; print "\n"}

[download]
---
my name's not Keith, and I'm not reasonable.

Replies are listed 'Best First'.
Re^3: spliting a lengthy text
by BrowserUk (Patriarch) on Nov 27, 2006 at 11:02 UTC

    I habitually run perl with -l enabled (see perlrun), which has the effect of setting $/ =  "\n" (and $\ = "\n"), so print adds a newline automatically. Hence the output I posted is unmodifed.

    This makes print (roughly?) equivalent to say in Perl 6.

    I also seem to recall seeing a news item that suggested that this keyword would also be available in Perl 5 as of v5.10?

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]
      I also seem to recall seeing a news item that suggested that this keyword would also be available in Perl 5 as of v5.10?

      Indeed it will. It is implemented as a weak keyword, thus you do have to write

        use feature 'say';

      [download]

      ... to activate it. A search revealed that there were a number of modules on CPAN (predating the existence of Perl 6) that already define a routine named 'say'. Adding it as a regular keyword would have broken them, as well as unknowable amounts of code living behind firewalls that the porters could never know about.

      The Perl development team places a lot of importance in not breaking existing code (even if it means you have to resort to the above gymnastics in new code). If I remember correctly, a sitecustomize.pl program (run at the start of every incovation implicitly) will allow you to set this once and for all, for all code run on a given host.

      • another intruder with the mooring in the heart of the Perl

[reply]
[d/l]

In Section Seekers of Perl Wisdom