Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

marto's scratchpad

by marto (Archbishop)
on Jun 02, 2004 at 07:58 UTC ( #359256=scratchpad: print w/replies, xml ) Need Help??

For Tux:

cpanm (App::cpanminus) 1.7043 on perl 5.026001 built for i686-linux-gn +u-thread-multi-64int Work directory is /home/marto/.cpanm/work/1570110201.5036 You have make /usr/bin/make You have LWP 6.36 You have /bin/tar: tar (GNU tar) 1.29 Copyright 2015 Free Software Foundation, Inc. License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gp +l.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. Written by John Gilmore and Jay Fenlason. You have /usr/bin/unzip Cloning https://github.com/Tux/Spreadsheet-Read.git Cloning into '/tmp/q5O61HSj2I'... -> OK --> Working on https://github.com/Tux/Spreadsheet-Read.git Entering /tmp/q5O61HSj2I Configuring /tmp/q5O61HSj2I Running Makefile.PL Do you want to install xlscat Convert Spreadsheet to plain text or +CSV ? [y] y Do you want to install xlsgrep Grep pattern from Spreadsheet ? [y] +y Do you want to install ss2tk Show a Spreadsheet in Perl/Tk ? [y] y Do you want to install ssdiff Show diff between two spreadsheets ? +[y] y Do you want to install xls2csv Wrapper around xlscat for easy XLS +=> CSV ? [y] y Do you want to install xlsx2csv Wrapper around xlscat for easy XLSX + => CSV ? [y] y Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Spreadsheet::Read Writing MYMETA.yml and MYMETA.json -> OK Checking dependencies from MYMETA.json ... Checking if you have Test::More 0.88 ... Yes (1.302164) Checking if you have Data::Dumper 0 ... Yes (2.167) Checking if you have Exporter 0 ... Yes (5.72) Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.24) Checking if you have Carp 0 ... Yes (1.42) Checking if you have File::Temp 0.22 ... Yes (0.2309) Checking if you have IO::Scalar 0 ... Yes (2.111) Checking if you have Encode 0 ... Yes (2.98) Checking if you have Test::NoWarnings 0 ... Yes (1.04) Building and testing Spreadsheet-Read-0.82 cp Read.pm blib/lib/Spreadsheet/Read.pm cp examples/ss2tk blib/script/ss2tk "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/ss +2tk cp examples/ssdiff blib/script/ssdiff "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/ss +diff cp examples/xls2csv blib/script/xls2csv "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/xl +s2csv cp examples/xlscat blib/script/xlscat "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/xl +scat cp examples/xlsgrep blib/script/xlsgrep "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/xl +sgrep cp examples/xlsx2csv blib/script/xlsx2csv "/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/xl +sx2csv Manifying 2 pod documents Manifying 1 pod document PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::H +arness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/l +ib', 'blib/arch')" t/*.t t/10_basics.t ... ok t/11_call.t ..... ok # Parser: Text::CSV_XS-1.37 t/200_csv.t ..... ok t/201_csv.t ..... ok t/202_csv.t ..... ok t/203_csv.t ..... ok t/204_csv.t ..... ok t/205_csv.t ..... ok # Parser: Text::CSV_XS-1.37 t/210_csv.t ..... ok t/211_csv.t ..... ok t/212_csv.t ..... ok t/213_csv.t ..... ok t/214_csv.t ..... ok t/220_csv.t ..... skipped: Cannot use Text::CSV_PP t/221_csv.t ..... skipped: Cannot use Text::CSV_PP t/222_csv.t ..... skipped: Cannot use Text::CSV_PP t/223_csv.t ..... skipped: Cannot use Text::CSV_PP t/224_csv.t ..... skipped: Cannot use Text::CSV_PP t/30_xls.t ...... skipped: No M$-Excel parser found t/31_clr.t ...... skipped: No M$-Excel parser found t/32_fmt.t ...... skipped: No M$-Excel parser found t/33_misc.t ..... skipped: No M$-Excel parser found t/34_dates.t .... skipped: No M$-Excel parser found t/35_perc.t ..... skipped: No M$-Excel parser found t/36_xls.t ...... skipped: No M$-Excel parser found t/37_merged.t ... skipped: No M$-Excel parser found # Parser: Spreadsheet::ReadSXC-0.22 Modification of non-creatable array value attempted, subscript -1 at / +usr/local/share/perl/5.26.1/Spreadsheet/ReadSXC.pm line 148. # Tests were run but no plan was declared and done_testing() was not s +een. # Looks like your test exited with 255 just after 1. t/40_sxc.t ...... Dubious, test returned 255 (wstat 65280, 0xff00) All 1 subtests passed # Parser: Spreadsheet::ReadSXC-0.22 Modification of non-creatable array value attempted, subscript -1 at / +usr/local/share/perl/5.26.1/Spreadsheet/ReadSXC.pm line 148. # Tests were run but no plan was declared and done_testing() was not s +een. # Looks like your test exited with 255 just after 1. t/45_ods.t ...... Dubious, test returned 255 (wstat 65280, 0xff00) All 1 subtests passed t/46_clr.t ...... skipped: Spreadsheet::ReadSXC version 0.22 doesn't s +upport field attributes # Parser: Spreadsheet::Read-0.82 t/50_sc.t ....... ok t/51_sc.t ....... ok t/600_xlsx.t .... skipped: No MS-Excel parser found t/601_clr.t ..... skipped: No MS-Excel parser found t/602_fmt.t ..... skipped: No MS-Excel parser found t/603_misc.t .... skipped: No MS-Excel parser found t/604_dates.t ... skipped: No MS-Excel parser found t/605_perc.t .... skipped: No MS-Excel parser found t/607_merged.t .. skipped: No MS-Excel parser found t/610_xlsx.t .... skipped: Cannot use Spreadsheet::ParseXLSX t/611_clr.t ..... skipped: Cannot use Spreadsheet::ParseXLSX t/612_fmt.t ..... skipped: Cannot use Spreadsheet::ParseXLSX t/613_misc.t .... skipped: Cannot use Spreadsheet::ParseXLSX t/614_dates.t ... skipped: Cannot use Spreadsheet::ParseXLSX t/615_perc.t .... skipped: Cannot use Spreadsheet::ParseXLSX t/617_merged.t .. skipped: Cannot use Spreadsheet::ParseXLSX t/620_xlsx.t .... skipped: Cannot use Spreadsheet::XLSX t/621_clr.t ..... skipped: Cannot use Spreadsheet::XLSX t/622_fmt.t ..... skipped: Cannot use Spreadsheet::XLSX t/623_misc.t .... skipped: Cannot use Spreadsheet::XLSX t/624_dates.t ... skipped: Cannot use Spreadsheet::XLSX t/625_perc.t .... skipped: Cannot use Spreadsheet::XLSX t/627_merged.t .. skipped: Cannot use Spreadsheet::XLSX t/999_fail.t .... ok Test Summary Report ------------------- t/40_sxc.t (Wstat: 65280 Tests: 1 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output t/45_ods.t (Wstat: 65280 Tests: 1 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output Files=53, Tests=1432, 64 wallclock secs ( 1.48 usr 0.22 sys + 58.42 c +usr 3.72 csys = 63.84 CPU) Result: FAIL Failed 2/53 test programs. 0/1432 subtests failed. Makefile:891: recipe for target 'test_dynamic' failed make: *** [test_dynamic] Error 255 -> FAIL Installing https://github.com/Tux/Spreadsheet-Read.git failed. + See /home/marto/.cpanm/work/1570110201.5036/build.log for details. R +etry with --force to force install it.

Junk

#!/usr/bin/perl use strict; use warnings; use CPAN::Mirrors; use LWP::UserAgent; use Digest::SHA qw(sha256_hex); my $sha256 = '8e3fccbf4c7e87c2df7c1e756fc17666a708bab8b36fd2004163756 +51d9b86e1'; my $path = 'authors/id/R/RS/RSCHUPP/PAR-Packer-1.047.tar.gz'; my $mirrors = CPAN::Mirrors->new( 'MIRRORED.BY' ); my @mirrors = $mirrors->mirrors(); my ( @goodsha, @badsha, @problemmirror ); my $ua = LWP::UserAgent->new(); $ua->max_redirect( 6 ); foreach my $cpan ( @mirrors ){ if ( $cpan->{http} ){ print "Checking Mirror: $cpan->{http}\n"; my $url = $cpan->{http} . $path; my $res = $ua->get( $url ); if ( $res->is_success ){ my $file = $res->decoded_content( charset => 'none' ); my $file_sha = sha256_hex( $file ); if ( $file_sha eq $sha256 ){ print "Matching SHA\n"; push @goodsha, $url; }else{ print "Warning: SHA does not match!\n"; print "Got : $file_sha\nExpected: $sha256\n"; push @badsha, $url; } }else{ print "Couldn't download $url\n"; push @problemmirror, $url; } } } print "'Bad' mirrorsn\n\n" . join( "\n", @badsha ) if ( @badsha ); print "\n'Unreachable' mirrors\n\n" . join( "\n", @problemmirror ) if +( @problemmirror );

Replacement Makefile.PL for File::Repl.

# File::Repl # # Version # $Source: d:/src/perl/File/Repl/RCS/Makefile.PL $ # $Revision: 1.4 $ # $State: Exp $ # # Start comments/code here - will not be processed into manual pages # # Copyright - Dave Roberts 2000,2001 # # Revision history: # $Log: Makefile.PL $ # Revision 1.4 2011/11/25 07:29:24 Dave.Roberts # added COMPRESS arguments # # Revision 1.3 2001/06/27 12:33:57 jj768 # Changes to ignore the RCS directory # # #********************************************************************* +********* use strict; use warnings; use ExtUtils::MakeMaker; my %WriteMakefileArgs = ( 'NAME' => 'File::Repl', 'VERSION_FROM' => 'Repl.pm', 'PREREQ_PM' => { 'File::Find' => 0, 'File::HomeDir' => 0, 'File::Copy' => '2.03', 'File::Basename' => '2.6' }, 'dist' => { ZIP => 'wzzip.exe', ZIPFLAGS => '-P', COMPRESS => 'gzip --best --force', }, 'MAN3PODS' => { 'Repl.pm' => 'blib/man3/File::Repl.3', }, 'PM' => { 'Repl.pm' => '$(INST_LIBDIR)/Repl.pm', } ); if ( ( $^O eq 'MSWin32' ) or ( $^O eq 'cygwin' ) ) { $WriteMakefileArgs{PREREQ_PM}{'Win32::API'} = '0'; } WriteMakefile(%WriteMakefileArgs); package MY; sub postamble { <<"END_OF_POSTAMBLE"; pm_to_blib: README README: Repl.pm \tpod2text Repl.pm >README \tpod2html Repl.pm >Repl.html END_OF_POSTAMBLE } # Just to make it ignore editor backup files. sub libscan { $_ = $_[1]; if ( m/(RCS|CVS|SCCS)/i || m/[~%]$/ || m/\.(orig|rej)$/ ) { print " Ignoring $_\n"; return ''; } return $_; }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2019-10-19 13:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?