bin/quidi-fetch-parse-report-tarballs.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31
  32
  33 =cut
  34
  35 use FindBin;
  36 use lib "$FindBin::Bin/../lib";
  37 BEGIN {
  38     push @INC, qw(       );
  39 }
  40
  41 use Dumpvalue;
  42 use File::Basename qw(dirname);
  43 use File::Path qw(mkpath);
  44 use File::Spec;
  45 use File::Temp;
  46 use Getopt::Long;
  47 use Pod::Usage;
  48 use Hash::Util qw(lock_keys);
  49
  50 our %Opt;
  51 lock_keys %Opt, map { /([^=|!]+)/ } @opt;
  52 GetOptions(\%Opt,
  53            @opt,
  54           ) or pod2usage(1);
  55 if ($Opt{help}) {
  56     pod2usage(0);
  57 }
  58
  59 # print "ssh andreas\@analysis ls -l ";
  60 while (<DATA>) {
  61     my($cnt, $author, $vdistro) = m/\s*(\d+)\s*\[(.+?)\/(.+)\]/;
  62     $vdistro =~ s/.+\///;
  63     $vdistro =~ s/\.gz$//;
  64     unless (-e "tmp/$vdistro") {
  65         printf "rsync -vaP andreas\@analysis:/home/andreas/data/cpantesters/reports/%s/%s tmp/\n", substr($vdistro,0,1), $vdistro;
  66     }
  67     printf "tar -C tmp -xvf tmp/$vdistro\n";
  68 }
  69
  70 __END__
  71      62 [CFUHRMAN/Log-Fine-0.65.tar.gz]
  72      33 [NICZERO/Mojar-Cron-0.321.tar.gz]
  73      11 [SZABGAB/Class-Date-1.1.15.tar.gz]
  74      10 [NICZERO/Mojar-Cron-0.321.tar.gz]
  75       9 [ANDK/CPAN-2.14.tar.gz]
  76       6 [DOY/Spreadsheet-ParseXLSX-0.24.tar.gz]
  77       5 [RKELSCH/Graphics-Framebuffer-5.85.tar.gz]
  78       5 [MUIR/modules/Time-ParseDate-2015.103.tar.gz]
  79       4 [ILMARI/Class-Unload-0.09.tar.gz]
  80       4 [DOY/Reply-0.40.tar.gz]
  81       2 [MUIR/modules/Time-ParseDate-2015.103.tar.gz]
  82       2 [INGY/YAML-1.15.tar.gz]
  83       2 [ANDK/CPAN-2.14.tar.gz]
  84       1 [WANGQ/App-Fasops-0.4.3.tar.gz]
  85       1 [TINITA/YAML-LibYAML-0.62.tar.gz]
  86       1 [SREZIC/CPAN-Plugin-Sysdeps-0.09.tar.gz]
  87       1 [RWSTAUNER/Test-Aggregate-0.373.tar.gz]
  88       1 [RSRCHBOY/MooseX-Role-XMLRPC-Client-0.06.tar.gz]
  89       1 [RENTOCRON/Net-Flotum-0.05.tar.gz]
  90       1 [PERLANCAR/Module-XSOrPP-0.11.tar.gz]
  91       1 [PERLANCAR/Module-XSOrPP-0.11.tar.gz]
  92       1 [OMEGA/PDF-Table-0.9.11.tar.gz]
  93       1 [NICZERO/Mojar-2.051.tar.gz]
  94       1 [KABLAMO/WebService-Site24x7-0.01.tar.gz]
  95       1 [JACKB/Dancer2-Plugin-Tail-0.001.tar.gz]
  96       1 [INGY/Spiffy-0.46.tar.gz]
  97       1 [GWYN/File-ShareDir-Install-0.10.tar.gz]
  98       1 [GAAS/WWW-RobotRules-6.02.tar.gz]
  99       1 [GAAS/HTTP-Negotiate-6.01.tar.gz]
 100       1 [GAAS/HTTP-Cookies-6.01.tar.gz]
 101       1 [GAAS/HTML-Parser-3.72.tar.gz]
 102       1 [EXODIST/Test-Simple-1.302033.tar.gz]
 103       1 [EXODIST/Test2-Suite-0.000038.tar.gz]
 104       1 [ETHER/App-Nopaste-1.005.tar.gz]
 105       1 [ECKARDT/Script-Toolbox-0.49.tar.gz]
 106       1 [DANIEL/Ogg-Vorbis-Header-PurePerl-1.0.tar.gz]
 107       1 [CORION/Future-HTTP-0.01.tar.gz]
 108       1 [CELOGEEK/MooX-Options-4.022.tar.gz]
 109       1 [CANID/Lock-Server-1.7.tar.gz]
 110       1 [BINGOS/POE-Component-SmokeBox-Dists-1.08.tar.gz]
 111       1 [AUFFLICK/HTTP-Daemon-SSL-1.04.tar.gz]
 112       1 [AJPAGE/Bio-Roary-3.6.2.tar.gz]
 113       1 [ABRAXXA/ExtJS-Generator-DBIC-0.002.tar.gz]
 114       1 [ABRAXXA/ExtJS-Generator-DBIC-0.001.tar.gz]