Shell Programming and Scripting

#!/usr/bin/perl -w

use strict;
use Net::SFTP::Foreign;

my $host="comp";
my $user="john";
my $dir="C:/temp/*"

my $sftp = Net::SFTP::Foreign->new("$user\@$host");

my @files = $sftp->glob("$dir", names_only => 1);

foreach my $l (@files) {
  print "$l\n";
}

#!/usr/bin/perl -w

use strict;
use Net::SFTP::Foreign;

my $host="comp";
my $user="john";
my $dir="d:/temp/*"

# Command KO, do not work
print "Test SFTP\n";
my $sftp = Net::SFTP::Foreign->new("$user\@$host");
my @files = $sftp->glob("$dir", names_only => 1);

foreach my $l (@files) {
  print "$l\n";
}

# commande OK, works
print "Test LS\n";
my @files2=`ssh $user\@$host 'ls -R $dir'`;

foreach my $l (@files2) {
  print "$l";
}

Test SFTP
Test LS
d:/temp/3407_2.prt
d:/temp/4656_1.prt
d:/temp/4656_2.prt
d:/temp/4718_1.prt
d:/temp/4718_2.prt
d:/temp/SuHOST.bat
d:/temp/agtepo45.log
d:/temp/debug.txt
d:/temp/droits.bat
d:/temp/icone.bat
d:/temp/iconebis.bat
d:/temp/iconeged.bat
d:/temp/lo_config_printer.txt
d:/temp/lo_default_printer.txt
d:/temp/ora.bat
d:/temp/sqlnet.ora
d:/temp/supappli.bat
d:/temp/tnsnames.ora

d:/temp/dir1:
3407_2.bat
4656_1.prt
4656_2.prt
4718_1.prt
4718_2.prt
dir2

d:/temp/dir1/dir2:
jboss.log