尝试用sql查询语句操纵普通文本数据库！使用简单的select就可以实现文本的索引访问，用update……

sub dbHoH #得到数据结构 Hash of Hash
{
    my $jtdb = $_[0].$main::txt;
    my @database = &readtxtfile($jtdb);
        chomp(@database);
    #my $main::recordNames = shift(@database); #get @col_names at the first line of txt_db,shift it
    #my $keys = &getKeys($main::recordNames);
    my $keys = &getKeys(@main::recordNames);
    my ($line,$return) = ('',{});
    foreach $line (@database)
    {
        my $keysHash = &getRef($line,$keys);
        $return->{$keysHash->{id}} = $keysHash;
     }
    return $return;
}
#------------------------------------------------
sub getKeys #得到关键字，BOOK(中文) page(226)
{
    #my $line = $_[0];
    #my @keys = split(/$main::split/,$line);
    my @keys = @_;
    my ($key,$return,$i) = ('',{},0);
    foreach $key (@keys)
    {
        #$key =~ s/^\s+//g;
        #$key =~ s/\s+$//g;
        $return->{$i++} = $key;
     }
    return $return;
}
#------------------------------------------------
sub getRef #得到关键字对应元素，BOOK(中文) page(227)
{
    my ($line,$keys) = @_;
    my ($element,@elements) = @_;
    my $return = {};
    my $i;
    @elements = split(/$main::split/,$line);
    for ($i=0;$i<@elements ;$i++)
    {
        $element = $elements[$i];
        $element =~ s/^\s+//g;

9 7 3 1 2 3 4 5 6 7 8 9 10 4 8 :