Как я могу получить имена столбцов и данные строк в порядке с DBI в Perl?

Я использую DBI для запроса базы данных SQLite3. То, что у меня есть, работает, но не возвращает столбцы по порядку. Пример:

Query:  select col1, col2, col3, col4 from some_view;
Output:

    col3, col2, col1, col4
    3, 2, 1, 4
    3, 2, 1, 4
    3, 2, 1, 4
    3, 2, 1, 4
    ...

(values and columns are just for illustration)

Я знаю, что это происходит потому, что я использую хэш -, но как еще я могу получить имена столбцов, если я использую только массив? Все, что я хочу сделать, это получить что-то подобное для любого произвольные запрос:

    col1, col2, col3, col4
    1, 2, 3, 4
    1, 2, 3, 4
    1, 2, 3, 4
    1, 2, 3, 4
    ...

(то есть мне нужен вывод в правильном порядке и со столбцом имена.)

Я очень новичок Perl, но я действительно думал, что это будет простая проблема. (Я делал это раньше в Ruby и PHP, но у меня возникли проблемы с отслеживанием того, что я ищу в документации Perl.)

вот сокращенная версия того, что у меня есть на данный момент:

use Data::Dumper;
use DBI;

my $database_path = '~/path/to/db.sqlite3';

$database = DBI->connect(
  "dbi:SQLite:dbname=$database_path",
  "",
  "",
  {
    RaiseError => 1,
    AutoCommit => 0,
  }
) or die "Couldn't connect to database: " . DBI->errstr;

my $result = $database->prepare('select col1, col2, col3, col4 from some_view;')
    or die "Couldn't prepare query: " . $database->errstr;

$result->execute
    or die "Couldn't execute query: " . $result->errstr;

########################################################################################### 
# What goes here to print the fields that I requested in the query?
# It can be totally arbitrary or '*' -- "col1, col2, col3, col4" is just for illustration.
# I would expect it to be called something like $result->fields
########################################################################################### 

while (my $row = $result->fetchrow_hashref) {
    my $csv = join(',', values %$row);
    print "$csvn";
}

$result->finish;

$database->disconnect;
12
dbi perl sqlite3

5 ответов

замените комментарий" что здесь происходит " и следующий цикл:

my $fields = join(',', @{ $result->{NAME_lc} });
print "$fields\n";

while (my $row = $result->fetchrow_arrayref) {
    my $csv = join(',', @$row);
    print "$csv\n";
}

NAME_lc дает имена полей в нижнем регистре. Вы также можете использовать NAME_uc прописные, или NAME в любом случае база данных решает вернуть их.

вы также, вероятно, должны использовать текст:: CSV или текст::CSV_XS вместо того, чтобы пытаться свернуть свой собственный CSV-файл, но это другой вопрос.

15

Если вы хотите сохранить порядок, но все же используете хэш для ссылки на поля по имени используйте:

$dbh->selectall_arrayref($sql,{ Slice => {} } );

Это даст вам упорядоченный массив хэшей

2

определите имена столбцов в массиве перед выбором

В идеале у вас был бы список столбцов, которые вы были выберите передоза С DBI, и вы бы использовали этот массив.

Если вам нужно получить имена столбцов из самого хэша, это будет работать, и вы можете сортировать его, но нет никаких указаний на оригинал SQL SELECT порядок (в хэше):

my %cols_hash = ("name" => "john", "age" => 2, "color" => "apalachian");
my $cols_hash_ref = \%cols;  

my @keys = (sort keys %$cols_hash_ref);  
my @vals;  
foreach (@keys){ push @vals, $$cols_hash_ref{$_} };

надеюсь, что это помогает.

когда я искал, я нашел способ получить имена столбцов из DBI:

$sth = $dbh->prepare($query) or die "Prepare exceptioin: $DBI::errstr!";  
$rv = $sth->execute() or die "Execute exception: $DBI::errstr";  
$res = $sth->fetchall_arrayref();  

# Array reference with cols captions, which were retrived.  
$col_names_array_ref = $sth->{NAME};

это должно дать вам имена столбцов в исходном порядке, но я не тестировал его.

2

вы просите результат как хэш. Хэш по своей сути неупорядочен. Возможно, вы хотите .

на самом деле, если бы вы посмотрели на keys %$row, вы бы увидели, что соответствующие ключи также вышли из строя. Такова природа гашиша... каждый ключ сопряжен со своим значением, но общий порядок ключей или значений оптимизирован для доступа, а не внешнего порядка.

1

вот что я делаю: 

    use Data::Dump qw(dump);
    # get column names in array
    my @column_names_array= $sth->{NAME};  
    # print out column names in pretty format
    print "Field names: \n";
    dump(@column_names_array);
1