[perl] cgi的问题

leizhengdeng 2005-04-23 02:30:22
我用perl写了个cgi程序,当用户输入字符串summit后,我的perl程序接受到这个字符串后,通过一定的计算,把计算结果要写到perl程序所在目录上。
如何区分不同的用户?能够保证所写的文件的文件名不一样。就是每次从网页summit后,在服务器端生成一个Unique的文件名。
...全文
135 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
xyzxyz1111 2005-04-29
  • 打赏
  • 举报
回复
$fh->filename
leizhengdeng 2005-04-29
  • 打赏
  • 举报
回复
to: xyzxyz1111
用File::Temp得到的是file handle,能不能得到文件名。
因为我要用这个文件名产生一系列相关的文件名。
谢谢!
leizhengdeng 2005-04-25
  • 打赏
  • 举报
回复
1. 如果用时间的话,会不会有重复,用户可能同时打开两个浏览器。

2. File::Temp怎么用法?
xyzxyz1111 2005-04-25
  • 打赏
  • 举报
回复
use Cwd;
use File::Temp ();

# Get the current directory
$dir = cwd;

#open a temp file and return the fileobject
$fh = new File::Temp(TEMPLATE => "helloXXXXX", DIR=>$dir, SUFFIX=>".dat");

#write something to the file
print $fh "hihi";
fibbery 2005-04-25
  • 打赏
  • 举报
回复
10000个用户在同一秒内打开页面的可能性为10的话(已经很高了),也就是说1/1000,再加上后面的四位随机数,也就是相同的可能性为1/10000,最后重复的可能性为1/10000000;
如果访问数据库的话可以用数据库的序列。
xyzxyz1111 2005-04-23
  • 打赏
  • 举报
回复
File::Temp
fibbery 2005-04-23
  • 打赏
  • 举报
回复
可以考虑用时间戳,比如,time * 10000+xxxx(四位随机数或者更多)或者用户的ip地址等等。

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧