# Records split by ","
my $db = "
@main::recordNames = &db_connect($db); # Necessary! must be @main::recordNames,
# Get RecordNames from db-info file
my $sqlStr = "SELECT * FROM $db";
my @resoult = &executeStr($sqlStr);
my $line;
foreach $line (@resoult)
{
my $keys;
foreach $keys (keys %$line)
{
print $keys." : ".$line->{$keys}." ";
}
print "
\n";
}
=head1 DESCRIPTION
This modules, JTDB.pm, is a tool of control txt-database width SQL-words.
For now,only SELECT,INSERT,DELETE,UPDATE can be used in this script,and It's
very simple.
It is only opening-words, and I think some one will make it fullness and
mightiness one day! So,you can modify it at will! and I hope you tell us
the headway of this modules and share it width everybody. at last, I hope
you do not remove my copyright,if u will...
Enjoy it!
=item db_connect
open dbname_info.txt and get @recordNames
=item executeStr
Execute sql-script,and return a Array of Array
my @resoult = &executeStr($sqlStr);
my $line;
foreach $line (@resoult)
