Sorry, it should be Day 21 in the mail subject. Christmas is so near now ...
2010/12/20 joe jiang <[email protected]> > =for advent_year 2010 > > =for advent_day 21 > > =for advent_title PDF::API2 > > =for advent_author Joe Jiang > > PDF::API2 是久负盛名的 PDF 处理利器，我们这里演示的是如何用它来追踪 PDF 侵权的用户。 > > =begin pre > > > #!/usr/bin/perl -w > > use strict; > > use PDF::API2; > > > my $file=PDF::API2->openScalar(do{join(q(),<STDIN>)}); > > my $font=$file->corefont(q(Courier)); > > do {my $t=$_->text; $t->font($font, 8); $t->fillcolor(q(white)); $t > ->translate(40,10); $t->text(q(Hello world))} for map {$file->openpage($_)} > 1..$file->pages; > > print $file->stringify > > > =end pre > > 这段代码能从标准输入读取 PDF 文件，只要它没有被加过密，就可以在它每一页的相对位置 40,10 处用白色字体打印 Hello World，然后用 > stringfy 和 print 输出到标准输出。只要重定向到文件，就可以储存下来。假如我们把以上的代码储存为 watermark.pl > ，那么就可以这样调用： > > =begin pre > > $ cat abc.pdf | ./watermark.pl > def.pdf > > =end pre > > 现在，因为大多数的 PDF 是用白色作为背景色，那么页脚处的 Hello world > 就不容易被发现，然后你可以在网上设置一个收索机器人，专门搜索内含此字的 PDF > 文件，那就是被人盗用的。如果其中加入用户的帐号、下载日期等等，就可以用来作为追诉的依据。Thanks Alfred & the community! > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
