Referat.me

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

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 15.04 Kb

Скачать файл: referat.me-138938.docx

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

Создание круговой диаграммы с помощью модуля 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;

26

27 $graph->set_title_font("/usr/share/fonts/ttf/windows/times.ttf",18);

28 $graph->set_value_font("/usr/share/fonts/ttf/windows/times.ttf",12);

29 $graph->set_label_font("/usr/share/fonts/ttf/windows/times.ttf",14);

30

31 $graph->plot(@data) or die $graph->error;

32

33 open(GRAPH,">graph.jpg") || die "Cannot open graph.jpg: $!n";

34 print GRAPH $graph->gd->jpeg(100);

В строке 3 приведенного листинга мы загружаем модуль Text::CSV_XS, скачать бесплатную версию которого можно на CPAN (Comprehensive Perl Archive Network). В строке 7 создаем новый объект класса Text::CSV_XS, открываем CSV-файл в строке 8 и считываем данные из файла в массив @data (строки 9-13). Строка 10 вызывает метод parse(), который разбивает строки файла по колонкам. Сформированные колонки возвращаются с помощью метода fields() в строке 11 и добавляются в виде ряда в массив @data (строка 12). Другими словами, вместо формирования массива @data вручную, мы можем создать его из внешнего файла (в данном случае - CSV).

Далее (в строке 15) создаем объект диаграммы нужной разновидности (в данном случае - pie) с заданным размером изображения.

Третий параметр в строке 21 равен 1, что подразумевает создание трехмерной круговой диаграммы (значение "0" выводит двумерный график и используется по умолчанию). Далее необходимо определить начальную точку построения диаграммы, с которой скрипт будет начинать отсчет секторов графика. Значение задается в градусах и по умолчанию равно "0" (мы установили значение "90", строка 22). Также мы можем установить нужное значение параметра suppress_angle, который определяет минимальный размер сектора круговой диаграммы в градусах.

При желании можно использовать шрифты TrueType вместо встроенных. В строках 27-29 указываются названия гарнитур, использующихся, соответственно, для заголовка диаграммы, наименования секторов и пояснительных подписей к графику. Цифры, идущие после указания гарнитур, означают установленный размер шрифта.

В строке 33 выводится изображение круговой диаграммы в файл в формате JPEG (или PNG). В следующей строке параметром метода jpeg() можно задать степень оптимизации (качества) изображения (в процентах).

В данном случае изображение диаграммы выводится в файл в графическом формате, однако можно его вывести в стандартный поток вывода STDOUT. Это может потребоваться для создания "налету" диаграмм отображения динамически изменяющихся данных на веб-странице. Для этого придется несколько видоизменить вышеприведенный код программы.

Листинг 1

32 print "Content-type: image/jpegnn";

33 binmode(STDOUT);

34 print $graph->gd->jpeg(100);

Чтобы вывести круговую диаграмму на веб-странице, в нужном месте документа следует вставить следующую HTML-конструкцию:

<img src='/cgi-bin/graph.cgi' width=300 height=300 border=0 alt=Диаграмма>

Похожие работы

  • Графические средства языка Паскаль

    Графический экран состоит из маленьких точек - пикселов, каждый из которых закрашен в какой-либо цвет. Для работы в графическом режиме существует обширная библиотека процедур и функций, находящихся в модуле Graph.

  • Вывод на экран круговой диаграммы

    Введение Человеческая природа такова , что накопление знаний о мире, решение задач, возникающих перед учеными и специалистами , возможно двумя путями: алгебраическим и геометрическим. Первый путь сейчас стал почти единственным из-за широкого внедрения в практику алгебраических моделей , которые опираются на идею символьных преобразований и обладают большой степенью общности.

  • Створення програми &quot;Залізничний вузол&quot;

    Використання мови програмування Turbo Pascal, алгоритмів та графічних примітивів модуля Graph. Розробка та реалізація програми для сортування вагонів з довільного порядку в порядок через один. Присвоєння початкових значень та сортувальний алгоритм.

  • Работа с таблицами и диаграммами в Microsoft Excel

    Алгоритм построения столбиковой, круговой диаграмм. Порядок заполнения расчетной таблицы с заполнением данных в графах, перенос данных в расчетную таблицу. Применение опции "Автозаполнение" при расчетах в таблице. Примеры расчета итоговых данных.

  • Построение диаграмм средствами WORD и EXCEL

    Разновидности диаграмм. Добавление диаграммы к документу Word. Создание связанного объекта на основе существующего листа или диаграммы Microsoft Excel. Добавление данных к диаграмме. Форматирование диаграмм.

  • Структура и элементы диаграмм в Excel

    Взаимосвязь между данными таблицы с помощью диаграмм в MS Excel. Представление данных на диаграмме и ее построение. Пошаговое создание диаграммы из готовых данных, настройка параметров. Область построения диаграммы и ее координатное пространство.

  • Использование компьютерных технологий в процессе оценки рынка недвижимости

    Сущность MS Access - одной из наиболее известных систем управления базами данных, где информация хранится в виде таблиц. Создание реляционной базы данных средствами Microsoft Access, содержащей сведения о предлагаемых квартирах на рынке недвижимости.

  • Создание графических объектов с помощью псевдографики

    Основы работы на языке высокого уровня Turbo Pascal. Основное оборудование и программное обеспечение. Операторы, необходимы для работы в графической среде Turbo Pascal. Запуск графического режима. Текст программы в графической среде Turbo Pascal.

  • Знакомство с фрактальной графикой

    Основы создания фрактальных композиций при помощи среды программирования Паскаль. Сущность и основа фрактальной графики. Графические возможности и операторы для рисования геометрических фигур в среде Паскаль. Примеры обозначения цветов на языке Паскаль.

  • Графика Турбо Паскаля

    Использование графических возможностей Турбо Паскаля, подключение графического модуля Graph. Графические функции и процедуры. Общая структура графической программы. Построение фигур, определение цветов и стилей, работа с текстом, сообщения об ошибках.