|
|
|
Тема
|
 Tablici s referencii v CGI.pm
|
|
| Автор |
Teшkapcko_koпeлe (grrrr) |
| Публикувано | 01.10.03 13:36 |
|
|
Kak mogat da se zapylnqt kletkite v edna tablica napravena sas modula CGI
primer:
print table({-border=>undef,-width=>'100%'},
caption(strong('When Should You Eat Your Vegetables?')),
Tr({-align=>'left',-valign=>'top'},
[
td([ 'no' ,'yes']),
td(['yes','yes'])
]
)
);
Taka e pokazano v dokumentaciqta za modula.A kak moga da zapylnq poletata sys celi
strukturi naprimer tova da go vkaram v nqkoq kletka:
print start_form(-method=>$method,
-action=>$action,
-enctype=>$enctype),
p("Login: ", textfield("login","anonymous", 10)),
p("Pass: ", password_field(-name=>'password',
-value=>'none',
-size=>10,
-maxlength=>10)),
submit("login"), reset("new"),
end_form;
probvah sys referencii,no neshto i sas tqh ne uspqh.Ako ne mi dade "Internal
server error" to v kletkata se pokazva neshto takova: SCALAR(0x819dcbc)
Nqkoi moje li da dade malko help za tova?
| |
|
Тема
|
 Re: Tablici s referencii v CGI.pm
[re: Teшkapcko_koпeлe]
|
|
| Автор | Pavel (Нерегистриран) |
| Публикувано | 01.10.03 18:59 |
|
|
Za direktniq ti vupros nqmam otgovor. Taq chast ot CGI.pm nikoga ne sum q polzval.
Po skoro iskam da te pitam zashto si izbral da printish HTML po takuv nachin. Ne znam koi go e izmislil wuobshte tova no spored men e mnogo nepraktichno. Kak naprimer promenqsh dizajna ako ti se naloji? Dori za naj malkoto neshto trqba da pishesh nanovo i da testvash.
Preporuchvam ti da poglednesh nqkoq templatna sistema. Ako tolkova niqkoq ne ti haresa moga dori da ti pratq neshto koeto bqh pisal predi dosta godini - edno .pm za elementarna templatna sistema.
| |
|
|
|
Ne dyrja da e to4no s tozi modul, prosto reshih s nego da obrabotvam vhoda ot edna forma,koqto iska i autorizaciq.Ako imash neshto po lesno i dobro shte sym blagodaren da mi go prepory4ash
| |
|
Тема
|
Re: Tablici s referencii v CGI.pm
[re: Teшkapcko_koпeлe]
|
|
| Автор | sas (Нерегистриран) |
| Публикувано | 06.10.03 20:19 |
|
|
use CGI::Pretty qw(:all *table)
print &login_form();
sub login_form {
return startform(-method =>'POST'),
center,
start_table({-celpadding => '0' ,-class=>'default', -cellspacing =>'0' , -border => '1'}),
Tr,td,
start_table({-celpadding => '0' ,-class=>'default', -cellspacing =>'0' , -border => '0'}),
Tr,td,p({class=>"title"},'<b>Username</b>'),td,textfield(-name=>'user'),br,
Tr,td,p({class=>"title"},'<b>Password</b> '),td,input({-name=>'password', -type=>'password'}),br,
Tr({-valign =>"middle",-align =>"middle"}),td,td,submit(-class=>'input',-value => 'Submit'),'','',
reset(-class=>'input',-value => 'Reset'),end_table,end_table,
endform;
}
| |
|
| 
|
|
