Просмотр сообщений
1
Perl / переменные в шаблонах FastTemplate
« : 20 Апреля 2006, 13:12:10 »
ладно ладно, не причитай
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Perl / переменные в шаблонах FastTemplate
« : 20 Апреля 2006, 12:21:05 »
no_script помог, спасибо большое. 
Не люблю я перлдок
Не люблю я перлдок
3
Perl / переменные в шаблонах FastTemplate
« : 20 Апреля 2006, 11:51:19 »
хм, не сработало, я и без стрикта пытался сделать конечно,
arto, загляни пожалуйста в документацию, а?
arto, загляни пожалуйста в документацию, а?
4
Perl / переменные в шаблонах FastTemplate
« : 20 Апреля 2006, 11:38:49 »Цитировать
до чего люди не дойдут, чтобы не читать документацию...
до чего?
AnnA спасибо, поставлю strict
6
Perl / переменные в шаблонах FastTemplate
« : 19 Апреля 2006, 18:27:44 »
CGI::FastTemplate
там вылазит
там вылазит
7
Perl / переменные в шаблонах FastTemplate
« : 19 Апреля 2006, 17:42:08 »
Добрый день, скажите пожалуйста, можно ли сделать так, чтобы при выводе в браузер, пустая переменная не отображалась на странице.
т.е. чтобы на странице где не все переменные заполнились не было штук типа $VAR1, $VAR2
т.е. чтобы на странице где не все переменные заполнились не было штук типа $VAR1, $VAR2
8
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 13:38:46 »Цитировать
open(FILE, \'\') or die \'\';
binmode(FILE);
while() {
$data .= $_;
}
close(FILE);
cgi как работает с этим если файл на локальном компьютере?
9
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 13:35:36 »
классная тема. счас попробую. спасибо
10
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 13:21:08 »
паскопал статью
http://www.webscript.ru/stories/01/03/12/7989628
http://www.webscript.ru/stories/01/03/12/7989628
11
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 13:08:13 »
if (-e @file[$j])
вот эта проверка не проходит. данная переменная содержит имя файла без пути к нему. Мжет в этом дело?
книжка то плюшевая у меня похоже.
for (my $i=0; $i<30; $i++)
{
my $myfile="url$i";
@file[$i]=param($myfile); # получаем имена файлов из параметров
@info[$i]=uploadInfo($myfile); # это для проверки миме
}
вот эта проверка не проходит. данная переменная содержит имя файла без пути к нему. Мжет в этом дело?
книжка то плюшевая у меня похоже.
for (my $i=0; $i<30; $i++)
{
my $myfile="url$i";
@file[$i]=param($myfile); # получаем имена файлов из параметров
@info[$i]=uploadInfo($myfile); # это для проверки миме
}
12
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 13:02:27 »Цитировать
А массив вы тоже игнорируя первый элемент заполнили?
ну да
13
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 12:52:17 »
у меня вроде все счетчики с 1 просто
искал ведь, еще поищу
спасибо за заботу, NeoNox
искал ведь,
еще поищуспасибо за заботу, NeoNox
14
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 12:22:20 »
я прочитал перлдок, спасибо
но пример кода то хрестоматийный, должно все работать.
неправильна вот эта строка получается?
($chunk=read($file, $data, 1024))
а как правильно, если именно так написано в книге?
но пример кода то хрестоматийный, должно все работать.
неправильна вот эта строка получается?
($chunk=read($file, $data, 1024))
а как правильно, если именно так написано в книге?
15
Perl / Загрузка файлов на сервер
« : 27 Марта 2006, 11:38:58 »
Задача в загрузке 30 или меньше файлов на сервер по хттп,
почему то, файлы создаются на сервере, но не записываются,
где то в приведенном куске ошибка, но я не знаю что копать.
помогите ожалуйста.
for ($j=1; $j<31; $j++) # счетчик
{
if (@file[$j]) # проверка существования файла
{
$file="@file[$j]";
open(UPLOAD, ">/home/apache/hosts/рщые/virtual/temp/$year/$mon/$mday/$file") || Error();
my ($data, $length, $chunk);
print $file;
while ($chunk=read($file, $data, 1024))
{
print "adssdadsadsasd";
print $data;
print UPLOAD $data;
$length+=$chunk;
if ($length>$limit) {
print"превышен лимит загрузки";
exit;}
close(UPLOAD);
}
почему то, файлы создаются на сервере, но не записываются,
где то в приведенном куске ошибка, но я не знаю что копать.
помогите ожалуйста.
for ($j=1; $j<31; $j++) # счетчик
{
if (@file[$j]) # проверка существования файла
{
$file="@file[$j]";
open(UPLOAD, ">/home/apache/hosts/рщые/virtual/temp/$year/$mon/$mday/$file") || Error();
my ($data, $length, $chunk);
print $file;
while ($chunk=read($file, $data, 1024))
{
print "adssdadsadsasd";
print $data;
print UPLOAD $data;
$length+=$chunk;
if ($length>$limit) {
print"превышен лимит загрузки";
exit;}
close(UPLOAD);
}