Forum Webscript.Ru
Программирование => Perl => Тема начата: RelaX от 20 Июня 2003, 17:31:38
-
добрый день!
подскажите, как на perl\'e написать небольшой скриптик, который выполняет следующее:
есть сайт, он находится в папке /home/web/ . Сервер - linux.
скрипт заходит в папку /home/web/
делает листинг директории и записывает в переменную $a
создает папку 123 в папке /home/web/
создает файл listing.txt в папке /home/web/123
p.s. perl только начал изучать, все это кажется очень сложным :(
-
perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
perldoc -f open
perldoc -f close
perldoc -f print
-
А если так?
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;
-
Phoinix:
@files=;
А как же opendir, readdir ? Я чтоль отстал от жизни?
-
А как же opendir, readdir ? Я чтоль отстал от жизни?
Не отстал, просто в перле все можно сделать не одним способом.:)
Я считаю, что через opendir, readdir надежнее.
-
@files=;
А в пятой версии это будет работать?
Phoinix:
@files=;
...
...
print "Content-type: text/html; charset=windows-1251\\n\\n";
print qq "@files";
и получим два лишних "." и ".."
-
Mog.
А в пятой версии это будет работать?
В 5.6.1 работает...
и получим два лишних "." и ".."
Ни разу не получал...
-
Phoinix:
В 5.6.1 работает...
Да, я решительно отстаю от жизни. У меня 5.004_02. Может отсюда и беды все? :)
-
Mog.
Вообще-то, уже есть 5.8.0... Правда я еще не юзал так сильно...