Perl newbie question

ssmiths001 · #1 (**permalink**) 05-05-2006

Can someone tell me what this is doing? I know it is reading records from a table and puts them in a hash. How do I print out, let's say, the first 5 columns of data (assuming columns are named col1, col2, ...)?

Code:

    $sth = $dbh->prepare("select *
                          from stsc.loc
                          where p_loclevel = 4 and rownum < 11");
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref('NAME_lc'))
    {
        $dlrinfo{$hash_ref->{loc}} = \%$hash_ref;
        $dlrcount++;
    }

buffoonix · #2 (**permalink**) 05-05-2006

perldoc DBI
will tell you ;-)
But to be of little more help,
it's been quite a while since I last have written Perl code that used the DBI.
Thus it's likely I forgotten most of DBI.
But if I remember correctly,
the fetched hash'es keys are the field names of the table items
that you prepared in your select statement.
Since NAME_lc is passed you can safely reference the keys all lower case.
Hint, in Oracle's sqlplus you could issue a desc on the table you select
to see the field names.
Once the result set is fetched in your hashref it's very easy to refer to the fields
thanks to Perl's arrow operator.
Since I don't know you table's fields I use field_N here.
e.g.

Code:

my $field_1 = $hash_ref->{field_1};
my $field_5 = $hash_ref->{field_5};

But you could also reference them collectively by a hash slice.
e.g.

Code:

my ($field_2, $field_7, $field_3) = @{$hash_ref}{qw(field_2 field_7 field_3)};

But admittedly, this looks rather ugly,
and referencing like this gave Perl the reputation of line noise and obfuscation.

ssmiths001 · #3 (**permalink**) 05-08-2006

Thanks for the info

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
UNIX newbie NEWBIE question!	Hanamachi	UNIX for Dummies Questions & Answers	4	03-28-2009 04:10 PM
Perl Newbie - help!	Khoomfire	Shell Programming and Scripting	1	04-24-2008 03:43 PM
perl newbie: how to extract an unknown word from a string	wolwy_pete	Shell Programming and Scripting	3	03-23-2008 10:41 AM
Newbie question	peeyush_23	Shell Programming and Scripting	9	02-18-2005 06:39 PM
newbie question	ninja	UNIX for Dummies Questions & Answers	3	07-11-2001 05:34 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by