Yanick yenzie: Making Simple Things Easy
Publicado: 2013-02-11 19:46 @865«Pregunta: Existe una página web con un listado con un montón de archivos PDF. ¿Existe alguna manera de bajarlos todos y, mientras se hace, recogerles todos en un solo documento?»
Artículo
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