Get folder names, FTP

Dev Shed Forums Sponsor:

February 29th, 2008, 10:12 AM

murrays

Registered User

Join Date: Feb 2008

Posts: 2

Time spent in forums: 13 m 21 sec
Reputation Power: 0

Get folder names, FTP

I'm trying to traverse a range of years that correspond to different directories that a user specifies. Within each year subdirectory is a list of folders. I want to be able to get the folder list names into an array and then walk through each subfolder to download the files. Any suggestions on how to do this? I've been struggling trying to use opendir, readdir, and closedir. Also, I do not want to install any additional modules from perl if possible such as File::Find. Thanks.

February 29th, 2008, 02:55 PM

murrays

Registered User

Join Date: Feb 2008

Posts: 2

Time spent in forums: 13 m 21 sec
Reputation Power: 0

In case anyone needs this in the future, this is what I ended up using.

sub download_setfiles
{
$year = $_[2];
$sp = $_[1];
$dir=$_[0];
$ftp->binary();
@months = $ftp->ls(".");
foreach $months(@months) {
$ftp->cwd($months);
@days = $ftp->ls(".");
foreach $days(@days){
$ftp->cwd($days);
@files = $ftp->ls(".");
foreach $files(@files){
if($files =~ m/$sp/) {
$ftp->get($files) or die "Can not download $files\n";
chop($files); chop($files); chop($files);
print LOG "$files\n"; push(@downloadedfiles, $files); }
}
$ftp->cwd("..");
}
$ftp->cwd("..");
}
$ftp->cwd("..");
}

March 6th, 2008, 10:02 AM

agarwalniru

Contributing User

Join Date: Mar 2007

Posts: 41

Time spent in forums: 13 h 37 m 38 sec
Reputation Power: 5

hello,

I am trying to code something similar to urs!!! so neede ur help in this as u have already worked it out.
I need to do ftp files from lan to unix box and then traverese a root directory.
and int hen root directory there are sub folders...and I need to grab all the files in each odf the sub folder and parse the file names to send them to designated folders.

I am using shell script to FTP and then using Perl script to grab the files and parse tehm!!!

can u plz give some suggestion???

Thanks

March 6th, 2008, 08:55 PM

kalyanraj

8 Miles

Join Date: Feb 2005

Location: India

Posts: 356

Time spent in forums: 6 Days 2 h 2 m 56 sec
Reputation Power: 71

Agarwal,

Please post the code what've you tried so far. Here is a snippet which traverses from root folder to sub folder inside it.

Code:

#!/usr/bin/perl
use strict;

&smash("/archive");
sub smash {
    my $dir = shift;
    opendir DIR, $dir or return;
    my @contents =
        map "$dir/$_",
        sort grep !/^\.\.?$/,
        readdir DIR;
    closedir DIR;
    foreach (@contents) {
        next unless !-l && -d;
        &smash($_);
    }
}

HTH,
Kalyan

March 7th, 2008, 10:32 AM

agarwalniru

Contributing User

Join Date: Mar 2007

Posts: 41

Time spent in forums: 13 h 37 m 38 sec
Reputation Power: 5

Thanks Kalyan.......I will post my code in a while!!!

March 12th, 2008, 10:58 AM

agarwalniru

Contributing User

Join Date: Mar 2007

Posts: 41

Time spent in forums: 13 h 37 m 38 sec
Reputation Power: 5

heers my code .........and this is not working as we cannot use File:Find modulesat work

perl Code:

Original - perl Code

#!/usr/bin/perl -w

use strict;

our $source_dir = shift;    # get input directory name
our $dest_dir = shift;      # get output directory name

our @subdirs = ();               # to store the sub directories and their corresponding files
 our $files = undef;
 our @names = ();

our $subdir1 = undef;
  our $subdir2 = undef;

our $quarter_year = 'a';
 our $report_id = 'b';
  our $client_id = 'c';
  our $group_id = 'd';
  our $names1= undef;

$source_dir = "/usr/local/whiecp/bin/crpt/test";
 $dest_dir =  "/usr/local/whiecp/bin/crpt";

print "source".$source_dir;
print "\n dest = $dest_dir";

@subdirs=find(sub{$File::Find::name if -f && /\.pdf$/}, $source_dir);
 print @subdirs;
        foreach $files(@subdirs) {
                        chomp($files);
                        print $files;
                        $names1 = split(/\./,$files);
                        @names=split(/_/,$names1);
                        $quarter_year= $names[0];
                        print "\n $quarter_year";
                        $client_id = $names[1];
                        print "\n $client_id";
                                if (/(CL|cl)\.pdf/) {   # This checks the Report_level
                                        $group_id = "";
                                        $report_id = $names[2];
                                }
                                else {
                                        if (/(GL|gl)\.pdf/) {
                                                $group_id = "";
                                                $report_id = $names[2];
                                        }
                                        else {
                                                $group_id = $names[2];
                                                $report_id = $names[3];
                                        }
                                }
                       print "\n $group_id";
                       print "\n $report_id";
        }
l

 
#!/usr/bin/perl -w
 
use strict;
 
our $source_dir = shift;    # get input directory name
our $dest_dir = shift;      # get output directory name
 
our @subdirs = ();               # to store the sub directories and their corresponding files
 our $files = undef;
 our @names = ();
 
 our $subdir1 = undef;
  our $subdir2 = undef;
 
 our $quarter_year = 'a';
 our $report_id = 'b';
  our $client_id = 'c';
  our $group_id = 'd';
  our $names1= undef;
 
 $source_dir = "/usr/local/whiecp/bin/crpt/test";
 $dest_dir =  "/usr/local/whiecp/bin/crpt";
 
 print "source".$source_dir;
print "\n dest = $dest_dir";
 
 @subdirs=find(sub{$File::Find::name if -f && /\.pdf$/}, $source_dir);
 print @subdirs;
        foreach $files(@subdirs) {
                        chomp($files);
                        print $files;
                        $names1 = split(/\./,$files);
                        @names=split(/_/,$names1);
                        $quarter_year= $names[0];
                        print "\n $quarter_year";
                        $client_id = $names[1];
                        print "\n $client_id";
                                if (/(CL|cl)\.pdf/) {   # This checks the Report_level
                                        $group_id = "";
                                        $report_id = $names[2];
                                }
                                else {
                                        if (/(GL|gl)\.pdf/) {
                                                $group_id = "";
                                                $report_id = $names[2];
                                        }
                                        else {
                                                $group_id = $names[2];
                                                $report_id = $names[3];
                                        }
                                }
                       print "\n $group_id";
                       print "\n $report_id";
        }
l

March 12th, 2008, 01:23 PM

agarwalniru

Contributing User

Join Date: Mar 2007

Posts: 41

Time spent in forums: 13 h 37 m 38 sec
Reputation Power: 5

i just now found out a solution .....thanks to all of you for your help!!!

March 13th, 2008, 11:08 AM

agarwalniru

Contributing User

Join Date: Mar 2007

Posts: 41

Time spent in forums: 13 h 37 m 38 sec
Reputation Power: 5

By using the followintg line of code I have been able to get the list of al the .pdf files from aa root directory and its subdirectories.

@filelist=`find $source_dir -name "*.pdf"`;

there are other modules that can be used . but I havd the restriction of not having the rights to download them at the unix server.