Php скрипт в perl
 

есть хост, который не понимает пхп, в данной дире..только pl(cgi). Попытки запустить пхп из cgi неудались.
в скриптах с99madshell и, особенно, eugen shell,функция: "а доступна ли дира под запись",-работает как раз так,как надо мне!
Вопрос:
Где можно такое на перле взять или мб ктото могет переписать один из вышеперечисленных скриптов на перл?

http://www.google.ru/search?q=webshell+perl&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefo x-a

http://mentat.sibintercom.ru/Nemo/shell/r57pws.pl.txt ссыль два

прочти мой пост внимательнее, там ясно написано что мне надо не АБЫ какой шелл на перле, а именно с функцией определения доступной под запись диры, как у с99madshell или Eugen.

$n@ke дык на перле system("ls -la");
И там уже смотри права доступа на папку. если конечно серв не на винде

я совсем чтоле по вашему ноль??))
я не зря написал определенные скрипты! там иная система, на Afs она не катит.

Вариант?
my $dir="C:/Perl/";
stat($dir);
print "Readable\n" if -r _;
print "Writable\n" if -w _;
print "Executable\n" if -x _;

это "алиасы" под ними просто сохранены команды *nix
ex.:
find all writables dir and files
cmd: find . -perm -2 -ls

так что заливай любой шелл на перле, и выполняй эти команды... ;)

и т.д и т.п

2 Kaimi - нет. там надо разобрать алиас, помоему чмодится дира(файл), и, если тру, то выводим в green название диры(файла).

2 aka PSIH - нет нет)) я не зря написал именно эти шеллы)
повторюсь:

я совсем чтоле по вашему ноль??))

по моему ты совсем ноль, тебе aka PSIH написал Ленокс команду find, которую юзает твой разлюбимейщий c99madshell. Никакой там другой система нету

cmd: find . -perm -2 -ls

поиск всех файлов и дир в тукушей папке и подпапках с правами -rwxrwxrwx

для поиска только даир доступных на запись

find . -perm -2 -type d -ls

http://linux.about.com/od/commands/l/blcmdl1_find.htm

если тебе так не хочется юзать find, и если у тебя linux, выполняй
id
ls -la /dira

Смотри какие права для владельца, для группы и для всех остальных
Если у тебя виндвоз то тебе ничто не поможет

а по моему ты nix`ы видел только на локалхосте..

специально для тебя, не поленюсь и напишу еще раз:
там AFS, и "find . -perm -2 -ls",etc - можешь делать до усЁра, и пробовать записать в диру, что покажет тебе такая команда - тоже до того самого...

зы:на крупных .edu и некоторых других(iastate.edu,cern.ch,openafs.org) серваках есть AFS.