Help for this page

Select Code to Download

Select or download this

opendir(DIR, $mydir);
my @files = readdir(DIR);
...
foreach (@files)
{
    next if( -d $_ );

Select or download this

opendir(DIR, $mydir);
my @files = readdir(DIR);
...
foreach (@files)
{
    next if( -d $mydir."/$_" );