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

        my @addLine;
        for ($i=0;$i<@main::recordNames ;$i++)
        {    
            my $n;
            for ($n=0;$n<@keys;$n++)
            {
                if ($keys[$n] eq $main::recordNames[$i])
                {
                    $addLine[$i] = $values[$n];
                    last;
                 }
             }
         }
        $addLine = join($main::split,@addLine);
     }
     else
     {
        ¬ify("你输入的语句有错误！如果不指定插入字段，VALUES 值必须和数据库字段相对应，并且数量相等。") if(@values != @main::recordNames);
        $addLine = join($main::split,@values);
      }
    &writetxtfile($jtdb,$addLine.$main::split."\n");
    return (1);
}
#------------------------------------------------
sub sql_select
{
    my ($select,$from,$where) = @_;

    if ($where ne "")
    {

上一页 下一页