use CGI qw(:standard); #use Win32::ODBC; use strict; use win32; my ($directory); my ($name); print "enter in directory \n"; chomp ($directory = <STDIN>); print "directory is $directory\n"; #Open the directory to list what's inside opendir(DIR, "c:/$directory") || die "Cannot open $directory $!"; foreach $name (sort readdir(DIR)) { #Prints names sorted print "$name\n"; } closedir(DIR); print "$directory is the directory";
In reply to Re: WinNT Opendir with CGI
by loosid
in thread WinNT Opendir with CGI
by loosid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |