![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level1.gif)
- UID
- 1
- 威望
- 1240 点
- 金钱
- 10002 金币
- 点卡
- 317 点
|
1#
发表于 2003-12-9 12:11
| 只看该作者
[转帖]数据库的数据修改与删除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="未审核".
$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;#程序结束 |
我是一个呼吸着现在的空气而生活在过去的人
这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
我已习惯了孤独,爱上孤独
他让我看清了自我,还原了自我
让我再静静的沉思中得到快乐和满足
再孤独的世界里我一遍又一遍
不厌其烦的改写着自己的过去
延伸到现在与未来
然而那只是泡沫般的美梦
产生的时刻又伴随着破灭的到来
在灰飞烟灭的瞬间我看到的是过程的美丽
而不是结果的悲哀。。。
|
|