[Ssh-sftp-perl-users] Error: Wide character in subroutine entry at /usr/lib/perl5/vendor_perl/5.8.0
Brought to you by:
dbrobins
From: <Kr...@nX...> - 2005-07-22 07:51:52
|
I would like to upload some of the files from a directory to another node. i saved the target files into an array called @node2_files, opened a $sftp connection and loop over the array content to send the files one by one. Here is part of the codes: ------------------ use Cwd 'abs_path'; $currentpath = abs_path($ENV{'PWD'}); my %args = ("user", 'user', "password", 'passwd', "debug", '1'); my $host = 'node2'; my $sftp = Net::SFTP->new($host,%args); for ($a=0; $a < scalar(@node2_files); $a++) { my $localfile = $currentpath . "/". $node2_files[$a]; #my $remotefile = 'test'; my $remotefile = '/home/user/' . $node2_files[$a]; $sftp->put($localfile,$remotefile); } ----------- if i uncomment the line: #my $remotefile = 'test'; and comment the one right below, it runs "fine": at least the files are uploaded correctly, and saved into a new text file named test in /home/user/ - but of course i only get the last file with name: test but i really want to maintain the original file name. So, if i use the uncommented line: my $remotefile = '/home/user/' . $node2_files[$a]; i get: master: Reading configuration data /home/chaos/.ssh/config master: Reading configuration data /etc/ssh_config master: Connecting to node2, port 22. master: Remote protocol version 1.99, remote software version OpenSSH_3.5p1 master: Net::SSH::Perl Version 1.28, protocol version 2.0. master: No compat match: OpenSSH_3.5p1. master: Connection established. master: Sent key-exchange init (KEXINIT), wait response. master: Algorithms, c->s: 3des-cbc hmac-sha1 none master: Algorithms, s->c: 3des-cbc hmac-sha1 none master: Entering Diffie-Hellman Group 1 key exchange. master: Sent DH public key, waiting for reply. master: Received host key, type 'ssh-dss'. master: Host 'node2' is known and matches the host key. master: Computing shared secret key. master: Verifying server signature. master: Waiting for NEWKEYS message. master: Enabling incoming encryption/MAC/compression. master: Send NEWKEYS, enable outgoing encryption/MAC/compression. master: Sending request for user-authentication service. master: Service accepted: ssh-userauth. master: Trying empty user-authentication request. master: Authentication methods that can continue: publickey,password,keyboard-interactive. master: Next method to try is publickey. master: Next method to try is password. master: Trying password authentication. master: Login completed, opening dummy shell channel. master: channel 0: new [client-session] master: Requesting channel_open for channel 0. master: channel 0: open confirm rwindow 0 rmax 32768 master: Got channel open confirmation, requesting shell. master: Requesting service shell on channel 0. master: channel 1: new [client-session] master: Requesting channel_open for channel 1. master: Sending subsystem: sftp master: Requesting service subsystem on channel 1. master: channel 1: open confirm rwindow 0 rmax 32768 master: sftp: Sending SSH2_FXP_INIT master: sftp: Remote version: 3 master: sftp: Sent SSH2_FXP_OPEN I:0 P:/home/user/epoch104.TXT Wide character in subroutine entry at /usr/lib/perl5/vendor_perl/5.8.0/Digest/HMAC.pm line 59. --------- Could anyone send sugestions to help me fix this problem? Mahalo rv, |