NetSago
Вход
Войти

Как присоединиться?
Меню
Главная
События
 Заметки
Статьи
Теги
Поиск
О Проекте
Ссылки
Наше
RSS События по RSS
RSS Заметки по RSS
netsago NetSago
Популярное
Руководство по получению прибыли от Свободных и Открытых Проектов by Джон Эндрюс

Восстановление удаленных текстовых файлов в ФС ext3 by scamelscrud

Заметки — Создание Excel файлов (xls) с помощью модуля Perl Spreadsheet::W...
Назад в Заметки

Создание Excel файлов (xls) с помощью модуля Perl Spreadsheet::W...
scofield



Теги: perl excel


Модуль Spreadsheet::WriteExcel используется для создания Excel-файлов на любой платформе, где может выполняться Perl. Есть возможности создания нескольких страниц в файле, форматирования текста, добавления ссылок, формул и изображений.

Полученные файлы совместимы с Excel 97, 2000, 2003 и 2007, а также в редакторах таблиц, совместимых с Linux/UNIX — Gnumeric, OpenOffice.org и т.п.

Модуль не предназначен для редактирования существующих файлов Excel.

Следующий пример наглядно демонстрирует возможности модуля:
#!/usr/bin/perl -w
 
 use strict;
 use Spreadsheet::WriteExcel;
 
 # Создаем новый файл simple.xls и добавляем в него страницу.
 my $workbook  = Spreadsheet::WriteExcel->new('simple.xls');
 my $worksheet = $workbook->add_worksheet();
 
 # Общий синтаксис: write($row, $column, $token).
 
 # Запишем текст.
 $worksheet->write(0, 0,  'Hi Excel!');
 
 # Числа...

        

$worksheet->write(2, 0, 3); $worksheet->write(3, 0, 3.00000); $worksheet->write(4, 0, 3.00001); $worksheet->write(5, 0, 3.14159); # И несколько формул $worksheet->write(7, 0, '=A3 + A6'); $worksheet->write(8, 0, '=IF(A5>3,"Yes", "No")'); # А также ссылку $worksheet->write(10, 0, '"http://www.perl.com/" __END__

В результате выполнения кода, получаем:


Стоит отметить, что, как уже отмечалось ранее на нашем сайте, для работы с русским текстом в кодировке UTF8, стоит использовать код вида:
$name = Encode::decode_utf8($name);


Документация:
Документация на CPAN
Примеры программ (со скриншотами).
Язык
English/Английский
Поиск
Расширенный Поиск
Ошиблись?
Если вы обнаружили ошибку на сайте, пожалуйста, сообщите нам о ней.
Посчитали
12 / 361
К нам сегодня зашли 125 роботов. Они хотят убить всех человеков.

Зарегистрированных пользователей: 0
Онлайн: 0

Время генерации: 0.010 с
NetSago.v2.β © [2006;∞)  Neunica