0 Пользователей и 1 Гость просматривают эту тему.
$dir = opendir(\'./somedir\');while(readdir($dir)){ print if (-f $_);}
opendir(D,\'./dirname\');foreach(readdir(D)){ print $_."\\n" if -f $_;}