激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

香港云服务器
服務器之家 - 腳本之家 - perl - 用Perl操作Excel文檔的實例代碼

用Perl操作Excel文檔的實例代碼

2020-06-04 10:22Perl教程網 perl

用Perl操作Excel文檔的例子,有需要的朋友可以參考下

在Linux或者Unix上操作(生成)Excel,CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel這兩個模塊。
下面就來看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

首先,要在服務器上安裝相應的模塊。
安裝 Excel 模塊的 PPM 命令

復制代碼 代碼如下:


ppm> install OLE::Storage_Lite
ppm> install Spreadsheet::ParseExcel
ppm> install Spreadsheet::WriteExcel


來看兩個例子吧。
例1:讀取excel文件

復制代碼 代碼如下:


#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;

my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->Parse('Book1.xls');

for my $worksheet ( $workbook->worksheets() ) {

my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();

for my $row ( $row_min .. $row_max ) {
for my $col ( $col_min .. $col_max ) {

my $cell = $worksheet->get_cell( $row, $col );
next unless $cell;

print "Row, Col = ($row, $col)\n";
print "Value = ", $cell->value(), "\n";
print "Unformatted = ", $cell->unformatted(), "\n";
print "\n";
}
}
}


例2:生成EXCEL文件

復制代碼 代碼如下:


#!/usr/bin/perl -w

use Spreadsheet::WriteExcel;

# 創建一個新的EXCEL文件
my $workbook = Spreadsheet::WriteExcel->new('test.xls');

# 添加一個工作表
$worksheet = $workbook->add_worksheet();

# 新建一個樣式
$format = $workbook->add_format(); # Add a format
$format->set_bold();#設置字體為粗體
$format->set_color('red');#設置單元格前景色為紅色
$format->set_align('center');#設置單元格居中

#使用行號及列號,向單元格寫入一個格式化和末格式化的字符串
$col = $row = 0;
$worksheet->write($row, $col, 'Hi Excel!', $format);
$worksheet->write(1, $col, 'Hi Excel!');

# 使用單元格名稱(例:A1),向單元格中寫一個數字。
$worksheet->write('A3', 1.2345);
$worksheet->write('A4', '=SIN(PI()/4)');
exit;

延伸 · 閱讀

精彩推薦
  • perlperl常見問題集合之二

    perl常見問題集合之二

    哪些平臺上有 Perl?要到哪里去找? Perl的標準發行版(由 perl 發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔...

    腳本之家2102020-05-29
  • perlperl pop push shift unshift實例介紹

    perl pop push shift unshift實例介紹

    perl的pop跟push操作數組的最右邊,shift跟unshift操作數組的最左邊 ...

    腳本之家4612020-06-10
  • perlPerl的經典用法分享

    Perl的經典用法分享

    Perl的經典用法分享,學習perl的朋友可以參考下 ...

    腳本之家6562020-06-06
  • perlPerl使用nginx FastCGI環境做WEB開發實例

    Perl使用nginx FastCGI環境做WEB開發實例

    這篇文章主要介紹了Perl使用nginx FastCGI環境做WEB開發實例,實現了路由系統和模板系統,需要的朋友可以參考下...

    Perl教程網2412020-06-18
  • perlPerl List::Util模塊使用實例

    Perl List::Util模塊使用實例

    這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和 、求一組數字的最大值與最小...

    腳本之家4712020-06-22
  • perlperl命令行參數內建數組@ARGV淺析

    perl命令行參數內建數組@ARGV淺析

    這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下 ...

    perl教程網6162020-06-18
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一個pragma(預編譯指示符),專門用來預定義全局變量,這些預定義后的全局變量在qw()列表中,在整個引用perl文件中皆可使用,即便使...

    perl教程網6812020-06-16
  • perlPerl從文件中讀取字符串的兩種實現方法

    Perl從文件中讀取字符串的兩種實現方法

    有時候我們需要從文件中讀取字符串,這里簡單介紹下, 需要的朋友可以參考下 ...

    腳本之家6252020-06-08
1176
主站蜘蛛池模板: 国产高潮失禁喷水爽到抽搐视频 | 毛片大全免费看 | 欧美成人精品一区二区三区 | 国产精品久久久久久久久久久久久久久 | 毛片免费在线视频 | 国产一区免费视频 | 久久99精品国产99久久6男男 | 一级毛片免费大片 | 欧美国产日韩在线观看成人 | 国产免费传媒av片在线 | 欧美精品电影一区 | 国产自在自线午夜精品视频在 | 欧美一级美国一级 | 羞羞的视频在线免费观看 | 五月天影院,久久综合, | 久久久久久久久久久久网站 | 欧美一级在线看 | 亚洲无av| 欧美日韩亚洲在线 | 成人短视频在线观看免费 | 在线看国产视频 | 成人不卡 | 黄色影院在线观看视频 | 暴力肉体进入hdxxxx古装 | 91精品久久久久久久 | 色淫视频| videos真实高潮xxxx | 国产精品久久久久久影院8一贰佰 | 久久草草亚洲蜜桃臀 | www.91sese| 亚洲精品一区二区三区免 | 国产69久久精品成人看 | 免费a级观看 | 黄色av网站免费看 | 69性欧美高清影院 | 免费观看视频91 | 久久免费视频一区二区三区 | 一本视频在线观看 | 粉嫩av一区二区三区四区在线观看 | 成人在线视频在线观看 | 久成人 |