在 Perl 中制作 PDF 报告？

Question

所有用于 Perl 的 PDF 库似乎都有些野蛮——停留在 1980 年代。您必须指定 PostScript 点才能进行布局。 Java 有 JasperReports，Ruby 有 Prawn，Python 有 ReportLab。是否有一个未灭绝的库/模块可以让我在不到一周的编码时间内制作出漂亮的 PDF？ （我对 PDF::API2、PDF::Table 等感到有点沮丧）我不想生成 HTML 并对其进行转换。 Perl 是报告的理想选择，但主要报告文件格式不可用。人们使用哪些库？

我需要：

• 表格
• 图表（图片）
• 颜色
• 格式化（最好是自动的，不是逐个像素）
• 页眉/页脚

如果绝对需要的话，我对封装外部（非 Perl）开源工具持略微开放的态度。但对主要的 Java 服务器方法并不真正感兴趣。对于赏金，我想要一个纯粹的 Perl 方法，因为我想在一个只能添加模块的服务器上运行它。如果您有一个运行良好的公开示例，请指出它。

Answer 1

使用 Perl，生成 LaTeX，也许使用 Template::Toolkit，然后调用编译器，TeXLive 或 MikTeX 或您的操作系统所需的任何发行版。有一个名为 Template::LaTeX 的扩展，尽管您可能不需要它，它管理构建过程。

LaTeX 支持所有你需要的东西。表格有点有趣，但有一些现代表格包可以简化事情（我认为它称为ltxtable）。对于图表（您是指图表），有一种名为TikZ 的子语言非常强大。

这确实是一个非常简单的工作流程，特别是如果您希望每次结果都相似（即可以使用模板）。事实上，这与从模板创建 HTML 并将其提供给浏览器没有什么不同。

这样做的另一个好处是，如果您需要用另一种语言构建报告，模板（和准备好的源代码）将是可移植的。

Answer 2

如果 LaTeX 太大，也许可以使用Inline::Python 来包装 ReportLab，每个人似乎都非常喜欢（我没用过，对 Python 也不是很精通）。

编辑 3： 这是编辑 2，除了拆分为模块化样式，如果人们喜欢它（并且如果它是一种健壮的），也许我可以发布到 CPAN。现在将.pm 文件放在Inline/Python/ReportLab.pm 之类的文件结构中，位于@INC 的某个位置（脚本自己的基本目录通常在@INC 中）。

# Inline/Python/ReportLab.pm
package Inline::Python::ReportLab;

use strict;
use warnings;

use Carp;

use Inline::Python qw/py_eval/;
our @ISA = 'Inline::Python::Object';

sub import {
  py_eval('from reportlab.pdfgen.canvas import Canvas');
}

sub new {
  my $class = shift;
  my $filename = shift || croak "Must specify file name to contructor";
  return bless(Inline::Python::Object->new('__main__', 'Canvas', $filename), $class);
}

1;

那么脚本可能是这样的：

#!/usr/bin/env perl

use strict;
use warnings;

use Inline::Python::ReportLab;

my $c = Inline::Python::ReportLab->new('hello.pdf');
$c->drawString(100,100,"Hello World");
$c->showPage();
$c->save();

编辑 2： 虽然编辑 1 仍然令人感兴趣，但似乎（告诉我我是否不正确！）我已经想出了如何创建“画布”的实例并直接公开其方法：

#!/usr/bin/env perl

use strict;
use warnings;

use Inline::Python qw/py_eval/;

py_eval('from reportlab.pdfgen.canvas import Canvas');

my $c = Inline::Python::Object->new('__main__', 'Canvas', 'hello.pdf');
$c->drawString(100,100,"Hello World");
$c->showPage();
$c->save();

---

编辑 2/3：这部分作为更手动界面的示例。我认为 Edits 2/3 提供了一个更好的界面，它将繁重的工作留给了原始 Python 类，而无需（太多）包装。

编辑 1：我现在通过手动修改方法公开了一些功能。这意味着对于每个想要使用的方法，都必须添加一个包装器方法。虽然这已经是一个可行的解决方案，但我想知道是否没有更简单的方法来公开整个 python 'canvas' 类，但现在这就是我所在的位置：

#!/usr/bin/env perl

use strict;
use warnings;

use Inline Python => <<END_PYTHON;
from reportlab.pdfgen import canvas

class Canvas:
  def __init__(self,filename):
    self.canvas = canvas.Canvas(filename)
  def drawString(self,x,y,text):
    self.canvas.drawString(x,y,text)
  def save(self):
    self.canvas.showPage()
    self.canvas.save()

END_PYTHON

my $c = Canvas->new('hello.pdf');
$c->drawString(100,100,"Hello World");
$c->save();

Answer 3

经过深思熟虑和实验，我最终编写了很多代码来包装 PDF::API2。不幸的是，这是一家公司的内部项目，因此不会开源，但坦率地说，我建议使用不同的语言（Python / Ruby），也许使用 JSON 或其他方式传递数据。我的最终结果是高效的，但它需要大量的编码。 CPAN 上正在重构 PDF::API2，但它似乎停滞不前。