Kann jemand mir sagen, was dieser tut? Ich weiß, es liest Datensätze aus einer Tabelle und stellt sie in einen Hash. Wie drucke ich aus, sagen wir, die ersten 5 Spalten der Daten (unter der Voraussetzung, Spalten namens col1, col2, ...)?

    $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++;
    }

perldoc DBI
wird Ihnen sagen, ;-)
Aber zu der kaum mehr helfen,
Es ist schon eine ganze Weile her, seitdem ich zuletzt geschrieben haben Perl Code, die das DBI.
So ist es wahrscheinlich, ich vergessen, die meisten von DBI.
Aber wenn ich mich richtig erinnere,
die geholt hash'es Schlüssel sind die Feldnamen der Tabelle Artikel
dass Sie in Ihrer SELECT-Anweisung.
Seit NAME_lc ist, kannst du sicher auf die Tasten alle Kleinbuchstaben.
Hinweis, in Oracle sqlplus Sie könnte eine desc auf die Tabelle, die Sie wählen
, um zu sehen, die Feldnamen.
Sobald der Ergebnismenge abgerufen wird in Ihrem hashref ist es sehr einfach, auf die Felder
dank Perl's arrow Betreiber.
Da ich nicht weiß, dass Sie die Tabelle Felder ich field_N hier.
z. B.

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

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

Vielen Dank für die Infos