I am receiving numerous amounts of mail but have not filled out any
questionnaires giving away any sort of information. If these letters continue
being sent to me I will be forced to report you to AOL as spam and possibly
other forms to get me taken off of whatever list that I am on. PLEASE take my
off of the lists on which I am to receive these annoying messages. thank you
very much and have a nice day.
SA*
-Original Message-
From: Gustav Wiberg [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; beginners@perl.org
Sent: Fri, 7 Oct 2005 20:06:42 +0200
Subject: Re: Finding directories within a tree
Hi there!
Isn't it possible to use dir - command? (dos-command) which is similar to ls
/G
- Original Message - From: [EMAIL PROTECTED]
To: beginners@perl.org
Sent: Friday, October 07, 2005 7:17 PM
Subject: Finding directories within a tree
Good Afternoon
I am attempting to develop a script that will parse a directory listing and
return only directory names that match a given expression.
It would make sense to me to use File::Find to do this but based on the dir
structure I am parsing, the amount of overhead to do this is enourmous !
Basically, I have a file structure similar to:
Dir1\Dir2\Support\119404\dirx\diry
Dir1\Dir3\Support\119893\dirx
Dir1\Dir4\Support\14\dirx\diry\dirz
.
Dir1\Dir1000\Support\100858
I am simply interested in finding the directories directley under the
Support dir (ex.119404 from the 1st example) . There is no consistancy to
the naming convention other then Dir1 and Support. Dir2 can be many
different values.
I tried functionality similar to the following that did work on a much
smaller test bed:
my $dirs=I:\\ID_00_000999;
find sub { push @dirs, $File::Find::dir if $File::Find::dir =~
m/.+[Ss]upport\/\d+$/;}, $dirs;
But in a larger scale dir structure. The performance of this was horrible
!! (Since it is looking through the entire structure including dirs under
the directory I am trying to match on).
As you can see form the I:\\ this is on windows, so ls and similar UNIX
commands are not available.
Any thoughts on how I can accomplish this task with the lowest amount of
overhead?
Thanks!
Jason
-- To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
-- No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.13/123 - Release Date: 2005-10-06
-- To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
