my %file; 
 foreach my $entry ( $sftp->ls('/home/ftptest/inbound') ) 
 { 
 next if $entry->{filename} =~ /^\./; 
 my $size = (split(' ', $entry->{longname}))[4]; 
        $file{$entry->{filename}} = $size; 
     } 
      
    print Dumper \%file; 
Code
 
 
Thanks in advance! 


	

(This post was edited by StarkRavingCalm on Feb 14, 2013, 1:11 PM)



      
    

$files = $sftp->ls('/home/ftptest/inbound'); 
Code
 
Shouldn't I just be able to change my code to this: 
 
Code
my %file->$sftp->ls('/home/ftptest/inbound'); 
 
foreach my $entry ( %file ) 
{ 
next if $entry->{filename} =~ /^\./; 
my $size = (split(' ', $entry->{longname}))[4]; 
    $file{$entry->{filename}} = $size; 
} 
 
print Dumper \%file; 
Code
 
But doing that throws this error: 
 
Can't call method "Net::SFTP::Foreign=HASH(0x8ff5310)" without a package or object reference at line 88. 



      
    

my @hash_refs = @{ $sftp->ls('/home/ftptest/inbound') }; 
 
foreach my $entry ( @hash_refs ) 
{ 
next if $entry->{filename} =~ /^\./; 
my $size = (split(' ', $entry->{longname}))[4]; 
    $file{$entry->{filename}} = $size; 
} 
 
print Dumper \@hash_refs; 
 
I think I need to mess with the fields it's picking up: 
 
$VAR1 = [ 
          { 
            'longname' => '-rw-rw-r--    1 ftptest  ftptest       171 Feb 18 11:23 newfile', 
            'a' => bless( { 
                            'uid' => 541, 
                            'flags' => 15, 
                            'mtime' => 1361204601, 
                            'atime' => 1361199077, 
                            'perm' => 33204, 
                            'gid' => 541, 
                            'size' => 171 
                          }, 'Net::SFTP::Foreign::Attributes' ), 
            'filename' => 'newfile' 
          }, 
          { 
            'longname' => '-rw-rw-r--    1 ftptest  ftptest       171 Feb 18 11:23 newfile3', 
            'a' => bless( { 
                            'uid' => 541, 
                            'flags' => 15, 
                            'mtime' => 1361204604, 
                            'atime' => 1361204604, 
                            'perm' => 33204, 
                            'gid' => 541, 
                            'size' => 171 
                          }, 'Net::SFTP::Foreign::Attributes' ), 
            'filename' => 'newfile3' 
          }, 
          { 
            'longname' => 'drwxrwxr-x    2 ftptest  ftptest      4096 Feb 18 11:23 .', 
            'a' => bless( { 
                            'uid' => 541, 
                            'flags' => 15, 
                            'mtime' => 1361204604, 
                            'atime' => 1361309822, 
                            'perm' => 16893, 
                            'gid' => 541, 
                            'size' => 4096 
                          }, 'Net::SFTP::Foreign::Attributes' ), 
            'filename' => '.' 
          }, 
          { 
            'longname' => 'drwx------    4 ftptest  ftptest      4096 Jan 22 15:46 ..', 
            'a' => bless( { 
                            'uid' => 541, 
                            'flags' => 15, 
                            'mtime' => 1358887570, 
                            'atime' => 1361199071, 
                            'perm' => 16832, 
                            'gid' => 541, 
                            'size' => 4096 
                          }, 'Net::SFTP::Foreign::Attributes' ), 
            'filename' => '..' 
          }, 
          { 
            'longname' => '-rw-rw-r--    1 ftptest  ftptest       171 Feb 18 11:23 newfile2', 
            'a' => bless( { 
                            'uid' => 541, 
                            'flags' => 15, 
                            'mtime' => 1361204603, 
                            'atime' => 1361204603, 
                            'perm' => 33204, 
                            'gid' => 541, 
                            'size' => 171 
                          }, 'Net::SFTP::Foreign::Attributes' ), 
            'filename' => 'newfile2' 
          } 
        ]; 


	

(This post was edited by StarkRavingCalm on Feb 19, 2013, 1:39 PM)



      
    

my $file = $sftp->ls('/home/ftptest/inbound', no_wanted => qr/^\./ ); 
my %file = map { $_->{filename} => $_->{a}->size } @$file; 
 
 
But now the logic does not seem to work. Will the code below need to change? 
Code
 for ( keys %file ) 
{ 
    if ( $file{$_} eq $file2{$_} ) 
    { 
          push(@equal, $_); 
          next; 
     } 
    else 
    { 
          push(@notEqual, $_); 
          next; 
      } 
   
 } 



      
    

for ( keys %file2 ) 
{ 
    if ( exists $file{$_} ) { next; } 
    push(@newfiles, $_); 
} 
 
 
for ( keys %file ) 
{ 
    if ( exists $file2{$_} ) { next; } 
    push(@removedfiles, $_); 
 
} 
 
 
for ( keys %file ) 
{ 
    if ( $file{$_} eq $file2{$_} ) 
#if ( $file{$_} == $file2{$_} ) 
    { 
         push(@equal, $_); 
         next; 
    } 
    else 
    { 
         push(@notEqual, $_); 
         next; 
    } 
 
} 



      
    

foreach my $file ( $ftp->ls('-la') ) { $files{basename($file)} = (stat($file))[7]; 
 
} 
 
print Dumper \%files; 
Code
Here are the results: 
$VAR1 = { 
          '-rw-r--r--    1 541      541       2739312 Mar 01 18:45 upfile2' => undef, 
          '-rw-rw-r--    1 541      541            19 Mar 01 18:46 upfile3' => undef, 
          'drwxrwxr-x    2 541      541          4096 Mar 01 18:46 .' => undef, 
          '-rw-r--r--    1 541      541           152 Mar 01 18:45 upfile1' => undef, 
          'drwxrwxr-x    2 541      541          4096 Mar 01 18:46 ..' => undef, 
          '-rw-rw-r--    1 541      541           185 Mar 01 18:46 upfile4' => undef 
        };