[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [linux] [perl/PgSQL] array dans une colonne



On Tuesday 27 November 2001 22:41, you wrote:
> Salut à tous,
>
> Quand on est dans pgsql, il est possible de définir une array et d'y passer
> des données: create table test (te text[]);
> insert into test (te) values ('{"tes\n\t r\n"}');
>
> Bon, avec perl, je fait la même chose via la prise d'un fichier et
> Pg::connectdb. open(OUTPUT, "commande 2>&1|");
> while(<OUTPUT>) {
> @test = <OUTPUT>;
> }
> 

Il y a au moins un problème dans ta lecture :
si tu veux accumuler les lectures de OUTPUT, il faut utiliser push (@test est 
comme une pile dans laquelle tu insères à chaque tour un résultat), chomp 
enlève le LF final.

while(<OUTPUT>)  {
	chomp;
	push($_,@test);
}

for (my $i=0; $i<=$#test; $i++)  {
	print "$i: $test[$i] \n";
}
-- 
	Bon amusement,

	Alain
+--------------------------------------------------------------------------------------
|  Dr Alain EMPAIN      Bioinformatique, Génétique Moléculaire B43,
|  Fac. Méd. Vétérinaire, Univ. de Liège, Sart-Tilman / B-4000 Liège  
|       Alain.EMPAIN@ulg.ac.be
|       WORK:+32 4 366 3821 Fax: +32 4 366 4122   GSM:+32 497 701764
|       HOME:+32 85 512341  -- Rue des Martyrs,7  B-4550 Nandrin

[ Soyez précis dans vos sujets svp afin de déterminer directement  ]
[ le type de demande...                                            ]
[ Pour vous (dés)inscrire, aller sur http://unixtech.be/ml.php     ]
[ Archives de la mailing list: http://archives.unixtech.be/linux/  ]
[ http://unixtech.be              Contact: listmaster@unixtech.be  ]