The somewhat longer answer is that you'll want to convert your data from the hash to a text format such as CSV (Comma Separated Values) or XML or a Fixed-length record. AnyData can work with those and others. For the example below, I'll assume you will use CSV.

A second issue is the names of your fields. AnyData tries to stick to the rules of SQL which define fieldnames as starting with an alphabetic character and containing only alphanumerics and underscores. There are ways to circumvent that by quoting the field names, but that adds a level of complexity you don't really need. It would be much simpler to rename your fields to be valid SQL field names. I've done that in the example below (e.g. _SESSION_ID loses the underscore and image.x gets an underscore instead of a period).

With those caveats, here's a working example that takes a hash like you've shown, inserts it into a database and then queries that database.

#!/usr/bin/perl -w
use strict;
use DBI;
my $dbh  = DBI->connect('dbi:AnyData(RaiseError=1):');
$dbh->ad_catalog('Login','CSV','Login.csv');
my $data = {Password=>'raman',Session_ID=>'8ada23',Image_X=>55};
my @cols = qw(Password Session_ID Image_X);
my @vals = @$data{@cols};
my $colStr   = join ',', @cols;
my $paramStr = join ',', ('?')x@cols;
$dbh->do("DROP TABLE IF EXISTS Login");
$dbh->do("CREATE TABLE Login (Password TEXT,Session_ID TEXT, Image_X I
+NT)");
$dbh->do("INSERT INTO Login ($colStr) VALUES ($paramStr)",{},@vals);
my $sth=$dbh->prepare("SELECT Password FROM Login WHERE Image_X=?");
$sth->execute(55);
$sth->dump_results;
$sth->{Active}=0; # temporary workaround for DBD::File bug
[download]

There are a couple of perl "tricks" here - I use a hash slice to extract the values from your hash and I use join to create strings of placeholders. In actual practice you probably won't create, insert, and query all in one script (or at least not in the same part of the script) but I've combined them here so you can see the full process.

I hope this helps.

One way is, you can convert into csv type and load the file into mysql. Then you can run the queries.

Make use of Text::CSV module.

PS: I still think you would be better off explaining the entire picture, and not just pieces of it.

C.

Something like the following may work for convertion:

my (@keys, $out);
@keys = sort keys %$D;
print join "\t", @keys; print "\n";
$out = '';
$out .= $D->{$_} . "\t" for @keys;
chop $out; print $out, "\n";
[download]

If (as is probably the case) you have a number of these records to go through, you'll want to cycle through them once to get a full list of all possible fields, then cycle through again to output the data in the proper order.

You can use DBD::anydata. Check this link to get more info about. This module is very useful to retrieve data using sql queries.

I think sql queries are very much restricted here..Please go thr the documentation for more info..