Select Code to Download

Select or download this

    $VAR1 = {
              'recursive' => 'no',
...
                           ],
              'exclude' => ''
            };

Select or download this

my $lsResults = $cmd->ls("$chkdir"); #$chkdir = "/work/eng/feeds/custo
+mer_care"
#print Dumper($lsResults);
for my $dirnm ( @{$lsResults->{directory}} ) {
    print "Directory:  " . $dirnm->{path} . "\n";
}

Select or download this

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

Select or download this

    $VAR1 = {
              'recursive' => 'no',
...
                           },
              'exclude' => ''
            };

Select or download this

my $lsResults = $cmd->ls("$chkdir");
#print Dumper($lsResults);
...
    print "Filename:  " . $filenm->{path} . "\n";
    print "    Size:  " . $filenm->{size} . "\n";
}

Select or download this

Filename:  /work/eng/feeds/customer_care/test/q_data_20111023.dat
    Size:  379085

Select or download this

Directory: /work/eng/feeds/customer_care/test
Filename:  /work/eng/feeds/customer_care/test/q_data_20111023.dat
    Size:  379085