|
|||||||
помогите молодому и неопытному новичкуОбсуждение темы помогите молодому и неопытному новичку в разделе ASP, Perl, PHP и MySQL, часть категории ВЕБ-ПРОГРАММИРОВАНИЕ; кружится голова и ничего не понимаешь - так и у тебя было, когда ты начинал или нет?... |
![]() |
|
|
Опции темы |
|
|
#21 |
|
|
кружится голова и ничего не понимаешь - так и у тебя было, когда ты начинал или нет?
|
|
|
|
|
#22 |
|
|
GRoM, я перл почти не знаю. просто, когда нужно, я могу разобраться. И перл не такой уж и сложный язык. Во многих моментах он значительно проще php.
$origfile = "/$page/originalfile.htm" переменная $page передается через STDIN и подставляется в переменную $origfile В итоге, ты имеешь переменную $origfile со значением "/your_page/originalfile.htm" Здесь нет ничего сложного. |
|
|
|
|
#23 |
|
|
т.е. я должен написать так
Код:
$origfile = "http://$page/originalfile.htm" |
|
|
|
|
#24 |
|
|
GRoM, нет. ты объявление добаляешь, что ли, на чужой сайт?
|
|
|
|
|
#25 |
|
|
тогда
Код:
$origfile = "С/..../$page/originalfile.htm" |
|
|
|
|
#26 |
|
|
GRoM, ты знаешь разницу между относительными и абсолютными путями?
Если у тебя скрипт лежит в директории cgi-bin(или cgi), то путь должен быть просто /$page/file.htm ты как вообще скрипты пишешь? |
|
|
|
|
#27 | |
|
|
теперь понял
Цитата:
Nielson,ты когда окончательно разозлишься и не будешь мне помогать,пожалуйста,скажи мне,а то буду седеть ответа ждать за зря.Договорились? |
|
|
|
|
|
#28 |
|
|
GRoM, я не злюсь. у нас тут не phpclub и не deforum. :-) Так что, спрашивай, когда что-то непонятно.
|
|
|
|
|
#29 |
|
|
спасибо.
пока попробую всё выше приведённое переворить. GRoM добавил [date]1125050378[/date]: Да,вот ещё забыл,я ведь хотел спросить,может знаешь какой-нибудь хороший учебник,статью ....,где подробно может быть написано про наш разговор, именно про передачу данных. |
|
|
|
|
#30 |
|
|
Nielson, помоги.
Можешь мне дураку объяснить всё по-порядку заново? Итак, у меня скрипт такой: Код:
#!/usr/local/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#Эта строка читает данные со стандартного входа и помещает их в переменную $buffer. Длина строки передается скрипту через переменную окружения CONTENT_LENGTH.
@pairs = split(/&/, $buffer);
#Теперь мы получили массив @pairs со следующими строковыми переменными:
#[1] user_name=Andy+Novikov
#[2] co_name=TeleSputnik
#[3] phone=(812)+123-45-67
#Теперь нам необходимо разбить эти строки на пары параметр-значение:
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;
}
# Определяем переменную, содержащую путь к исходному файлу
$origfile = "C:/Documents and Settings/роман/Рабочий стол/сайт/пример.html";
# Определяем переменную, содержащую путь к временному файлу
$newfile = "C:/Documents and Settings/роман/Рабочий стол/сайт/проба2.html";
open(INFILE, "<$origfile");
open(OUTFILE, ">$newfile");
while ($line = <INFILE>) {
printf OUTFILE $line;
if ($line =~ //i) {
# Добавляем новые данные в файл:
print OUTFILE "\n\n";
print OUTFILE "Имя: ", $input{'name'},"\n
";
print OUTFILE "Компания: ", $input{'co_name'},"\n
";
print OUTFILE "Телефон: ", $input{'phone'},"\n</p>\n
<hr></p>\n";
}
}
# Закрываем файлы
close(INFILE);
close(OUTFILE);
# Удаляем исходный файл и переименовываем новый в исходный
unlink($origfile);
rename($newfile, $origfile);
print "Content-Type: text/html\n\n";
print "<html>\n<head>\n<title>Спасибо</title>\n</head>";
print "<body>\n<h1>Спасибо за заполнение формы</h1>";
print "Мы получили ваше имя, место работы и телефон,";
print " которые вы видите ниже:
\n";
print "Имя: ", $input{'name'},"\n
";
print "Компания: ", $input{'co_name'},"\n
";
print "Телефон: ", $input{'phone'},"\n</p>\n
<hr></p>\n";
print "</body>\n</html>";
Форма такая: Код:
<form method=post action="http://localhost/cgi-bin/obyava.cgi"> <center><font size="5"color="#c80430">создаём объявление</font></center> <center><INPUT TYPE="TEXT" name="name" SIZE="20" VALUE="ваше Ф.И.О."> <INPUT TYPE="TEXT" NAME="мой адрес" SIZE="20" VALUE="ваш адрес"> <INPUT TYPE="TEXT" NAME="мой E-mail" SIZE="20" VALUE="ваш E-mail"> <INPUT TYPE="TEXT" NAME="мой телефон" SIZE="20" VALUE="ваш телефон"> </center> <font color="FFEBCD" title="здесь можно написать текст вашего объявления"><center>текст объявления</center></font> <center> <TEXTAREA name="example" COLS=50 ROWS=10> </TEXTAREA> </center> <center> </center> <select name="n"> <option valuе="n1">купить <option value="n2">продать <option value="n3">менять </select> <center> <INPUT TYPE="reset" value="сброс"> <INPUT TYPE="submit" value="готово"> </center> </form> |
|
|
![]() |
| Опции темы | |
|
|
| Похожие темы | ||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Помогите новичку | localhost | ASP, Perl, PHP и MySQL | 6 | 13.01.2009 14:31 |
| Помогите новичку! | dva81 | Технологии Flash | 12 | 24.11.2005 20:04 |
| помогите новичку! | absolute zero! | Технологии Flash | 2 | 30.12.2004 12:49 |
| помогите новичку! | Макс | Растровая графика | 5 | 23.11.2004 16:55 |
| Помогите новичку!!!!! Plz!!! | Dis | HTML, CSS, JavaScript | 3 | 03.06.2003 03:22 |
|
Реклама на форуме
Условия размещения рекламы
Биржа ссылок
Заработай на сайте!
|