[转帖]数据库的数据修改与删除CGI程序范例

cnangel

open(file,"data.txt");#以只读方式打开数据记录文件，设数据内容是：“黄山&男&广州市&未审核”。
@lins=<file>;#以行方式从打开的data.txt文件读出数据并赋给数组@lins.
close(file);#关闭data.txt文件。
open(file,">data.txt");#以写入方式打开数据文件data.txt.注意：用此方式打开时原数据将被清空。
foreach(@lins){#进入循环并将数组@lins内的数据一一指定给$_这个内定变量
（$a,$b,$c,$d)=split(/&/,$_);#以&为标志分割当行数据，此时$a="黄山";$b="男";$c="广州市";$d="未审核".
if($d eq"未审核"){#判断语句，如果$d="未审核".
$d="已审核 ";#将$d的值修改成“已审核”。
$_="$a&$b&$c&$d";}# 将修改后的数据重新赋给变量$_.
print file $_;#将作过修改的数据写入data.txt 文件。
}#结束循环
close(file);#关闭data.txt文件
exit;#程序结束
上面的程序段是一段修改数据的CGI程序范例，只要将它稍加修改就变成数据删除程序段，修改如下：
open(file,"data.txt");#以只读方式打开数据记录文件，设数据内容是：“黄山&男&广州市&未审核”。
@lins=<file>;#以行方式从打开的data.txt文件读出数据并赋给数组@lins.
close(file);#关闭data.txt文件。
open(file,">data.txt");#以写入方式打开数据文件data.txt.注意：用此方式打开时原数据将被清空。
foreach(@lins){#进入循环并将数组@lins内的数据一一指定给$_这个内定变量
（$a,$b,$c,$d)=split(/&/,$_);#以&为标志分割当行数据，此时$a="黄山";$b="男";$c="广州市";$d="未审核".
if($d eq"未审核"){#判断语句，如果$d="未审核".
$_="";}#将变量“$_”至空。
if($_ ne""){print file $_;}#如果"$_"不等于空，则将$_写入data.txt文件，如果"$_"为空则不写入（实际上起到删除了$d="未审核"的数据项。
}#结束循环
close(file);#关闭data.txt文件
exit;#程序结束