should (@columns-3) maybe be ($columns-3)?

No, there is no variable named $columns. In scalar context, @columns is the same as scalar @columns, which returns the number of elements in the @columns array. Since you want 3 less than the total number of array elements, @columns - 3 is correct.

Can you take a look at the scripts and let me know where the problem is, as I can't understand it?

The problem is with these lines in the second script:

my $result = printf ...
...
my $data = printf ...

[download]

In both cases, printf should be sprintf. The latter returns the formatted string, which is what you want; the former returns “true” on success, hence the 1 numbers in the second output file. As the code now stands in the second script, the line my $data = printf $output ("%10.3f",$c); prints the formatted output to the output file, and sets $data to 1; then at the end of the for loop, all those 1s are printed to the file. You need something like this (untested):

my $result = sprintf("%8.3f", $col3); # column 3 format

# loop over remaining columns
for my $c (@columns) {
    my $data = sprintf("%10.3f", $c);
    $result .= " $data";  # append $result
}

print $output "$result\n";

[download]

Note that with this logic you don’t print to the output file until after the loop finishes.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

In reply to Re^5: column counter and printf question by Athanasius
in thread column counter and printf question by fasoli

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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, 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.