perl - WWW::Mechanize : 如何以不同的文件名上传文件？

Question

如何使 WWW::Mechanize 以不同的文件名上传文件？

我希望网络服务器查看/记录与我计算机上的文件名不同的文件名。

Answer 1

my $file = [
    'filename-on-disk.txt', # The file you'd like to upload.
    'filename-for-upload.txt', # The filename you'd like to give the web server.
    'Content-type' => 'text/plain' # Any other flags you'd like to add go here.
];

$mech->post("http://example.com/upload.cgi", [
    'upload' => $file
]);

取自： https ://gist.github.com/gaurav/253111#file-file-upload-pl

Answer 2

您可以使用硬链接：

link "file_name_on_your_computer","desired_new_name";
# Code to upload the newly created link
unlink "desired_new_name";

笔记

• 如果您使用的是大文件，则不必担心磁盘空间的使用：文件不会重复，硬链接只是同一个 inode 的新名称。
• 此解决方案仅限于那些支持硬链接的文件系统。如果您使用的是 Windows，则最终可能只会创建和上传原始文件的快捷方式。