Forum Webscript.Ru
Программирование => Perl => Тема начата: Dimchik от 04 Декабря 2003, 02:41:15
-
Пожалуйста, помогите написать такой файл на PERLе, чтобы запрашивалось IMYA_KATALOGA, и после ввода имени и нажатия SUBMIT на сервере появлялся каталог с этим именем в папке C:/VAR/HOME/, и еще, чтобы одновременно с появлением папки IMYA_KATALOGA, в нее автоматически скопировалась группа файлов INDEX.HTML, ABOUT.HTM, INTRO.JPG, PHOTO.JPG, допустим из C:/VAR/HOME/SHABLON/.
т.е. мне нужно сделать такую системку создания аккаунтов с рабочего места администратора, чтобы на сервере появлялся сайт (HTTP://MY.SERVER.RU/WWW.IMYA_KATALOGA/), а в нем, как по шаблону, уже лежали несколько файлов, которые пользователь потом сможет отредактировать по своему усмотрению.
Еще хотелось бы проверку: если папка с именем IMYA_KATALOGA уже существует, предложить ввести другое имя, и так в цикле, пока не будет найдено свободное имя.
Очень надеюсь на участников этого форума.
Я новичок в программировании, и мне трудно с постановкой задачи, но возможно кто-то поймет и поможет. Заранее благодарен.
-
Dimchik
Я вижу только один "способ" решения твоей задачи. Ты пробуешь что нибудь написать, мы помогаем, советуем, вместе решаем проблемы.
Если постараешься - мы вместе решим задачу, но делать все за тебя врядли найдутся желающие, т.к. для заказа скрипта здесь есть отдельный форум.
-
В догонку:
C:/VAR/HOME/SHABLON/
Я сначала подумал, что это виндовс у тебя, но сейчас сомневаюсь. Дело в том, что ежели ты сидишь под *nix, то есть возможность создать "скелет" (каталог тут "/etc/skel", описание в инете), где всё, тобою запрошенное будет работать.
-
У меня XLinux. Ладно, я все понял ;) Постараюсь че-нить накарябать сам, а если будет глючить, попрошу совета. thnx!
А что за скелет? (/etc/skel) где? Мона посмотреть?
-
Dimchik:
А что за скелет
Яндекс рулит, я проверял.
http://www.yandex.ru/yandsearch?text=/etc/skel
-
мдя... я че-то первый раз такое вижу. Плохо быть чайником.
А если все же попробовать запрограммировать? Например, мне нужно создать каталог (пусть просто на C:/), с именем, как у введенной переменной LOGIN. Какую команду надо использовать в pl? Помогите plzzz...
Содержимое NEWSITE.HTM
Содержимое NEWSITE.PL
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$input{$name} = $value;
}
print "Content-Type: text/html\\n\\n";
print "Поздравляем, на диске создана папка с имнем $input{\'LOGIN\'}";
print "