Tag: perl

使用Perl在现有的Excel表格中绘制graphics: 我有一个现有的Excel（.xls）文件与数据。我需要从文件中读取数据，并根据同一张表上的相同数据绘制图表/图表。 Spreadsheet :: ParseExcel模块中是否有任何方法绘制graphics。

不能调用方法“add_worksheet”未定义的值？: 这里是我的cgi代码，perl.xls文件作为脚本存在于保存文件夹中。 #!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI; use DBI; use Spreadsheet::WriteExcel; use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); my $cgi = CGI->new; my $workbook = Spreadsheet::WriteExcel->new('perl.xls'); my $worksheet = $workbook->add_worksheet(); $worksheet->write(0,0,'value'); 而当我运行脚本我得到这个错误 Software error: Can't call method "add_worksheet" on an undefined value at /var/www/cgi-bin/excel.cgi line 17. For help, please send mail to the webmaster (root@localhost), […]

在Perl中编写Excel电子表格: 我正在从Perl脚本编写一个Excel电子表格，并且如果没有数据存在，需要将特定行的行高设置为“0”。这是我迄今为止所写的一些内容。它基于文本文件编写数据，但如果该项目不在文本文件中，则会留下一个我想要消除的空行。任何帮助表示赞赏。 my $file = 'forecast.txt'; open my $fh, '<', $file or die "Could not open '$file' $!\n"; while (my $line =<$fh>) { if (index($line, 'M1501235') != -1) { $worksheet->write(11,0, "M1501", $print2); $worksheet->write(11,1, "FUND TO FUND TRANSFERS", $print); $worksheet->write(11,2, "DES", $print); $worksheet->write(11,3, "0001", $print); $worksheet->write(11,4, "", $print); $worksheet->write(11,5, "NA", $print); $worksheet->write(11,6, "SEE RH", […]

Perl Excel :: Writer，如何格式化date类别的单元格: 我需要制作date格式的单元格（意大利语是数据类别）。我四处搜寻，但每个人都说： my $date_format_1 = $workbook->add_format( num_format => 'dd/mm/yy' ); $worksheet->write_date_time( 'A1', '2013-10-27T', $date_format_1 ); 但这不是真的：这个使单元格为“格式：个性化”…我需要“格式：date”。提前致谢

隐藏多个Excel工作表: 我使用Perl模块Excel :: Writer :: XLSX在Linux中编写Excel工作簿。我写了三个单独的工作表，并试图隐藏前两个，只有第三个工作表是可见的。 Perl代码： $worksheet3->activate(); $worksheet1->hide(); $worksheet2->hide(); 相反，使用下面的代码，只有第一个工作表选项卡被隐藏。我究竟做错了什么？

如何删除或replacestring中的括号？: my $book = Spreadsheet::Read->new(); my $book = ReadData ('D:\Profiles\jmahroof\Desktop\Scheduled_Build_Overview.xls'); my $cell = "CD7"; my $n = "1"; my $send = $book->[$n]{$cell}; 上面的代码从电子表格获取数据，然后打印我知道文本的单元格的内容。它具有以下格式的文本：text（text）我需要用空的空间replace开放的支架，我需要删除紧密的支架。我已经尝试了下面的代码来替代一个空的空间的开放括号，但它似乎并没有工作。 $send =~ s/(/ /g; print $send;

使用perl将多种格式应用于excel中的相同数据: 我有一种情况，我正在使用Excel :: Writer :: XLSX和Perl将数据写入Excel文件。我有以逗号分隔的string存储在数组中的logging。例如： $array[0] = "col1_value,col2_value,col3_value,col4_value" # row 1 $array[1] = "col1_value,col2_value,col3_value,col4_value" # row 2 . . $array[$n] # row n 现在我必须显示这些数据与Excel中心alignment，边界和bg_color。所以我做了如下： my $general_format = $workbook->add_format( border => 1, bg_color => 31, align => 'center' ); 然后我把一个循环放在数组上，在分割之后，我把每个logging的所有列放在excel中，如下所示： Loop on array of records{ $worksheet->write_row( $i+2, 0, $recordRef, $general_format ); } 但我面临的问题是每个logging的col1＆col2有数字，而col3＆col4是百分比/date等。我需要用逗号分隔的格式格式化数字。 […]

如何设置Excel公式与Win32 :: OLE？: 有人可以告诉我，为什么…->{FormulaR1C1} = '=SUMME( "R[-3]C:R[-1]C" )'; 不起作用。在结果应该出现的单元格中，我得到“#Wert！” （也许“价值”英文）。随着WENN（IF）公式，我得到了我所期望的。 #!C:\Perl\bin\perl.exe use warnings; use strict; use Win32::OLE qw; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; my $xl = Win32::OLE::Const -> Load( 'Microsoft Excel' ); my $excelfile = 'win32_ole_excel.xls'; my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' ) or die $!; […]

.xlsx到Perl中的xml转换: 我正在尝试将.xlsx文件转换为.xml文件。 .xlsx文件的第一行（标题）将成为xml文件的标签。我写了下面的代码工作正常， open(XML, ">temp.csv") or die "not able to open $!"; use Spreadsheet::XLSX; my $excel = Spreadsheet::XLSX -> new ('test.xlsx'); foreach my $sheet (@{$excel -> {Worksheet}}) { $sheet -> {MaxRow} ||= $sheet -> {MinRow}; foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) { $sheet -> {MaxCol} ||= $sheet -> {MinCol}; foreach my […]

perl excel到pdf: 我正在使用Perl模板来尝试为客户创build发票有点自动化。我唯一的问题是，我真的很想能够把这个excel文件转换为PDF格式，但我似乎无法find任何types的perl模块。有没有人听说过这样的事情？我知道它可以做某事，因为单词和开放式办公室设法做到这一点！