[perl] cgi的问题

[leizhengdeng]

我用perl写了个cgi程序，当用户输入字符串summit后，我的perl程序接受到这个字符串后，通过一定的计算，把计算结果要写到perl程序所在目录上。
如何区分不同的用户？能够保证所写的文件的文件名不一样。就是每次从网页summit后，在服务器端生成一个Unique的文件名。

[fibbery]

可以考虑用时间戳，比如，time * 10000+xxxx(四位随机数或者更多）或者用户的ip地址等等。

[xyzxyz1111]

File::Temp

[fibbery]

10000个用户在同一秒内打开页面的可能性为10的话（已经很高了），也就是说1/1000，再加上后面的四位随机数，也就是相同的可能性为1/10000，最后重复的可能性为1/10000000；
如果访问数据库的话可以用数据库的序列。

[xyzxyz1111]

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";

[leizhengdeng]

1. 如果用时间的话，会不会有重复，用户可能同时打开两个浏览器。

2. File::Temp怎么用法？

[leizhengdeng]

to: xyzxyz1111
用File::Temp得到的是file handle，能不能得到文件名。
因为我要用这个文件名产生一系列相关的文件名。
谢谢！

[xyzxyz1111]

$fh->filename