LINUX.ORG.RU

Простой вопрос посылка данных из формы


0

0

#!/usr/bin/perl -w print "Content-Type: text/html\n\n"; open PTR,"cook.txt" or die "Sorry, I couldn't open file\n"; $dig=<PTR>; print "<form action=test.cgi method=GET target=main>"; print "<br>"; print "<TABLE border=0 bordercolor=#ff0000 width=100><CAPTION><b><em>SELECT GM:</em></b></CAPTION>"; print ("<tr><td><input type=radio name=gm value=12 checked>GM12</td></td>"); print ("<tr><td><input type=radio name=gm value=13>GM13</td></td>"); print ("<tr><td><input type=radio name=gm value=14>GM14</td></td>"); print ("<tr><td><input type=radio name=gm value=15>GM15</td></td>"); print ("<tr><td><input type=radio name=gm value=16>GM16</td></td>"); print ("<tr><td><input type=radio name=gm value=17>GM17</td></td>"); print ("<tr><td><input type=radio name=gm value=18>GM18</td></td>"); print "<br>"; print "<tr><td><input type=submit value=submit class=button></tr></td>"; print "</TABLE>\n"; print "</form>\n"; есть следующий скрипт мне необходимо взять в скрипте test.cgi значение из радио баттона, т. е. value 13 или 15 Какими способами это можно сделать

anonymous

В test.cgi:

use CGI; # подключаешь модуль CGI

$query = new CGI;

$gm = $query->param('gm');

В $gm получаешь значение radio.

VAR
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.