Как получить список результатов, когда sqlite возвращает более одной строки?

Question

это как моя таблица выглядит:

key | driver | machine  | result 
----------------------------------- 
1 | 1234 | abc_machine | pass 
2 | 1234 | xyz_machine | fail 

, когда пользователь выбирает «1234» от водителя и все из машины вещи получить немного грязный. (Пользователь делает выбор из графического интерфейса)

когда я делаю:

$getConfig = `sqlite3 abc.db "SELECT machine FROM $table_name WHERE driver='$drvrSel'"`; 

это дает мне abc_machine xyz_machine.

Я попытался отделить их, используя split(/ /, $getConfig), но не работает.

спасибо.

Прошу прощения, если я задал этот вопрос не в том месте. Я попытался найти подходящее место, но не смог его найти.

Answer 1

Там может быть скрытая вкладка или символ новой строки. Посмотрите на значение ascii пустого символа между строками и используйте его в вашем раздельном вызове.

Answer 2

Вместо вызова программы SQLite вы должны использовать DBI.

Кстати:

perl -MData::Dumper -e '$_="abc_machine xyz_machine";print Dumper split//;' 

$ VAR1 = 'abc_machine';
$ VAR2 = 'xyz_machine';

Итак, проверьте данные, содержащиеся в $getConfig.

Answer 3

На самом деле sqlite3 поддерживает два варианта командной строки, которые могут вам пригодиться: -list (разделитель - '|') и -csv для csv-файла. Подробнее см. Справочную страницу для sqlite3. Затем вы можете разделить на разделитель или использовать Text :: CSV_XS для разделения отдельных полей.

Следуя за комментарием Rashids ниже, я явно не понял ваш вопрос. Виноват. Вот один из способов сделать это:

my $result = `sqlite3 dbname "query"`; 
$result =~ s/\n/ /gs; 

Answer 4

#!/usr/bin/perl 

use DBI; 
use strict; 

my $dbargs = {AutoCommit => 0, PrintError => 1}; 

my $dbh = DBI->connect("dbi:SQLite:dbname=test.db","","",$dbargs); 
my $sth = $dbh->prepare("SELECT machine FROM test WHERE driver = 1234"); 
$sth->execute(); 

my @data; 

while (@data = $sth->fetchrow_array()) { 
    print $data[0] . "\n"; 
} 

$sth->finish; 
$dbh->disconnect; 

Answer 5

ОК, ребята, я нашел его ...

\ W соответствует любому не «слово» символ

`@setConfig = split(/\W/, $getConfig);` 

это отделяет его приятно в:

$ setConfig [0] = abc_machine $ setConfig [1] = xyz_machine

спасибо всем.