1
Perl / Как создавать в Пёрле файлы. Как записывать в них знаю, а как их создавать нет!
« : 25 Ноября 2003, 16:02:33 »
Вот код
$file_local=">book/b_".$row[0].".bin";
open(file_temp,$file_local);
binmode file_temp;
print file_temp $FILES{"f1"};
close(file_temp);
$dbh->finish;
&disconnect;
$form_mode="book_main";
&to_mode;
Вызываю как CGI-скрипт
$file_local=">book/b_".$row[0].".bin";
open(file_temp,$file_local);
binmode file_temp;
print file_temp $FILES{"f1"};
close(file_temp);
$dbh->finish;
&disconnect;
$form_mode="book_main";
&to_mode;
Вызываю как CGI-скрипт