Using perl Syntax Highlighting
- #!/usr/bin/env perl
- # uso: $0 <la_url>
- use 5.16.0;
- use Web::Query;
- use LWP::Simple;
- use Path::Tiny;
- use List::AllUtils qw/ reduce /;
- use CAM::PDF;
- ( reduce { $a->appendPDF($b); $a } @{
- wq( $ARGV[0] )
- ->find('a')
- ->filter( sub {
- $_[1]->attr('href') =~ /\.pdf$/;
- })
- ->map( sub {
- my $temp = Path::Tiny->tempfile;
- $temp->spew( get( $_[1]->attr('href') ) );
- CAM::PDF->new($temp);
- })
- }) ->cleanoutput('agregado.pdf');
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Artículo
