Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

mikeock's scratchpad

by mikeock (Hermit)
on Oct 13, 2005 at 15:26 UTC ( #499939=scratchpad: print w/replies, xml ) Need Help??

Current code I am working on to upload specific files and specific folders to an ftp server.

Currently there is no ftp module loaded. !!This is a test peice of software!!

#!/usr/bin/perl use DirHandle; sub dunno{ system "cls"; print"Enter the path that you would like to search for\n"; chomp(my $path =<>); my $dir ="c:/$path"; my $dir2 = new DirHandle "$dir"; if(defined $dir2){ while(defined($_= $dir2->read)){ foreach my $dir3($_){ next if($dir3 =~ m/\.+/); #print "$dir/$dir3/\n"; dunno2($dir,$dir3); } } } } sub dunno2{ # Current limitations include only working if all D +irs include whatever filetpye. # Otherwise you end up with dir listings along with the fi +lename ## Below is a section of code that will be need for later use #my $type; #print "Enter the filetype that you would like to copy\n"; #chomp($type=<>); ## End commented code ## my $type = "*.pl"; my ($dir3,$dir4) =@_; # Getting values from the values pass +ed to sub my $dir5 = "$dir3/$dir4"; # Adding them together for use in the + file glob my @file = <$dir5/$type>; # or die "no $type in $dir5\n"; foreach my $list(@file){ # List all pl file found in dir my $list2 = $list; # Declaring for later use. Don't wamt to + clobber the original value my $list3 = $list; # Declaring for later use. Don't wamt to + clobber the original value #next if($list2 =! m/\w$/); $list2 =~ s/^(.+\/)(.+?)$/$2/; # Sets to filename **Works** #$list2 =~ s/^(.+?\/)(.+?)$/$2/; # Removes c:/ **Works** $list3 =~ s/^(.+?\/)(.+?\/)(.+?\/)(.+?)$/$3/; # Sets to fol +der name **Works** See note below # Had to remove the 4th search due to folder type on t +his laptop # Test portion of the script. Allow me to set and call routine +s, print statements, etc. # They are down here so that the code is easier to read. #print "$3"; #my $list4 = $list3; #$list4 =~ m/\w/; print "$list2\n"; } } dunno();
Log In?

What's my password?
Create A New User
and the questions are moot...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2017-07-21 05:55 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (319 votes). Check out past polls.