$VAR1 = {
'recursive' => 'no',
'version' => '0.20.202.1.1101050227',
'time' => '2011-10-26T00:21:06+0000',
'filter' => '.*',
'path' => '/work/eng/feeds/customer_care',
'directory' => [
{
'owner' => 'tst_act',
'group' => 'eng',
'permission' => 'drwxr-xr-x',
'path' => '/work/eng/feeds/customer_care',
'accesstime' => '1970-01-01T00:00:00+0000',
'modified' => '2011-10-25T23:54:17+0000'
},
{
'owner' => 'tst_act',
'group' => 'eng',
'permission' => 'drwx------',
'path' => '/work/eng/feeds/customer_care/abc',
'accesstime' => '1970-01-01T00:00:00+0000',
'modified' => '2011-10-25T17:12:56+0000'
},
{
'owner' => 'tst_act',
'group' => 'eng',
'permission' => 'drwx------',
'path' => '/work/eng/feeds/customer_care/def',
'accesstime' => '1970-01-01T00:00:00+0000',
'modified' => '2011-10-25T21:05:50+0000'
},
{
'owner' => 'tst_act',
'group' => 'eng',
'permission' => 'drwx------',
'path' => '/work/eng/feeds/customer_care/test',
'accesstime' => '1970-01-01T00:00:00+0000',
'modified' => '2011-10-25T21:28:14+0000'
}
],
'exclude' => ''
};
####
my $lsResults = $cmd->ls("$chkdir"); #$chkdir = "/work/eng/feeds/customer_care"
#print Dumper($lsResults);
for my $dirnm ( @{$lsResults->{directory}} ) {
print "Directory: " . $dirnm->{path} . "\n";
}
####
Directory: /work/eng/feeds/customer_care
Directory: /work/eng/feeds/customer_care/abc
Directory: /work/eng/feeds/customer_care/def
Directory: /work/eng/feeds/customer_care/test
####
$VAR1 = {
'recursive' => 'no',
'version' => '0.20.202.1.1101050227',
'time' => '2011-10-26T00:30:02+0000',
'filter' => '.*',
'file' => {
'owner' => 'tst_act',
'replication' => '3',
'blocksize' => '134217728',
'permission' => '-rw-------',
'path' => '/work/eng/feeds/customer_care/test/q_data_20111023.dat',
'modified' => '2011-10-26T00:29:46+0000',
'size' => '379085',
'group' => 'eng',
'accesstime' => '2011-10-26T00:29:46+0000'
},
'path' => '/work/eng/feeds/customer_care/test',
'directory' => {
'owner' => 'tst_act',
'group' => 'eng',
'permission' => 'drwx------',
'path' => '/work/eng/feeds/customer_care/test',
'accesstime' => '1970-01-01T00:00:00+0000',
'modified' => '2011-10-26T00:29:46+0000'
},
'exclude' => ''
};
####
my $lsResults = $cmd->ls("$chkdir");
#print Dumper($lsResults);
for my $filenm ( @{$lsResults->{file}} ) {
print "Filename: " . $filenm->{path} . "\n";
print " Size: " . $filenm->{size} . "\n";
}
####
Filename: /work/eng/feeds/customer_care/test/q_data_20111023.dat
Size: 379085
####
Directory: /work/eng/feeds/customer_care/test
Filename: /work/eng/feeds/customer_care/test/q_data_20111023.dat
Size: 379085