Question

我在Windows上使用由ActiveState构建的Perl v5.12.3。 DBD :: Oracle版本1.27。 DBI版本1.616。我正按照这个特定的顺序选择下面的数据，并希望以相同的顺序检索结果数据。以下是代码示例和一些示例。

SQL Snippet（下面$ report_sql的内容）

select student_number, lastfirst, counselor, 
   a.dateenrolled as "Date Enrolled 1", a.dateleft as "Date Left 1", a.termid as "Term ID 1", a.course_number as "Course Number 1", 
   a.expression as "Expression 1", b.dateenrolled as "Date Enrolled 2", b.dateleft as "Date Left 2", 
   b.termid as "Term ID 2", b.course_number as "Course Number 2", b.expression as "Expression 2"

Perl代码段

## run the resulting query
my $report_result = $dbh->prepare( $report_sql );
$report_result->execute();   
while( my $report_row = $report_result->fetchrow_hashref())
        {
            print Dumper(\$report_row); ## contents of this posted below

$ report_row的打印转储器的内容

$VAR1 = \{
        'Expression 2' => 'x',
        'LASTFIRST' => 'xx',
        'Term ID 1' => 'xx',
        'Date Enrolled 2' => 'xx',
        'Course Number 1' => 'xx',
        'Term ID 2' => 'xx',
        'STUDENT_NUMBER' => 'xx',
        'Date Left 2' => 'xx',
        'Expression 1' => 'xx',
        'COUNSELOR' => 'xx',
        'Date Left 1' => 'xx',
        'Course Number 2' => 'xx',
        'Date Enrolled 1' => 'xx'
      };

订单我期望它被打印

$VAR1 = \{
        'STUDENT_NUMBER' => 'xx',
        'LASTFIRST' => 'xx',
        'COUNSELOR' => 'xx',
        'Date Enrolled 1' => 'xx',
        'Date Left 1' => 'xx',
        'Term ID 1' => 'xx',
        'Course Number 1' => 'xx',
        'Expression 1' => 'xx',
        'Date Enrolled 2' => 'xx',
        'Date Left 2' => 'xx',
        'Term ID 2' => 'xx',
        'Course Number 2' => 'xx',
        'Expression 2' => 'x'
      };

需要注意的一点是，正在运行的查询是正在运行的许多查询之一。此特定脚本运行一系列查询，并根据返回的结果生成报告。查询与perl脚本一起存储在hd上的文件中。读入查询然后运行。并不总是选择相同的列。

Answer 1

您使用了哈希。散列元素没有可控的顺序*。可以控制阵列中元素的顺序。如果要显示接收字段的顺序，请使用数组而不是散列。

如果您确实需要名称，可以使用@{ $sth->{NAME} }获取字段的有序名称。出于效率原因，您仍应使用数组，但如果您愿意，可以使用哈希。

* - 就像数组元素按照它们的顺序返回一样＃34;物理上＆＃34;在数组中组织的哈希元素按照它们在哈希中物理组织的顺序返回。您无法控制元素在哈希中的物理位置，并且位置会随着哈希值的更改而更改。使用数组，您可以确定元素的物理位置，它将保持在该位置。

Answer 2

当DBI结果中的列顺序很重要时，您可以将列名和值作为数组引用。

...
my $names = $report_result->{NAME}; # or NAME_lc or NAME_uc
while( my $report_row = $report_result->fetchrow_arrayref() ) {
    for my $col_idx ( 0 .. $#{$names} ) {
        print "$names->[$col_idx]: $report_row->[$col_idx]\n";
    }
}

在我不得不担心国际化之前，我使用了很多来生成CSV报告，在传递结果数组之前将NAME数组传递给Text::CSV并编写报告只是编写查询

Perl DBI Oracle在SELECT之后不保留列顺序

2 个答案: