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
|