Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
08.08.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20558.zip — 5.23 kb
  • sozdanie-krugovoj-diagrammy-s-pomoshhju-modulja-gd-graph_20558_1.rtf — 18.17 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Создание круговой диаграммы с помощью модуля GD::Graph
Сейчас, чтобы удовлетворить нужды прихотливых пользователей, практически каждый Интернет-ресурс строится на динамическом отображении представленной информации. Сегодня мы рассмотрим лишь одну из таких возможностей, а именно – реализацию динамических круговых диаграмм.
Язык программирования Perl предлагает разработчикам обширный инструментарий для создания, обработки, изменения и управления содержимым веб-сайтов. С помощью Perl-модуля GD::Graph создание круговой диаграммы становится делом простым и доступным практически каждому.
К примеру, ваш начальник хочет получить сравнительный график,
отображающий динамику продаж в онлайне, в обычных магазинах и посредством дистрибьюторов. Сам график должен строиться на основе CSV-файла (Comma Separated Values),
который еженедельно экспортируется из Microsoft Excel и размещается в отдельной директории в локальной сети. Нам необходимо написать скрипт, автоматически генерирующий круговую диаграмму на основе имеющихся CSV-данных.
Листинг 1
1 use strict;
2 use GD::Graph::pie;
3 use ::CSV_XS;
4
5 my @data;
6
7 my $csv = new ::CSV_XS;
8 open(FILE,"v") || die "Cannot open v: $!\n";
9 while (my $line = )
10 $csv->parse($line);
11 my @col = $csv->fields;
12 push(@data,\@col);
13
14
15 my $graph = new GD::Graph::pie(300, 300);
16
17 $graph->set( 18 title => '
26
27 $graph->set_title_font("/usr/share/fonts/ttf/windows/f",18);
28 $graph->set_value_font("/usr/share/fonts/ttf/windows/f",12);
29 $graph->set_label_font("/usr/share/fonts/ttf/windows/f",14);
30



Ваше мнение



CAPTCHA