всем привет помогите разобраться :
есть форма checkbox которая читает содержимое одного каталога(files. sql):
-----------------------------------------------------------
<FORM action="c:\WebServers\localhost\cg-bin\loadata.pl" method="post">
opendir FDIR,"d:\Buckups" ;
while($file = readdir FDIR)
{
print qq{
<INPUT TYPE="checkbox" NAME="$file">$file <br>
};
}
closedir FDIR;
print qq{
<INPUT TYPE="submit" VALUE="update">
</form>
----------------------------------------------------------
теперь надо выбрать из checkbox один file.sql и при нажатии "submit" чтобы запускался скрипт "loadata.pl" который читает выбранный file iz checkbox :
------------------------
PHP:
foreach($_POST["files"] as $k=>$box)
{
if($box == "1")
{
$flist .= "$k ";
}
system("c:\WebServers\usr\local\mysql\bin\mysql.exe db1 < $flist");
}
------------------------------------------
как это сделать в Перле?

• PHP->PERL,Vladislav Lazarenko, 22:05 , 29-Сен-04

>всем привет помогите разобраться :
>есть форма checkbox которая читает содержимое одного каталога(files. sql):
>-----------------------------------------------------------
><FORM action="c:\WebServers\localhost\cg-bin\loadata.pl" method="post">
>opendir FDIR,"d:\Buckups" ;
>while($file = readdir FDIR)
>{
>print qq{
><INPUT TYPE="checkbox" NAME="$file">$file <br>
>};
>}
>closedir FDIR;
>print qq{
><INPUT TYPE="submit" VALUE="update">
></form>
>----------------------------------------------------------
>теперь надо выбрать из checkbox один file.sql и при нажатии "submit" чтобы
>запускался скрипт "loadata.pl" который читает выбранный file iz checkbox :
>------------------------
>PHP:
>foreach($_POST["files"] as $k=>$box)
>{
>if($box == "1")
>{
>$flist .= "$k ";
>}
>system("c:\WebServers\usr\local\mysql\bin\mysql.exe db1 < $flist");
>}
>------------------------------------------
>как это сделать в Перле?

system(php phpscript.php);