Реферат: Создание круговой диаграммы с помощью модуля GD::Graph

Сейчас, чтобы удовлетворить нужды прихотливых пользователей, практически каждый Интернет-ресурс строится на динамическом отображении представленной информации. Сегодня мы рассмотрим лишь одну из таких возможностей, а именно – реализацию динамических круговых диаграмм.

Язык программирования Perl предлагает разработчикам обширный инструментарий для создания, обработки, изменения и управления содержимым веб-сайтов. С помощью Perl-модуля GD::Graph создание круговой диаграммы становится делом простым и доступным практически каждому.

К примеру, ваш начальник хочет получить сравнительный график, отображающий динамику продаж в онлайне, в обычных магазинах и посредством дистрибьюторов. Сам график должен строиться на основе CSV-файла (Comma Separated Values), который еженедельно экспортируется из Microsoft Excel и размещается в отдельной директории в локальной сети. Нам необходимо написать скрипт, автоматически генерирующий круговую диаграмму на основе имеющихся CSV-данных.

Листинг 1

1 use strict;

2 use GD::Graph::pie;

3 use Text::CSV_XS;

4

5 my @data;

6

7 my $csv = new Text::CSV_XS;

8 open(FILE,"excel.csv") || die "Cannot open excel.csv: $!\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 => 'Заголовок круговой диаграммы',

19 label => 'Пояснительная подпись',

20 axislabelclr => 'black',

21 '3d' => 1,

22 start_angle => 90,

23 suppress_angle => 5,

24 )

25 or warn $graph->error;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--