[perl] opendir con user e password

[Alberto]

Originariamente inviato da shishii
ma questo forse funzionerà:

http://search.cpan.org/~kerisman/App...App/Smbxfer.pm

Intanto grazie, sto provando, ma non sembra funzionare o forse sono io che sbaglio qualcosa...

#C:\Perl\bin

package App::Smbxfer;

$credentials_file = <C:/Perl/script/credential.txt>;

my ($username, $password, $domain) = credentials( $credentials_file );

 my ($local_path, $remote_smb_path_spec) = validated_paths(
       SMB => $smb,
       SOURCE => "C:/Perl/script/test.txt",
        DEST => "pdf_portale",
        SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path
    ); 

Undefined subroutine &App::Smbxfer::credentials called at C:\Perl\script\connection.pl