VPF::Скрытые поля и CGI - Форум программистов

dima111

Дата 1.5.2007, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

В-общем нужно сделать такую вещь:

2 фрейма. В левом - поле ввода и кнопка. В правом - будет появлятся то, что было в поле ввода после нажатия кнопки. Но это должно срабатывать так: после второго нажатия текст справа не удаляется, а смещается вниз + сверху появляется новый.

мой недоделанный вариант с использованием скрытого поля:

Код


#!/usr/bin/perl

if($ENV{'REQUEST_METHOD'} eq 'GET'){#Анализируем метод,GET или POST
   $query=$ENV{'QUERY_STRING'};
   }
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
   sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
   }

@formfields=split(/&/,$query);

foreach(@formfields){
   if(/^list=(.*)/){$list=urldecode($1);}
   if(/^list2=(.*)/){$list2=urldecode($1);};
   };

sub urldecode{    
local($val)=@_;  
$val=~s/\+/ /g;
$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val;
};


print "Content-Type: text/html\n\n"; 

if(!exists $ENV{PATH_INFO}) 
    {
    print qq
        {
        <HTML> <FRAMESET FRAMEBORDER="Yes" FRAMESPACING="2" BORDER="1" COLS="30%,*">
        <FRAME SRC="$ENV{SCRIPT_NAME}/query" name="query">
        <FRAME SRC="$ENV{SCRIPT_NAME}/response" name="response">
        </FRAMESET> </HTML> 
         }; 
    exit 0; 
    }

if($ENV{PATH_INFO} eq "/query") 
    {
    print qq
        {
        <HTML> <BODY bgcolor=#ffffff> <CENTER><H1><FONT color=WHITE>Введите текст:</H1></FONT>
        <FORM ACTION=$ENV{SCRIPT_NAME}/response method=post TARGET="response">
    <BR>

    <input type="text" name="list" size="30" value="text">
    <input type="hidden" name="list2" value="что сюда написать?????????">
        <input type="submit" value="Отправить">
        </FORM> 
        <BR>
        
        </BODY></HTML>
        };
     }

if($ENV{PATH_INFO} eq "/response") 
    {
            print qq {
             <HTML> <BODY> <H1> $list <br> $list2</H1> </BODY> </HTML>}
            }

это вообще должно работать? подскажите плиз!!! если не трудно выложите рабочий вариант (доделанный мой)

Это сообщение отредактировал(а) dima111 - 2.5.2007, 00:26

dima111

Дата 2.5.2007, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

правильный вариант:

Код


#!/usr/bin/perl
 if($ENV{'REQUEST_METHOD'} eq 'GET'){
   $query=$ENV{'QUERY_STRING'};
   }
 elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
   sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
   }

@formfields=split(/&/,$query);

 foreach(@formfields){
   if(/^list=(.*)/){$list=urldecode($1);};
   if(/^list2=(.*)/){$list2=urldecode($1);};
   };

sub urldecode{
 local($val)=@_;
 $val=~s/\+/ /g;
 $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
 return $val;
 };


print "Content-Type: text/html\n\n";

if(!exists $ENV{PATH_INFO})
    {
    print qq
       {
        <HTML> <FRAMESET FRAMEBORDER="Yes" FRAMESPACING="2" BORDER="1" COLS="30%,*">
        <FRAME SRC="$ENV{SCRIPT_NAME}/query?$ENV{QUERY_STRING}" name="query">
        <FRAME SRC="$ENV{SCRIPT_NAME}/response?$ENV{QUERY_STRING}" name="response">
        </FRAMESET> </HTML> 
         }; 
 exit 0;
}

if($ENV{PATH_INFO} eq "/query") 
    {
    print qq
        {
        <HTML> <BODY bgcolor=#ffffff> <CENTER><H1><FONT color=WHITE>Введите текст:</H1></FONT>
        <FORM ACTION=$ENV{SCRIPT_NAME} method=get target="_parent">
    <BR>
    <input type="text" name="list" size="30" value="text">
    <input type="text" name="list2" value="$list2 $list">
    <input type="submit" value="Отправить">
        </FORM>
        <BR>

        </BODY></HTML>
        };
     };

if($ENV{PATH_INFO} eq "/response")
    {
            print qq {
         <HTML> <BODY> <H1> $list <br> $list2</H1> </BODY> </HTML>}
            }

Надеюсь кому-нибудь пригодится.....

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »