basically, i'm doing this: (full cod below)$test{ shift @array } = \@array; to set up a little hash, which works fine and outputs this (no, CGI::Pretty isn't broken, i changed this slightly to save screen space =): 

<TABLE><TR>
        <TD>1</TD>
        <TD>2</TD>
        <TD>3</TD>
        <TD>4</TD>
        <TD>5</TD>
        <TD>6</TD>
        <TD>7</TD>
        <TD>8</TD>
        <TD>9</TD>
</TR>
</TABLE>

[download]

I realize I only want a few members of the array so change it to: $test{ shift @array } = \@{ [ @array[0,1,2] ] }; which makes the output: 

<TABLE><TR>
        <TD>1</TD>
        <TD>1</TD>
        <TD>2</TD>
        <TD>3</TD>
</TR>
</TABLE>

[download]

Is it just me or should 1 no longer be in @array?

full script with funky line: 

use strict;
use warnings;
use CGI;
use CGI::Pretty;

my %test;
my @array = qw(1 2 3 4 5 6 7 8 9);
my $q = new CGI;

$test{ shift @array } = \@{ [ @array[0,1,2] ] };

print $q->start_table(-border=>"1");
print map { $q->Tr($q->td($_),$q->td($test{$_})) } keys %test;
print $q->end_table(), "\n\n";

[download]
"A man's maturity -- consists in having found again the
seriousness one had as a child, at play."   --Nietzsche

[download]

In reply to i thought i understood shift... by jptxs

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.