Comment puis-je obtenir une liste de résultats lorsque sqlite renvoie plus d'une ligne?

Question

voici comment ma table ressemble:

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

lorsqu'un utilisateur sélectionne « 1234 » du conducteur et tout des choses de la machine deviennent un peu en désordre. (Utilisateur effectue la sélection d'une IUG)

quand je fais:

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

il me donne abc_machine xyz_machine.

J'ai essayé de les séparer en utilisant split(/ /, $getConfig), mais cela ne fonctionne pas.

Merci.

Je suis désolé si j'ai posé cette question à un mauvais endroit. J'ai essayé de trouver le bon endroit mais je n'ai pas pu le trouver.

Answer 1

Il peut y avoir un onglet masqué ou un caractère de retour à la ligne. Regardez la valeur ASCII du caractère vide entre les chaînes et utilisez-la dans votre appel fractionné.

Answer 2

Au lieu d'appeler le programme SQLite, vous devez utiliser DBI.

Soit dit en passant:

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

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

Donc, vérifiez les données contenues dans $getConfig à nouveau.

Answer 3

En fait, sqlite3 supporte deux options de ligne de commande qui pourraient vous être utiles: -list (le séparateur est '|') et -csv pour le fichier csv. Voir la page de manuel de sqlite3 pour plus de détails. Vous pouvez ensuite diviser sur le séparateur ou utiliser Text :: CSV_XS pour séparer les champs individuels

Après le commentaire Rashids ci-dessous, j'ai clairement mal compris votre question. Mon erreur. Voici une façon de le faire:

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

Ok les gars je l'ai trouvé ...

\ W correspond à un caractère non « mot »

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

ce sépare bien dans:

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

merci à tous.