Thanks in advance.#!/usr/bin/perl print "Content-type:text/html\n\n"; use warnings; use strict; #use File::Basename; opendir(DIR,"/root/sample/directory/") or die $!; my @dir=readdir(DIR); close (DIR); foreach my $directory(@dir){ if($directory =~/^\w/){ print $directory; } }
In reply to this program is not running in apache web server by sanku
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |