Re: Net:SFTP Configuration

Hi Chas,

I have written the program as follows:

use strict;
use Net::SFTP;
use Net::SFTP::Constants ':status';

my $user;

my($host) = "sacsun120";

# set up the arguments based on the command line options
my %args = (ssh_args => []);
$args{debug} = 1;
foreach (keys(%args)) {
print "$_ -> $args{$_}\n";
}

push @{ $args{ssh_args} }, user => "crdadm";
$args{"password"} = "crpr0cess";

# make our connection

print "Connecting to $host...\n";

foreach (keys(%args)) {
print "$_ -> $args{$_}\n";
}
my $sftp = Net::SFTP->new($host, %args);

# get a listing of the base directory

#$sftp->ls("." , sub { print $_[0]->{longname}, "\n" });

$sftp->get("/trading/tisissuer08260004.txt",".");
my ($status, $msg) = $sftp->status;
print "ERROR with get: $msg\n";
print "Finished\n";

When trying to copy the file, it is showing the following error eventhough
the file is there.

*ssh_args -> ARRAY(0xf096c)
debug -> 1
Connecting to sacsun120...
password -> crpr0cess
ssh_args -> ARRAY(0xf096c)
debug -> 1
in new of perl mod ..
cfg object :Net::SSH::Perl::Config=HASH(0x103fbc):
sacsun120: Reading configuration data /export/home/crdadm/.ssh/config
sacsun120: Reading configuration data /etc/ssh_config
sacsun120: Connecting to sacsun120, port 22.
sacsun120: Remote protocol version 2.0, remote software version
Sun_SSH_1.0.1
sacsun120: Net::SSH::Perl Version 1.28, protocol version 2.0.
sacsun120: No compat match: Sun_SSH_1.0.1.
sacsun120: Connection established.
sacsun120: Sent key-exchange init (KEXINIT), wait response.
sacsun120: Algorithms, c->s: 3des-cbc hmac-sha1 none
sacsun120: Algorithms, s->c: 3des-cbc hmac-sha1 none
sacsun120: Entering Diffie-Hellman Group 1 key exchange.
sacsun120: Sent DH public key, waiting for reply.
sacsun120: Received host key, type 'ssh-dss'.
sacsun120: Host 'sacsun120' is known and matches the host key.
sacsun120: Computing shared secret key.
sacsun120: Verifying server signature.
sacsun120: Waiting for NEWKEYS message.
sacsun120: Enabling incoming encryption/MAC/compression.
sacsun120: Send NEWKEYS, enable outgoing encryption/MAC/compression.
sacsun120: Sending request for user-authentication service.
sacsun120: Service accepted: ssh-userauth.
sacsun120: Trying empty user-authentication request.
sacsun120: Authentication methods that can continue: publickey,password.
sacsun120: Next method to try is publickey.
sacsun120: Trying pubkey authentication with key file
'/export/home/crdadm/.ssh/id_dsa'
sacsun120: Authentication methods that can continue: publickey,password.
sacsun120: Next method to try is publickey.
sacsun120: Next method to try is password.
sacsun120: Trying password authentication.
sacsun120: Login completed, opening dummy shell channel.
sacsun120: channel 0: new [client-session]
sacsun120: Requesting channel_open for channel 0.
sacsun120: channel 0: open confirm rwindow 0 rmax 16384
sacsun120: Got channel open confirmation, requesting shell.
sacsun120: Requesting service shell on channel 0.
sacsun120: channel 1: new [client-session]
sacsun120: Requesting channel_open for channel 1.
sacsun120: Sending subsystem: sftp
sacsun120: Requesting service subsystem on channel 1.
sacsun120: channel 1: open confirm rwindow 0 rmax 16384
sacsun120: sftp: Sending SSH2_FXP_INIT
sacsun120: sftp: Remote version: 2
sacsun120: sftp: Sent message T:17 I:0
sacsun120: sftp: Received stat reply T:101 I:0
Couldn't stat remote file: No such file or directory at sample.pl line 32
ERROR with get: No such file or directory
Finished
*
**I am not getting what it meant. Could you please helpme?

Thanks,
Rajeev Kilaru



On 8/24/07, kilaru rajeev <kilarurajeev@xxxxxxxxx > wrote:

Hi Chas,

It is perfect. Thanks a lot.

Regards,
Rajeev Kilaru


On 8/24/07, Chas Owens <chas.owens@xxxxxxxxx > wrote:

On 8/24/07, kilaru rajeev < kilarurajeev@xxxxxxxxx> wrote:
Hi Chas,

I was not given the proper arguments to the *new* function. That is
why, it
was failed to connect. This time I have another trouble. As part of my
code,
I have used the below to statments to list the files in the directory.


my @ls = $sftp->ls("$srcDir/");
print "\n----------------->@ls\n";

But I am not getting the output eventhough the directory got some
files
except "------------------->" part. sometimes I am getting the output
as
below:

---------------------> HASH(0xd03334) HASH(0xd033dc) HASH(0xd03498)
HASH(0xd03540) HASH(0xd035e8) HASH(0xd03690) HASH(0xd03738)
HASH(0xd037e0)
HASH(0xd044a4) HASH(0xd0454c) HASH(0xd045f4) HASH(0xd0469c)
HASH(0xd04744)
HASH(0xd047ec) HASH(0xd05da0) HASH(0xd05dac) HASH(0xd05e24)
HASH(0xd05e9c)
HASH(0xd05f50) HASH(0xd0601c) HASH(0xd060c4) HASH(0xd0616c)
HASH(0xd06214)
HASH(0xd062bc) HASH(0xd06364) HASH(0xcdbc20) HASH(0xcdbcc8)
HASH(0xcdbd70)
HASH(0xcdbe18) HASH(0xcdbec0) HASH(0xcdbf68)

I am not sure about the return value of the $sftp->ls(). I thought it
will
return a list as in Net::FTP. How I should use it? Please help me.

from the docs:
$sftp->ls($remote [, $subref ])

Fetches a directory listing of $remote.

If $subref is specified, for each entry in the directory, $subref
will
be called and given a reference to a hash with three keys: filename,
the name of the entry in the directory listing; longname, an entry in
a "long" listing like ls -l; and a, a Net::SFTP::Attributes object,
which contains the file attributes of the entry (atime, mtime,
permissions, etc.).

If $subref is not specified, returns a list of directory entries,
each
of which is a reference to a hash as described in the previous
paragraph.

So if you only want the filenames you can say

my @ls = map { $_->{filename} } $sftp->ls($srcDir);



Relevant Pages

  • Re: long ssh communication
    ... Connecting to host, port 22. ... Received host key, type 'ssh-dss'. ... Login completed, opening dummy shell channel. ... Got channel open confirmation, requesting shell. ...
    (comp.security.ssh)
  • long ssh communication
    ... Connecting to host, port 22. ... Received host key, type 'ssh-dss'. ... Login completed, opening dummy shell channel. ... Got channel open confirmation, requesting shell. ...
    (comp.security.ssh)
  • Net::SSH::W32Perl Script hanging when trying to return data
    ... Im trying to return an ls -l and when I execute my Perl Script it ... Login completed, opening dummy shell channel. ... requesting shell. ... Requesting service shell on channel 0. ...
    (perl.beginners)
  • Net::SSH::W32Perl Script hanging when trying to return data
    ... Im trying to return an ls -l and when I execute my Perl Script it ... Login completed, opening dummy shell channel. ... requesting shell. ... Requesting service shell on channel 0. ...
    (comp.lang.perl.modules)
  • Net::SSH::W32Perl Script hanging when trying to return data
    ... Subject: Net::SSH::W32Perl Script hanging when trying to return data ... phl3-0021647: Reading configuration data /etc/ssh_config ... Login completed, opening dummy shell channel. ... requesting shell. ...
    (comp.lang.perl.modules)