我正在使用CGI来允许用户上传一些文件.我只是希望能够上传.txt或.csv文件.如果用户上传任何其他格式的文件,那么我希望能够发出错误消息.
我看到这可以通过javascript完成:http://www.codestore.net/store.nsf/unid/DOMM-4Q8H9E
但有没有更好的方法来实现这一目标？Perl中是否有一些功能允许这样做？
您链接到的网站上的免责声明非常重要:
注意:这并非完全万无一失,因为人们可以在上传之前轻松更改文件的扩展名,或者像"LoveBug"病毒那样做一些其他的诡计.
如果你真的想要这样做,让用户上传文件,然后使用File :: MimeInfo :: Magic(或file(1)UNIX实用程序)之类的东西来猜测实际的文件类型.如果您不喜欢文件类型,请删除该文件并向用户提供错误消息.
| 归档时间： |
|
| 查看次数： |
1260 次 |
| 最近记录： |