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

        #my @keys = split(/$main::split/,$main::recordNames);
        my $key = '';
        foreach $key (@main::recordNames)
        {
            #$key =~ s/^\s+//g;
            #$key =~ s/\s+$//g;
            $where =~ s/$key/\$record->{'$key'}/ig;
         }
     }else {$where = 1}

    my $dbinfo = &dbHoH($from);

    my ($key,$record,$recordName,$return)=('','','',[]);
    foreach $key (keys %$dbinfo)
    {
        my $record = $dbinfo->{$key};
        my @select = split(/\,/,$select);
            @select = @main::recordNames if ($select =~ /\s*\*\s*/);

        my $lineHash = {};
        foreach $recordName (@select)
        {
            $recordName =~ s/^\s+//g;
            $recordName =~ s/\s+$//g;

            $lineHash->{$recordName} = $record->{$recordName} if (eval($where));
         }
         push(@$return, $lineHash);
     }
     return @$return; #返回查询结果，存储在 $return 中，Array of Array
}
#------------------------------------------------

共11页  第1页 第2页 第3页 第4页 第5页 第6页 第7页 第8页 第9页 第10页 第11页