如何在Perl脚本中从FTP转换为SFTP？

cpan install Net::SFTP

#!/usr/bin/perl

use strict;
use warnings;
use Net::SFTP;

# FTP服务器设置
my $ftp_host = 'your_ftp_host';
my $ftp_username = 'your_ftp_username';
my $ftp_password = 'your_ftp_password';

# SFTP服务器设置
my $sftp_host = 'your_sftp_host';
my $sftp_username = 'your_sftp_username';
my $sftp_password = 'your_sftp_password';

# 连接到FTP服务器
my $ftp = Net::FTP->new($ftp_host, user => $ftp_username, passwd => $ftp_password)
    or die "Could not connect to $ftp_host: $@";

# 列出FTP服务器上的文件
my @ftp_files = $ftp->ls;

# 连接到SFTP服务器
my $sftp = Net::SFTP->new($sftp_host, user => $sftp_username, password => $sftp_password)
    or die "Could not connect to $sftp_host: $@";

# 将FTP服务器上的文件传输到SFTP服务器
foreach my $file (@ftp_files) {
    $ftp->get($file) or die "Could not get $file: $@";
    $sftp->put($file) or die "Could not put $file: $@";
}

# 断开连接
$ftp->quit;
$sftp->disconnect;