perl - 将文件直接下载到 FTP 服务器

Question

关闭。这个问题是off-topic .它目前不接受答案。












想改进这个问题？ Update the question所以它是on-topic对于堆栈溢出。


9年前关闭。







Improve this question




我想从普通的 http 链接下载一个大文件到 ftp 服务器(在 ubuntu 下)，而不在本地存储文件(因为我的本地存储太小)。

你有什么想法如何用 wget 或一个小的 perl 脚本来做到这一点？ (我在本地机器上没有 sudo 权限)。

Answer 1

这是我的看法，结合 wget 和 Net::FTP在命令行上。

wget -O - http://website.com/hugefile.zip | perl -MNet::FTP -e 'my $ftp = Net::FTP->new("ftp.example.com"); $ftp->login("user", "pass"); $ftp->put(\*STDIN, "hugefile.zip");'

当然，您也可以将其放入文件 ( ftpupload.pl) 中并运行它。

#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $ftp = Net::FTP->new("ftp.example.com"); # connect to FTP server
$ftp->login("user", "pass"); # login with your credentials

# Because of the pipe we get the file content on STDIN
# Net::FTP's put is able to handle a pipe as well as a filehandle
$ftp->put(\*STDIN, "hugefile.zip");

像这样运行它:

wget -O - http://website.com/hugefile.zip | perl ftpupload.pl