Период между сообщениями больше года.
|
|
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
Только что решил начать изучать php, у меня к Вам пара вопросов... Хочу узнать на собственном опыте чем лучше Perl php или php Perl... 1) как получить переменные при отправки гет, пост? 2) как прикрепить и посмотреть плюшку? 3) есть ли примерчик по работе с модулем ming? Заранее спасибо... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2003, 20:25 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
и ещё вопрос №4: как открыть файл, лежащий http://где-то/что-то.txt типа LWP в Perl... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2003, 20:43 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
Ну смотрю ты добрался и сам до сути своего вопроса!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2003, 22:10 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
кто знает ответы на вопросы 2, 3 и 4 ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2003, 23:06 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
А поиском по форуму воспользоваться не судьба? Тут все это уже разбирали :). Так-же полистай умные книги :). Посмотри чужие скрипты... А заодно и это. Эти люди, кстати, такие вопросы не задавали!.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2003, 02:35 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
Да, ты еще ресурсы, указанные на данной страничке посети.\r \r Это не человек интернет сделал, а интернет человека. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2003, 02:43 |
|
||
|
пара простых вопросов от начинающего
|
|||
|---|---|---|---|
|
#18+
ПОПЫТКА ОТВЕТИТЬ НА ПЕРВЫЙ ВОПРОС #!/usr/bin/perl #### method GET GET GET #### if(!$ENV{'REMOTE_HOST'}){$IP=$ENV{'REMOTE_ADDR'};} else{$IP=$ENV{'REMOTE_HOST'};} # if ($ENV{'REQUEST_METHOD'} eq 'GET'){ # $query=$ENV{'QUERY_STRING'}; @pairs=split(/&/, $ENV{'QUERY_STRING'}); foreach $pair(@pairs) { ($name,$value)= split(/=/,$pair); $value=~ tr/+/ /; $value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $c{$name}= $value; } #### vivod stranic ######## # $html_file=$basepath.$c{'idtext'}.".htm"; # if ($c{'idtext'} eq '') {$html_file=$basepath."t1.htm";} &vivodget;exit;} # #### method POST POST POST POST # if ($ENV{'REQUEST_METHOD'} eq 'POST'){ 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; $c{$name}= $value; } &resultpost; exit;} exit; #### sub vivodget{ if ($c{'nameteme'} eq '') {exit;} $theme=$c{'nameteme'}.".htm"; $html_file=$basepath.$theme; open(Input,"<$html_file") or die "Can't open $html_file"; print "Content-type: text/html\n\n"; while (<Input>){print;} close Input; exit; } ### sub resultpost{ print "Content-type: text/html\n\n"; print "<html><head><title>Added message</title>\n"; print "<base href=\"$baseurl\">\n\n"; print "<LINK REL=\"stylsheet\" TYPE=\"text/css\" HREF=\"$stylebas\">\n"; print "</head><body bgcolor=b8c7e4><center><h1>OK!<br>\n\n"; print "Your discuss message added, <br>please click"; print " <a href=\"$themebas\">View</a><br>\n\n"; print " </h1></center></body></html>\n\n"; } #### sub error{ print "Misstake is: $_[0] <br>\n"; print "<font color=red> by: $! </font>\n"; exit; } ЧТО то -то вроде этого но на Get и POST свои участки т.е проги vivodget и resultpost. ПОПЫТКА ОТВЕТИТЬ НА ПЕРВЫЙ ВОПРОС ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.07.2004, 16:31 |
|
||
|
|
start [/forum/topic.php?fid=23&gotonew=1&tid=1479553]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
137ms |
get topic data: |
12ms |
get first new msg: |
8ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 312ms |
| total: | 554ms |
| 0 / 0 |
