使用SFTP将图像从HTML表单传输到使用PERL / CGI.pm的远程Linux服务器

这是一个学校项目,导师不知道如何编写代码。

我正在使用CGI ,我试图传输一个文件而不使用Net::FTPNet::SFTP因为我试图将其传输到的服务器将不允许来自这些服务的连接。 我已经写了HTML表单,并且能够获取通过CGI上传的文件的名称。

是否有可能在驻留在Linux服务器上的Perl脚本中使用SFTP命令使用bash传输通过HTML表单上传的文件?

如果有人知道这样做的方式,请张贴代码,以便我可以修改它,并插入到我的脚本。

Solutions Collecting From Web of "使用SFTP将图像从HTML表单传输到使用PERL / CGI.pm的远程Linux服务器"

 use CGI qw(:standard); use File::Basename; my ( $name, $path, $extension) = fileparse ( $productimage, '..*' ); $productimage = $name . $extension; $productimage =~ tr/ /_/; $productimage =~ s/[^$safechars]//g; if ( $productimage =~/^([$safechars]+)$/ ) { $productimage = $1; } else { die "Filename contains invalid characters"; } $fh = upload('image'); $uploaddir = "../../.hidden/images"; open ( UPLOADFILE, ">$uploaddir/$productimage" ) or die "$!"; binmode UPLOADFILE; while (<$fh>) { print UPLOADFILE; } close UPLOADFILE; 

这是我用来上传文件到服务器的代码。