Просмотр сообщений

1

Perl / существует ли файл?

« : 20 Октября 2001, 03:21:20 »

чтобы узнать есть ли файл по протоколу http хватит такого кода:

use LWP::Simple;
if(head(http://www.gde-to.ru/pro/res.htm)){
print "файл существует";}

это я понимаю, НО как проверить существиет ли вот такой файл: http://ftp://ftp.qqqq.ru/pub/progs/reft.exe
(имена файлов, конечно, вымышлены)

зарание спасибо

2

Perl / require ???

« : 19 Октября 2001, 13:33:14 »

Благодарю всех за помощь -- теперь все работает.

Дело было в правах доступа на было 777 на папки вместо 766

3

Perl / require ???

« : 18 Октября 2001, 14:42:34 »

Green Kakadu, Вы совершенно правы -- я пытаюсь поставить YaBB.

Пути все перепроверил -- все в порядке, регистр то же.

Однако, ошибка не исчезает.
Вот, сам скрипт расположен в /cgi-bin/YaBB
требуемый файл -- в /cgi-bin/YaBB/Sources

Я даже добавлял в @INC Записи путем: push(@INC, \'Sources\'); и т.п. и все равно ничего хорошего.

Я в отчаянии -- неужели у меня не будет своего хорошего форума ;(

4

Perl / require ???

« : 18 Октября 2001, 01:25:54 »

Подскажите, плиз, почему так.

В коде есть строка require "./Sources/Subs.pl";
и в ходе выполнения программы показывается вот какое сообщение Can\'t locate ./Sources/Subs.pl in @INC

Вопрос такой: почему Perl ищет в @INC, а не в поддирекориях?

спасибо.

5

Perl / bug GD (или ничего не понимаю)

« : 28 Сентября 2001, 00:12:20 »

так тоже не работает.
дело в том, что на серваке под линуксом, такое писать не надо. Просто запускаешь скрипт и получаешь в браузере картинку. А под виндами получает ошибку500. А что это будет картинка браузер поймет по заголовку.
print "Content-type: image/png\\n\\n";

Может есть еще какая-нибудь причина

6

Perl / bug GD (или ничего не понимаю)

« : 26 Сентября 2001, 01:16:10 »

Помогите, пожалуйста !

Проблема следующая.
Имеется тривиальный скрипт

#!/usr/local/bin/perl

print "Content-type: image/png\\n\\n";

use GD;

$im = new GD::Image(100,100);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
$im->transparent($white);
$im->interlaced(\'true\');
$im->rectangle(0,0,99,99,$black);
$im->arc(50,50,95,75,0,360,$blue);
$im->fill(50,50,$red);
binmode STDOUT;
print $im->png;

Он работает на серваке моего хост-прова (Linux+Apache+Perl)
НО не работает на моем локальном (WIN+Apache+Perl), выдает ошибку 500.
И в тоже время, когда я запускаю этот скрипт в ДОС-режиме (через команд. строку), видно, что получается картинка (то есть видно разные символы, примерно такие же как если открыть картинку на просморт [F3]).

Помогите разобраться

7

Perl / perl+графика

« : 19 Сентября 2001, 13:36:48 »

Модуль ставил вроде по правилам:

PPM install GD.ppd

И теперь перл даже сообщает мне об этом модуле, мол такой установлен.
В ответ на
PPM query
пишет в частности
GD [1.27.2] Grafic......

Но скрипты, использующие этот модуль выдают ошибку, как я написАл выше.
Не пойму в чем дело

?

8

Perl / perl+графика

« : 19 Сентября 2001, 00:57:38 »

Модуль я установил, НО теперь при выполнеии простейшего кода:

use GD;
$im = new GD::Image(100,100);

вот, что он мне пишет:

GD object version 1.27 does not match $GD::VERSION 1.33 at C:/Perl/lib/DynaLoader.pm line 219.

объясните пожалуйста в чем тут дело

Как я понимаю, не та версия.
Но от куда перл знает какая версия должна быть и (самое важное для меня) где бы взять нужную версию для виднов.

Очень надеюсь на вашу квалифицированую помощь.
Спасибо.

9