Terry Poperszky <[EMAIL PROTECTED]> wrote:
: Suggestions/Observations?
Don't use external commands to get directory contents.
Use 'openddir' and 'readdir' instead.
: open MYFILE, "<dir_log";
You should always check that I/O succeed.
: while (<MYFILE>) {
: $dir_log{chomp($_)} = 1;
'chomp' will not return a file name here. I think you
want this.
chomp;
$dir_log{$_} = 1
: }
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
