http://qs321.pair.com?node_id=567666

Monk - 07/11/2006

use strict; use warnings; use XML::Twig; use XML::Simple; use DBI; my $dbname="sample"; my $dbh=DBI->connect("DBI:mysql:$dbname",'root',''); print "Database connected\n"; # Get an array of hashes my $recs = $dbh->selectall_arrayref('SELECT * FROM test',{ Columns => +{} }); # Convert to XML where each hash element becomes an XML element my $xml = XMLout( {records => $recs}, NoAttr => 1 ); my $a=scalar($xml); print "$a";
08-12-06
use strict; use warnings; my $color1="chr,red,green,yellow"; my @color1=split(',',$color1); my @colors=("red","black","blue","white","green","orange","yellow","pi +nk", "purple","violet","cyan","magenta","navy","brown","gold"," +lime", "gray","burgundy","silver","clear","teal"); my $color; foreach $color(@color1){ my $i=0; if ($color eq $colors[$i]){ print "$color here\n"; } $i++; }
Pilgrim 08/01/07

Friar 09/04/07

Hermit 18/07/07

Chaplain 25/11/07

Deacon 09/04/08

Curate 14/09/08

UTF Node_id:620803