The bare @'s in the format aren't syntactically correct. They should be @|, @< or @> even though you only want one character.

The following works. Change $= and the "Mem Segments" part of the format to suit. 


#!/usr/bin/perl -w

$= = 10;

my @x = (1..10);


format STDOUT_TOP =
+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Share
+d Mem
+name                    |    type   |                  node      Segm
+ents
.

format STDOUT =
@|||||||      @||      @||||  @|||  @|| @||||||||||  @||||||||   @< @<
+ @< 
@x
.

for (1..12) {
    write;
    @x = map {$_ +1} @x;
}

__END__
Prints:

+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Share
+d Mem
+name                    |    type   |                  node      Segm
+ents
   1           2         3     4     5       6           7       8  9 
+ 10
   2           3         4     5     6       7           8       9  10
+ 11
   3           4         5     6     7       8           9       10 11
+ 12
   4           5         6     7     8       9          10       11 12
+ 13
   5           6         7     8     9      10          11       12 13
+ 14
   6           7         8     9    10      11          12       13 14
+ 15
^L
+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Share
+d Mem
+name                    |    type   |                  node      Segm
+ents
   7           8         9     10   11      12          13       14 15
+ 16
   8           9        10     11   12      13          14       15 16
+ 17
   9          10        11     12   13      14          15       16 17
+ 18
   10         11        12     13   14      15          16       17 18
+ 19
   11         12        13     14   15      16          17       18 19
+ 20
   12         13        14     15   16      17          18       19 20
+ 21

[download]

--
John.

In reply to Re: format function by jmcnamara
in thread format function by mhearse

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.