често то я пишу 1,2 скрипт на перле
не могу понять, использую одновреммено post + get
не вижу get переменных, это специфика перл ??
[cgi-bin]# cat elem_demo.pl
#! /usr/bin/perl -w
#
#use strict;
use CGI qw/:standart escapeHTML escape/;
$q = new CGI;
print $q->header(),
$q->start_html( -title => 'демонстрация элементов формы',
-bgcolor => 'white');
my $sticky = defined ($q->param('sticky'));
## объвление полей
print $q->start_multipart_form( -action => $q->escape($q->url().'?get=true;')),
$q->hidden (-name => 'hidden field',
-value => 'hidden value',
-override => !$sticky),
$q->p ('Text field: '),
$q->textfield (-name => 'text field',
-override => !$sticky),
$q->p('Password field: '),
$q->password_field(-name => 'password field',
-override => !$sticky),
$q->p('text area: '),
$q->textarea (-name => 'text area',
-rows => 3,
-cols => 60,
-wrap => "virtual",
-override => !$sticky),
$q->p('file load field: '),
$q->filefield (-name => 'file field', -size => 60),
$q->p('self opened menu: '),
$q->popup_menu (-name => 'popup menu',
-values => ['a', 'b', 'c', 'd', 'e'],
-labels => {
'a' => 'element a',
'b' => 'element b',
'c' => 'element c',
'd' => 'element d',
'e' => 'element e'
},
-override => !$sticky),
$q->p('list prokrytki whith choise propoties ;( '),
$q->scrolling_list (-name => 'scrolling list single',
-values => ['a', 'b', 'c', 'd', 'e'],
-labels => {
'a' => 'Element A',
'b' => 'Element B',
'c' => 'Eleemnt C',
'd' => 'Element D',
'e' => 'Element E',
},
-override => !$sticky),
$q->br (), $q-> br(),
$q->checkbox( -name => 'sricky',
-label => 'Special field list'),
$q->br (), $q-> br(),
$q->submit (-name => 'choise',
-value => 'send'),
$q->reset('reset form'),
$q->end_form();
## конец формы
my @names = $q->param();
if( !@names )
{
$q->p('элеметны отцуцтвуют');
}
else
{
my @item = ();
foreach my $name (@names)
{
my @val = $q->param($name);
$val[0] = '[' . join(', ', @val) .']' if @val > 1;
push (@item, $q->escapeHTML ("$name: ($val[0])\n"));
}
print $q->ul ($q->li (\@item));
}
print $q->hr();
# создаю ссылку
print $q->a( {-href => $q->escape($q->url().'?get=true;')}, ' link ');
[cgi-bin]#
перехожу по <a href> - вижу метож get
перехожу по submit - не вижу get
(прошу заметить что форма создана с методом get
print $q->start_multipart_form( -action => $q->escape($q->url().'?get=true;'))
если возможность "увидеть" ?
помогите плз...