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: 3

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: 350

Time spent in forums: 5 Days 22 h 43 m 49 sec
Reputation Power: 69

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: 3

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: 3

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: 3

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: 3

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.

Viewing: Dev Shed Forums > Programming Languages > Perl Programming > Get folder names, FTP

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

More Free IT White Papers!