VPF::генерация GIF на лету - Форум программистов

bonioniz

Дата 21.11.2008, 07:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 12.11.2008

Репутация: нет
Всего: нет

есть скрипт для генерации графика. создавать файл получается, но никак не могу вставить картинку в HTML на лету..

скрипт (pict.pl):

Код


use GD::Graph::lines;
require 'save.pl';

print STDERR "Processing sample52\n";

@data = ( 
    [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ],
    [ (1, 10, 50, 70, 100, 0, 43, 80, 65, 43, 11, 50)],
    [ (4, 3, 5, 6, 3,  1.5, -1, -3, -4, -6, -7, -8)],
    [ (2, 2, 2, 5, 5,  4.5,1.5,  2,  3,  5,  4,  3)],
);

$my_graph = new GD::Graph::lines(800, 400);
$my_graph->set_text_clr("black");

$my_graph->set( 
    x_label => 'Time',
    y_label => '% of loads',
    title => 'Pools',
    y_max_value => 100,
    y_min_value => 0,
    y_tick_number => 20,    # количество засечек
    y_label_skip => 0,    # через сколько засечек ставить цифру
    box_axis => 0,
    line_width => 2,
    zero_axis_only => 1,
    x_label_position => 1,
    y_label_position => 1,

    x_label_skip => 3,
    x_tick_offset => 2,

    transparent => 0,
) or die $my_graph->error;

$my_graph->set_legend("Us", "Them", "Others");

print "Content-type: image/gif\n\n";
binmode(STDOUT);
print $my_graph->gd->gif();

#open(IMG, '>graph.gif') or die $!;
#binmode IMG;
#print IMG $my_graph->plot(\@data)->gif or die $my_graph->error;

и, собственно, HTML-файл:

Код


<html>
    <head>
        <title>Пример графика</title>
    </head>
    <body>
        Здесь будет график
        <p><img src="pict.pl" width="800px" height="400px" border="0" alt="График"></p>
    </body>
</html>

картинки в HTML нет... в чём здесь дело?

shamber

Дата 21.11.2008, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18

может быть путь к картинке не правильный

sir_nuf_nuf

Дата 21.11.2008, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 2
Всего: 31

bonioniz, попробуйте зайти в каталог с этим html и руками набрать URL "картики" - че будет ?

--------------------

ginnie

Дата 21.11.2008, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

bonioniz, предлагаю посмотреть логи http-сервера.

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Itsys

Дата 21.11.2008, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: нет
Всего: 34

Цитата(bonioniz @ 21.11.2008, 07:13

)

print $my_graph->gd->gif();
#open(IMG, '>graph.gif') or die $!;
#binmode IMG;
#print IMG $my_graph->plot(\@data)->gif or die $my_graph->error

Я, конечно не изучал тот модуль, который используется.... но помоему вывод в файл и в STDOUT немного отличается....

bonioniz

Дата 24.11.2008, 02:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 12.11.2008

Репутация: нет
Всего: нет

Всем спасибо за поддержку.. на самом деле, просто саму картинку не сгенерировал раскомментировал одну строчку и всё заработало...

Код


my $gif_img = $my_graph->plot(\@data) or die $my_graph->error; # вот эта строчка!!!

print "Content-type: image/gif\n\n";
print $my_graph->gd->gif();

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »