Форум АНТИЧАТ > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Песочница Чтение файлов и папок за пределами директории

   

Опции темы

Поиск в этой теме

Опции просмотра

Предыдущая   Следующая

uid=1058(lname_login) gid=600(customers) groups=600(customers) 

Safe-mode: OFF

#!/usr/bin/perl
$dir = "/home/ppublic_html";

opendir(DIR, $dir) || die "can't opendir ".$dir .": $!";
@files = grep {!(-d $dir.$_)} readdir(DIR);
closedir DIR;

print @files;