Hi,
This question may be out of scope for this mailing list.
But if there are also some good Unix mailing list out there for average
Unix shell programmers please let me know.
Appreciate your help,
Sincerely,
Satya
Anders Holm <[EMAIL PROTECTED]>
06/04/2004 10:40 AM
To: Steve Gross <[EMAIL PROTECTED]>
cc: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>, (bcc: Satya
Devarakonda/HAM/AM/HONDA)
Subject: RE: Directory Test in Windows?
Hi Steve.
Sorry, reread your mail again there.
You want to match files in a specified directory.
For that purpose you are then matching entries in the directory using
-d. That will match directories, and not files, so a return value of .
or .. would be valid, since that is what you are asking for.
Try using -f instead of -d, and see what you get.
The code snippet I sent in my last mail would iterate over any entry in
a directory if it isn't . or ..
HTH!
//Anders//
On Fri, 2004-06-04 at 14:34, Steve Gross wrote:
> Sorry Anders, this script doesn't do what I want it to do:
> differentiate between files and directories within a directory.
>
> ____________________________________________
> Steve Gross Tel: (973) 586-8722 x249
> IT Manager Fax: (973) 586-0450
> Fette America, Inc.
>
>
> > -----Original Message-----
> > From: Anders Holm [mailto:[EMAIL PROTECTED]
> > Sent: Friday, June 04, 2004 10:12 AM
> > To: Steve Gross
> > Cc: '[EMAIL PROTECTED]'
> > Subject: Re: Directory Test in Windows?
> >
> >
> > Hi Steve.
> >
> > Do:
> >
> > use strict;
> > use Fcntl;
> >
> > my $dirname = "D:\\XYZ";
> > my @directories;
> >
> > if(opendir(DIR, $dirname)) {
> >
> > @directories = grep !/^\.\.?\z/, readdir DIR;
> > foreach(@directories) {
> > print $_;
> > print "\n";
> > }
> > }
> >
> > The grep statement will match anything which isn't a dot "." or 2
> dots
> > ".." .
> >
> > I'll leave testing for valid directories as an excercise.. ;)
> >
> > //Anders//
> >
> > On Fri, 2004-06-04 at 13:13, Steve Gross wrote:
> > > I'm trying to perform an operation on every file in a
> > directory. I want to
> > > skip directories. I'm using the "-d" file test but it only
> > catches "." and
> > > "..". Any ideas?
> > > Here's the code (most of it out of the Cookbook):
> > > my $dirname = "D:\\XYZ";
> > >
> > > opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
> > >
> > > while (defined(my $file = readdir(DIR)))
> > > {
> > > if (-d $file)
> > > {
> > > print "DIR: $file\n";
> > > next;
> > > }
> > > else
> > > {
> > >
> > > # do something here
> > >
> > > }
> > >
> > > }
> > >
> > >
> > > ____________________________________________
> > > Steve Gross Tel: (973) 586-8722 x249
> > > IT Manager Fax: (973) 586-0450
> > > Fette America, Inc.
> > >
> >
--
Anders Holm
Professional Services Consultant
CriticalPath - Macclesfield - United Kingdom
Support Site: http://support.criticalpath.net/
Web Site: http://www.criticalpath.net/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
