Re^2: Confession of a hard headed Monk

in reply to Re: Confession of a hard headed Monk
in thread Confession of a hard headed Monk

Just because something works does not mean it is useful, good, or right. There are very few people would find a number as a word useful, but an integer is very useful. So making the return of an integer the default might lead to a few people using this little subroutine possibly. I've given an example below of what it does, and to show why it is more useful to return an integer by default.

use Util::Columns;

my @list = <DATA>;
chomp @list;

my $columns = get_columns(7, \@list); # why take another step to get a
+n integer?

# If you don't add 1 to the result of the division below,
# you will get an additional column.
my $splicer = (scalar(@list) / $columns) + 1;

my $row;
push @$row, join("\n", splice(@list, 0, $splicer)) while @list;

# then print the row however you like
[download]

This is what I got from a list of html elements. If the list had fewer than 49 items, the there would have been 6 columns. (I have been working a lot with html elements lately, so they are on my mind.)

<a>          <code>       <fieldset>   <img>        <object>     <sect
+ion>    <tfoot>     
<abbr>       <col>        <figcaption> <input>      <ol>         <sele
+ct>     <th>        
<address>    <colgroup>   <figure>     <ins>        <optgroup>   <shad
+ow>     <thead>     
<area>       <content>    <footer>     <kbd>        <option>     <slot
+>       <time>      
<article>    <data>       <form>       <label>      <output>     <smal
+l>      <title>     
<aside>      <datalist>   <h1>         <legend>     <p>          <sour
+ce>     <tr>        
<audio>      <dd>         <h2>         <li>         <param>      <span
+>       <track>     
<b>          <del>        <h3>         <link>       <pre>        <stro
+ng>     <u>         
<base>       <details>    <h4>         <main>       <progress>   <styl
+e>      <ul>        
<bdi>        <dfn>        <h5>         <map>        <q>          <sub>
+        <var>       
<bdo>        <dialog>     <h6>         <mark>       <rp>         <summ
+ary>    <video>     
<blockquote> <div>        <head>       <menu>       <rt>         <sup>
+        <wbr>       
<br>         <dl>         <header>     <menuitem>   <rtc>        <tabl
+e>
<button>     <dt>         <hgroup>     <meta>       <ruby>       <tbod
+y>
<canvas>     <element>    <hr>         <meter>      <s>          <td>
<caption>    <em>         <html>       <nav>        <samp>       <temp
+late>
<cite>       <embed>      <i>          <noscript>   <script>     <text
+area>
[download]

No matter how hysterical I get, my problems are not time sensitive. So, relax, have a cookie, and a very nice day!

Lady Aleena

Comment on Re^2: Confession of a hard headed Monk Select or Download Code

Replies are listed 'Best First'.
Re^3: Confession of a hard headed Monk by marto (Cardinal) on May 12, 2017 at 18:40 UTC
Just and FYI, you're replying to someone with a track record of terrible advice and frankly nonsense postings.	[reply]
Re^4: Confession of a hard headed Monk by karlgoethebier (Abbot) on May 16, 2017 at 15:38 UTC
"...terrible advice and frankly nonsense postings." For sure. But why are there still some folks that up vote his junk? Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť Furthermore I consider that Donald Trump must be impeached as soon as possible	[reply]
Re^5: Confession of a hard headed Monk by hippo (Bishop) on May 16, 2017 at 15:58 UTC
Some men just want to watch the world burn.	[reply]
Re^3: Confession of a hard headed Monk by Lady_Aleena (Priest) on May 16, 2017 at 17:26 UTC
Bad, bad, bad logic in a part of the usage code I provided above... `# If you don't add 1 to the result of the division below, # you will get an additional column. my $splicer = (scalar(@list) / $columns) + 1;` [download] It should be... `# Add 1 to the result of the division below # if list is not evenly divisible by $columns. my $splicer = int(scalar(@list) / $columns); $splicer += scalar(@list) % $columns > 0 ? 1 : 0;` [download] Sorry for not thoroughly testing that part. 8( *No matter how hysterical I get, my problems are not time sensitive. So, relax, have a cookie, and a very nice day!* Lady Aleena	[reply] [d/l] [select]
Re^4: Confession of a hard headed Monk by choroba (Cardinal) on May 16, 2017 at 19:05 UTC
Which can be shortened to `my $splicer = int(@list / $columns) + (@list % $columns > 0);` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^5: Confession of a hard headed Monk by Lady_Aleena (Priest) on May 16, 2017 at 19:24 UTC
That gets a little long for things like the following: `int(scalar split(/, /, $string) / $columns_for_string) + (scalar split +(/, /, $string) % $columns_for_string > 0);` [download] 8)</c> *No matter how hysterical I get, my problems are not time sensitive. So, relax, have a cookie, and a very nice day!* Lady Aleena	[reply] [d/l]

In Section Meditations