X-Spam-Check-By: sourceware.org Date: Sat, 23 Jun 2007 04:49:27 -0400 (EDT) From: William Sutton To: Wynfield Henman Cc: cygwin@cygwin.com Subject: Re: is perl braindead? In-Reply-To: <195b3f1f0706230058s1a70cfc0iac2f45e06508c587@mail.gmail.com> Message-ID: References: <195b3f1f0706230058s1a70cfc0iac2f45e06508c587@mail.gmail.com> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-IsSubscribed: yes Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner@cygwin.com Mail-Followup-To: cygwin@cygwin.com Delivered-To: mailing list cygwin@cygwin.com No...depends on where you run that script from. If you run it anywhere outside of /bozo, it doesn't have the full path, so -d fails. If you change your test to if ( -d "$ldir/$_" ) { print "This is directory: $_\n"; next; } then it works. -- William Sutton On Sat, 23 Jun 2007, Wynfield Henman wrote: > From what I read the following should work, but it doesn't. > Can one of you familiar with cygwin's perl help me out. > > Why doesn't the test, -d, for directory work on the subdirectory? > It should, in my considered opinion. > Below is sufficient code to perform a simple test. > > Your help is appreciated. > > Regards, > wynfield > > prepare for the test from the command line: > $ mkdir /bozo > $ mkdir /bozo/bozo_the_clown_dir > > Check this: > find /bozo -type d -print > /bozo > /bozo/bozo_the_clown_dir > -- ok we have a directory and it has a subdirectory > > Sample code: > ------------------ start of simple perl program > #! /bin/perl > > my $ldir="/bozo"; > > if ( ! opendir DH, $ldir) > { > print "Couldn't open as a dir: $ldir. \n"; > exit 0; > } > > print "Processing directory: $ldir\n"; > while ( $_ = readdir(DH) ) # will be either a file or directory name > { > if ( $_ eq "." or $_ eq ".." ) { print "dir . or ..\n"; next; } > if ( -d $_ ) { print "This is directory: $_\n"; next; } > print "Escaped detection $_\n"; > } > > close (DH); > ---------------------------- end of sample code > > -- > Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple > Problem reports: http://cygwin.com/problems.html > Documentation: http://cygwin.com/docs.html > FAQ: http://cygwin.com/faq/ > > > -- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Problem reports: http://cygwin.com/problems.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/