 |
以前看到小石榴写的一个用户数据集中读写的帖子，看了好几遍，没看懂，实在对不起，又没看懂。没看懂就自己写，下面是个我写的集中写入用户数据的过程。4*.
代码：
N5(pG
sub upmemberdate {g?
my $membernametemp = shift;k4F=
my %userinfo = @_;jO5s^
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 e
my $filetoopen = "$lbdir$memdir/$membernametemp.cgi";J
if (-e $filetoopen) {RT
open (FILE,$filetoopen);}bgt=k
my $filedata=<FILE>;7
close(FILE);z.q
chomp $filedata;)8H
local ( $membername, $password, $membertitle, $membercode, $numberofposts, $emailaddress, $showemail, $ipaddress, $homepage, $oicqnumber, $icqnumber, $location, $interests, $joineddate, $lastpostdate, $signature, $timedifference, $privateforums, $useravatar, $userflag, $userxz, $usersx, $personalavatar, $personalwidth, $personalheight, $rating, $lastgone, $visitno, $addjy, $meili, $mymoney, $postdel, $sex, $education, $marry, $work, $born, $chatlevel, $chattime, $jhmp, $useradd3, $useradd4, $onlinetime, $userquestion, $useradd6, $useradd7, $useradd8) = split(/\t/,$filedata);Bh
local($numberofposts,$numofreplys)=split(/\|/,$numberofposts);$S
foreach my $info (keys %userinfo) {?G3
if ($userinfo{$info}=~/^[\+\-][0-9]+$/) {4%\s
$$info += $userinfo{$info};0qj
}@+-
else {Mr(15
$userinfo{$info} =~ s/^\\(\-|\+)/$1/;j{s./W
$userinfo{$info} =~ s/^\\\\/\\/;4"
$$info = $userinfo{$info};\0f@1=
}hl?/
#print "$info $$info\n";^K'99@
})P8
open(FILE,">$filetoopen");IhKt:'
print FILE "$membername\t$password\t$membertitle\t$membercode\t$numberofposts\|$numberofreplys\t$emailaddress\t$showemail\t$ipaddress\t$homepage\t$oicqnumber\t$icqnumber\t$location\t$interests\t$joineddate\t$lastpostdate\t$signature\t$timedifference\t$privateforums\t$useravatar\t$userflag\t$userxz\t$usersx\t$personalavatar\t$personalwidth\t$personalheight\t$rating\t$lastgone\t$visitno\t$addjy\t$meili\t$mymoney\t$postdel\t$sex\t$education\t$marry\t$work\t$born\t$chatlevel\t$chattime\t$jhmp\t$useradd3\t$useradd4\t$onlinetime\t$userquestion\t$useradd6\t$useradd7\t$useradd8\t\n";{J
close(FILE);GB"
}(zo
}©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 f;
|
|
P3
所传递的参数，第一个是所要写入的用户名，后面是一个哈希表，哈希表的关键字是要被改变的变量名，值是增减的值或被改为的值。jP>
如果哈希表的值以 + - 开头，则是对相应的用户数据增减，否则就将相应的用户数据设为哈希表的值。zv
如果要将一个以 + - 开头的字串付给一个变量的话，就要用 \ 对其进行一次转义，如果以 \ 开头还要进行一次转义。f
例如，将用户 test 的发贴数加1 ，威望设为 -6 ，可以这样调用过程。k{1
&upmemberdate('test',numofposts,'+1',rating,'\-6');W6#
| | |
|
|
|
顶端 
加到"个人收藏夹"
主题管理：
总固顶 
取消总固顶 
消息
查看
搜索
好友
引用
回复
只看我
2003/05/29 09:50pm 
IP: 已设置保密
