Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
A friend of mine recently had an assignment where he had to split up a text file and print it out as a triangle. Of course this was in "c" and so, just because I could I had to see just how simple it would be in perl. The idea is to take a ctriangle.txt file like
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
and end up centered over 80 chars
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
The same principle applies to any text file, basically splitting words only on spaces or new lines
My best shot was 132 chars (\n inc). I especially like the new trick I learnt.
/[ ]+/
Which matches space/new line combinations.

Well this is the best I could do, after staring at it for half an hour it wasnt getting any shorter.

open F,"ctriangle.txt";sub n{print " "x(40-$r/2)."$x\n"};for(split/[ ]+/,join'',<F>){$c=$r,n,$x=''if( $r=length($x.=" $_"))>$c}n
- nashdj

Update:
With jeroenes idea, if I undef $/ by assigning it undef from an unused variable (not pretty but we're talking size) its down to 128 chars.

open F,"ctriangle.txt";sub n{print " "x(40-$r/2)."$x\n"};$/=$w;$_=<F>; for(split){$c=$r,n,$x=''if( $r=length($x.=" $_"))>$c}n

In reply to Triangle Golf by nashdj

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others cooling their heels in the Monastery: (10)
    As of 2015-07-29 03:04 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 (260 votes), past polls