帶登錄的Perl Opendir？

Question

我目前有一個功能，從網絡驅動器複製一些文件並將其粘貼到我的本地服務器文件夾。

sub getNetworkDrive { 
    #my $dir="\\\\network\\Path"; 
    my ($dir, $move_to) = @_; 

    opendir(DIR, $dir) or die "can't opendir $dir: $! \n"; 

    my @files=readdir(DIR); 
    closedir DIR; 

    foreach my $file (@files) 
    { 
     if (-f "$dir$file") 
     { 
      #my $move_to="C:\\Projects\\Perl\\download\\$file"; 
      my $move_from = "$dir$file"; 
      copy($move_from, $move_to) or die "Copy Failed: $!"; 
      print "File: $file : has been downloaded Successfully\n"; 
     } 
    } 
} 

當我使用我的用戶執行腳本時，它工作得很好，因爲我的用戶可以訪問網絡驅動器。

我想讓腳本在腳本運行時提示輸入授權的用戶名和密碼。

那麼Opendir是否接受用戶名和密碼作爲參數？如果不是，那麼我的選擇是什麼？

Answer 1

由於mpapec

我添加了一個新功能，這和現在的工作

use Win32::NetResource qw/GetUNCName AddConnection CancelConnection/; 
use Win32API::File qw/ CopyFile fileLastError /; 
sub getNetworkDrive { 
    my ($share_name, $user_name, $password) = @_; 

    my $drive; 
    for my $letter ('g' .. 'z') { 
     my $mapped; 
     $drive = "$letter:"; 
     GetUNCName($mapped, $drive); 
     last if not $mapped; 
    } 

    my $share = { 
     RemoteName => $share_name, 
     LocalName => $drive, 
    }; 

    print "connecting $share->{RemoteName} to $share->{LocalName}\n"; 
    if(not AddConnection($share, $password, $user_name, 0)) { 
     die "connection error:\n", win32err(); 
    } 

    for my $file(@ARGV) { 
     print "copying $file\n"; 
     CopyFile($file, "$share->{LocalName}$file", 0) 
      or print "\tfailed: " . fileLastError() . "\n"; 
    } 

    getNetworkDriveWithoutLogin($share->{LocalName}, "C:\\Projects\\Perl\\download\\"); 

    if(not CancelConnection($share->{LocalName}, 0, 1)) { 
     print "disconnection error:\n", win32err(); 
    } 
}