At 03:15 PM 1/30/2002, you wrote:
Always check the return value of system calls to make sure they have
succeeded. I think your output file isn't getting opened.
>open(OUT, ">docs.out");
should be something like,
open OUT, "> docs.out" or die "Can't open output file: $!\n";
This way, if the
try using
find( \&wanted, "D:/");
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 3:03 PM
To: [EMAIL PROTECTED]
Subject: Re: File::Find and Platform Capability
I am having difficulty opening a directory and recur
ose name matches $ord
Files are pushed into the @files array, and I just moved on from there and
decided to learn the details later.
-Frank
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 3:03 PM
To: [EMAIL PROTECTED]
Subject:
I am having difficulty opening a directory and recursively listing the files
on NT Win32
I can do it on Unix but when I try it on NT with both UNC and drive letter I
get nothing...
Unix
###
!/util/perl5.static -w
use File::Find;
open(OUT, ">docs.out");
sub wanted
{
