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

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

12 голосов
/ 17 февраля 2010

Я использую 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 "$csv\n";
}

$result->finish;

$database->disconnect;

Ответы [ 5 ]

15 голосов
/ 17 февраля 2010

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

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 в любом случае, когда база данных решит вернуть их.

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

2 голосов
/ 18 декабря 2014

Определите имена ваших столбцов в массиве до вашего SELECT

В идеале у вас будет список столбцов, которые вы ВЫБИРАЛИ с 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 голосов
/ 27 января 2014

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

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

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

1 голос
/ 09 июня 2015

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

    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 голос
/ 17 февраля 2010

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

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

...