Hi all ..
I am struggeling for some now with the follwoing problem.
I am doing a query on a oracle DB and get the results via fetchrow_hashref, and that is giving me a long list back which viewed with Dumper. the data i get back is
$VAR = [
'bla',
'bla1',
'etc',
'etc',
];
now i want to print that to the screen using map, like this
Snippet of code
my $self = shift;
my $q = $self->query();
# The execute is called from a differnt module for securety reasons. a
+nd there is the actual fetch done.
my $result = $self->execute(statement => 'data_ossd',
ary2d => '1',
handle => 'appframe');
print STDERR Dumper($result);
my $output = $q->table({-border=>'1', -align=>'center'});
$output .= $q->Tr({-align=>'CENTER', -valign=>'TOP', -width=>'70
+%'});
$output .= $q->th({-style=>'font-size: 10px'},['Mso_id','Mso_nam
+e','Postcode','Housenumber','Appertment number','Who enterd data',
'Email send to','Date send','Update recieved','TT number','Status']);
$output .= $q->Tr(map{$q->td($_)}@{$result});
return $output;
at the moment it is all being printed in one long line but i want to print per row in a table.
the script is based on CGI::Application to create a secure env for the user.
I hope i have typed a clear question but i doubt it :)
Thnx for any responses
paul janzen
In reply to 2d array
by pjanzen
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.