Re: [PerlChina] 2010 Perl Advent Day 13: PDF::API2

Thanks for the sharing.

2010/12/20 joe jiang <lamp.purl@gmail.com>:
> Sorry, it should be Day 21 in the mail subject. Christmas is so near now ...
> 2010/12/20 joe jiang <lamp.purl@gmail.com>
>>
>> =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 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Fayland Lam // http://www.fayland.org/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。