несколько команд на стороне сервера

[RelaX]

добрый день!

подскажите, как на perl\'e написать небольшой скриптик, который выполняет следующее:
есть сайт, он находится в папке /home/web/ . Сервер - linux.

скрипт заходит в папку /home/web/
делает листинг директории и записывает в переменную $a
создает папку 123 в папке /home/web/
создает файл listing.txt в папке /home/web/123

p.s. perl только начал изучать, все это кажется очень сложным

[Chs]

perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
perldoc -f open
perldoc -f close
perldoc -f print

[Phoinix]

А если так?

my (@files);
@files=;
mkdir ("/home/web/123");
open (FILE, ">/home/web/123/files.txt");
flock (FILE, 2);
print FILE @files;
close (FILE);
print "Content-type: text/html; charset=windows-1251\\n\\n";
print qq "@files";
exit;

[Mog.]

Phoinix:
@files=;

А как же opendir, readdir ? Я чтоль отстал от жизни?

[Chs]

А как же opendir, readdir ? Я чтоль отстал от жизни?

Не отстал, просто в перле все можно сделать не одним способом.
Я считаю, что через opendir, readdir надежнее.

[Mog.]

@files=;

А в пятой версии это будет работать?

Phoinix:
@files=;
...
...
print "Content-type: text/html; charset=windows-1251\\n\\n";
print qq "@files";

и получим два лишних "." и ".."

[Phoinix]

Mog.

А в пятой версии это будет работать?

В 5.6.1 работает...

и получим два лишних "." и ".."

Ни разу не получал...

[Mog.]

Phoinix:
В 5.6.1 работает...

Да, я решительно отстаю от жизни. У меня 5.004_02. Может отсюда и беды все?

[Phoinix]

Mog.
Вообще-то, уже есть 5.8.0... Правда я еще не юзал так сильно...