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

}
#------------------------------------------------
sub sql_update
{
    my ($jtdb,$set,$where) = @_;

    my @resoult = &executeStr("SELECT * FROM $jtdb");

    if ($where ne "")
    {
        my $key = '';
        foreach $key (@main::recordNames)
        {
            $where =~ s/$key/\$_->{'$key'}/ig;
         }
     }else {¬ify("你没有提供修改条件，请用 WHERE 语句提供！");}

    if ($set ne "")
    {
        my $key = '';
        foreach $key (@main::recordNames)
        {
            $set =~ s/$key\s*\=\s*(\'+?|\"+?)(.*)(\'+?|\"+?)\s*(\,*?)/\$_->{'$key'}\=$1$2$3\;/ig;
         }
     }else {¬ify("你没有提供修改项目，请用 SET 语句提供！");}

    foreach (@resoult)
    {
        if (eval($where))
        {
            eval($set);
         }
     }

    &db_save($jtdb,@resoult);

    return (1);
}
#------------------------------------------------
sub sql_delete
{
    my ($jtdb,$where) = @_;

    my @resoult = &executeStr("SELECT * FROM $jtdb");

    if ($where ne "")
    {
        my $key = '';

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