sanku has asked for the wisdom of the Perl Monks concerning the following question:
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; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: this program is not running in apache web server
by lamp (Chaplain) on Oct 30, 2008 at 06:21 UTC | |
by sanku (Beadle) on Oct 30, 2008 at 06:29 UTC | |
|
Re: this program is not running in apache web server
by Gangabass (Vicar) on Oct 30, 2008 at 06:28 UTC | |
by sanku (Beadle) on Oct 30, 2008 at 06:33 UTC | |
by moritz (Cardinal) on Oct 30, 2008 at 06:49 UTC | |
by sanku (Beadle) on Oct 30, 2008 at 06:59 UTC | |
|
Re: this program is not running in apache web server
by GrandFather (Saint) on Oct 30, 2008 at 06:25 UTC | |
|
Re: this program is not running in apache web server
by quester (Vicar) on Oct 30, 2008 at 06:31 UTC |