Как скопировать файлы с хоста в созданный каталог?

Question

Я пытаюсь скопировать файлы с хоста в созданный каталог. Вот мой сценарий:

use strict; 
use Getopt::Long; 
use Net::SCP::Expect; 

my $filename; 
GetOptions(
    "file=s" => \$filename 
); 
my $src_path="/"; 
my $directory; 
open(INBOX, "<$filename") or die "Can't open $filename\n"; 

while(<INBOX>) { 
    chomp; 
    my @arr = split(/:/); 
    my $host=$arr[0]; 
    my $username=$arr[1]; 
    my $password=$arr[2]; 

    sub main { 
     my $directory = "temp"; 
     unless(-e $directory or mkdir $directory) { 
      die "Unable to create $directory"; 
     } 
    } 

    main(); 
    print "Copying from $host \n"; 
    my $scpe = Net::SCP::Expect->new(
     host  => $host, 
     user  => $username, 
     password => $password, 
    ); 
    $scpe->scp($host . ":" . $src_path, $directory); 

Но здесь я не могу переместить или скопировать файлы с компьютера на созданную директорию под названием Темп. Можете ли вы мне помочь в этом отношении в Perl?

Answer 1

Вы делаете странные вещи с обзорными здесь:

В вашей подпрограмме, - достаточно странно - называются «основные», вы объявляете локальной область переменную $ каталога и присвоить «темп» к нему.

Однако переменная $ directory, объявленная в основной программе в строке 10, остается пустой - но это тот, который используется в scp.

Я хотел бы предложить, чтобы изменить эту

sub main { 
    my $directory = "temp"; 
    unless(-e $directory or mkdir $directory) { 
     die "Unable to create $directory"; 
    } 
} 
main(); 

в том, что:

$directory = "temp"; 
unless(-e $directory or mkdir $directory) { 
    die "Unable to create $directory"; 
}