Mark Harris wrote:
# Always use strict and warnings.
use strict;
use warnings;
: use Win32::File;
: $dirspec = "c:\\xfer";
# / is the preferred perl directory separator
# (even on windows).
my $dirspec = 'c:/xfer';
Following Tom's advice we might do this.
: opendir(DS, $dirspec);
# Always check I/O operations for success.
opendir DS, $dirspec or die qq(Cannot open "$dirspec": $!);
: while($fn = readdir(DS))
# $fn is not a descriptive variable name.
while ( my $filename = readdir DS )
: {
: if ( -d $fn)
# Prepend path info on file tests.
if ( -d "c:/xfer/$filename" )
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
