I'm seeing a strange issue when using IO::Uncompress:Gunzip on windows that I can't explain. The same code runs fine under Unix. I'd like to understand why.

The code below will take about 20-seconds to unzip a 65M zipped file on my windows xp box.

If I comment out the first gunzip line, and uncomment the second gunzip line, it will take hours on the windows box (6 hours last time I bothered to try). Any thoughts?

Thanks

-Craig

#!/opt/exp/bin/perl5.8
use strict;
use warnings;

use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;

my $ifile = shift || die "Missing input file name\n";

open(IFILE, "<$ifile") || die "Can't open $ifile";
binmode(IFILE);

my $inputstr = join('', <IFILE>);

print STDERR scalar(localtime), " - STARTING UNZIP!!!\n";
# This is fast on all platforms
gunzip \$inputstr => "clearfile" or die "gzip failed: $GunzipError\n";

my $cleartxt;
# This takes forever on windows, no problem on Unix
#gunzip \$inputstr => \$cleartxt or die "gzip failed: $GunzipError\n";

print STDERR scalar(localtime), " - UNZIPPED COMPLETE!!!\n";
[download]

push (@StatsArray, {RegionNum=>$RegionNum,
                    AR=>$AR[$RegionNum],
                    BCR=>$BCR[$RegionNum]});
[download]

foreach $RegionCoords (@AllRegionCoords) {
     $RegionNum++;
     foreach (sort {$$a{RegionNum} <=> $$b{RegionNum} or $$a{AR} <=> $
+$b{AR}} @StatsArray) {
          $RegionKey = $$_{RegionNum};
          $ARKey = $$_{AR};
          if ($RegionKey == $RegionNum) {
               # do stuff with sorted AR data in region n
          }
     }
}
[download]

I don't know if this is wise, but I'd like to be able to set global default variables for a package at build time. The perl module is a back end designed to communicate with a JavaScript front end (see https://github.com/zachhh/Packform). The global variables are for things like the path (as in the href attribute of a script tag, not strictly the path on disk) for including the front end JS, the desired version of jQuery and the jQuery UI, etc.

This is entirely out of laziness -- I don't want to have to provide this information in every script using the module. The defaults are hardcoded to be suitable for the server on which it was built. I want to be able to specify these when I install it.

This would necessarily have to change the variable initializations in the .pm file (which seems dangerous -- but hey, make test will tell them something's wrong if they mess it up). Of course, this could also come from a configuration file or the like. But, that seems dirty too.

Is this approach unwise?

If this is a reasonable approach, what are the recommendations? Should this be done in Makefile.PL somehow? Should there be a conf file that is provided and ask the user to modify that if they want changes? How should that be incorporated?

I am aware that on Windows, signal handling is simulated by turning Windows messages are turned into signals. Looking at the source code of Perl, I found indeed 1 case where SIGHUP seems to be generated. I don't understand much about the Windows API, but the code says:

BOOL WINAPI
win32_ctrlhandler(DWORD dwCtrlType)
...
    switch(dwCtrlType) {
    case CTRL_CLOSE_EVENT:
     /*  A signal that the system sends to all processes attached to a
+ console when
         the user closes the console (either by choosing the Close com
+mand from the
         console window's System menu, or by choosing the End Task com
+mand from the
         Task List
      */
        if (do_raise(aTHX_ 1))        /* SIGHUP */
            sig_terminate(aTHX_ 1);
        return TRUE;
[download]

use strict;
use warnings;
use Config;

BEGIN { 
    open(LOG,">","what_happens.log") or die "$!"; 
    my $ofh = select LOG;
    $|=1;
    select $ofh;
    print LOG "Unbuffered Log\n";
}

sub pout {
    print {$_} @_,"\n" for (*LOG, *STDERR);
}

END { pout("end handler called"); close LOG; }

pout "Started";

my $signum = 0;
foreach my $signame (split(' ', $Config{sig_name})) {
            if ($signum) {
                pout("Establishing $signame $signum");
                $SIG{$signame} = $signame =~ /^KILL|STOP$/
                    ? 'IGNORE'    # According to perldoc perlipc, they
+ can be ignored, but not trapped
                    : sub {
                        $SIG{$signame} = 'DEFAULT';                   
+     
                        pout("Murdered by signal $signame, default han
+dler established");
                        if ($signame eq 'INT') {
                            pout("This seems to be Keyboard interrupt"
+);
                            exit;
                        } else {
                            pout("Suicide");
                            kill($signum, $$);    # proceed with norma
+l handling of signal
                        }
                    };
            }
            ++$signum;
}

pout("Interrupt handlers registered");
sleep(6);
pout("Normal exit");
[download]

I am trying to copy PERL SCRIPTS to hosts and then I need to run them in parallel. I am using Net::OpenSSH::Parallel to copy and run the commands. But I am not able to even copy the commands. It is a password less ssh. I am able to generate and store the host list in an array hosts.

my $pssh = Net::OpenSSH::Parallel->new();
$pssh->add_host($_) for @hosts;
$pssh->push('*', scp_put => '/root/cpu.pl', '/root/');
$pssh->push('*', scp_put => '/root/memory.pl', '/root/');
[download]

Is there a perl module to help with writing an android app? Thx

Hi,

We upload file in .xlsx or xls format. In this file there is one coloumn for which value is in decimal. For these value for some it shows differnet result while reading from excel file and for some it shows correct result.

For example:

at place of 1.14 it comes 1.139999999999999

at place of 1.13 it comes 1.129999999999999

where as for some it give correct result.

Code used for reading .xlsx file is:

 $fileName = $_[0];
                 $fFnc = $_[1];

                 $logMsg = new LogMessage();
                 $logMsg->writeLog( $fFnc, "Reading $fileName \n" );

                 $FileData = "";
                 %FileHash = ();
                 %source_headers = ();

                  # For XLSX formats
                  if( $fileName =~ /\.xlsx$/i )
                        {
                                my $myConv = Text::Iconv->new ("utf-8"
+, "windows-1251");
                                my %xlFileData = ();

                                my $myBook = Spreadsheet::XLSX->new( "
+$fileName", $myConv );

                                if( $myBook )
                                 {
                                   foreach my $sheet (@{$myBook->{Work
+sheet}})
                                         {
                                           $sheet->{MaxRow} ||= $sheet
+->{MinRow};
                                           foreach my $row ($sheet -> 
+{MinRow} .. $sheet -> {MaxRow})
                                                 {
                                                   $sheet -> {MaxCol} 
+||= $sheet -> {MinCol};

                                                   foreach my $col ($s
+heet -> {MinCol} ..  $sheet -> {MaxCol})
                                                        {
                                                          my $cell = $
+sheet -> {Cells} [$row] [$col];
// At this place it gives incorrect result
}
[download]

Code used for reading .xls file is:

if($fileName =~ /\.xls$/i )
                        {
                                my $parser = Spreadsheet::ParseExcel->
+new();
                                my $workbook = $parser->parse( "$fileN
+ame" );

                                if( defined $workbook )
                                {
                                  for my $worksheet ( $workbook->works
+heets() )
                                                {
                                                        my ( $row_min,
+ $row_max ) = $worksheet->row_range();
                                                        my ( $col_min,
+ $col_max ) = $worksheet->col_range();

                                                        for my $row ( 
+$row_min .. $row_max )
                                                        {

                                                                for my
+ $col ( $col_min .. $col_max )
                                                                {
                                                                      
+  my $cell = $worksheet->get_cell( $row, $col );
// At this place it gives incorrect result while reading.
}
[download]

Please help me on this.

Thanks,

Sandeep

Fellow Monks, I seek your Perls of wisdom.

I have an array of arrays. the lower level arrays are records with values both numeric and alpha. I want to give the user the option to sort on any of these fields. I thought it would be nice to use a simple hash table referencing the record number to sort on and the comparator to use. I am having a problem using a variable containing comparator. Am I missing something or do I just need another approach?

my $sort = 'hours'; # really comes from a switch

my %map = ( #     sorting map
    hours => [0, \sub {<=>}],
    code  => [1, \sub {cmp}],
    name  => [2, \sub {cmp}],
);

# example data 
my @records = (
   [10, 'xyz232', 'secret project'],
   [ 5, 'foo123', 'world domination'],
   [ 7, 'bar666', 'have a beer'],
);

for (
     sort {$a->[$map{$sort}->[0]] $map{$sort}->[1] $b->[$map{$sort}->[
+0]]} 
     @records
   ) {
   print join ", ", @$_;
}
[download]

Update

my %map = (
    hours  => sub {sort { $_[0] <=> $_[0] } };,
    number => sub {sort { $_[0] <=> $_[0] } };,
    name   => sub {sort { $_[0] <=> $_[0] } };,
    task   => sub {sort { $_[0] <=> $_[0] } };,
);
[download]

Cheers,
R.

<?xml version="1.0"?>
[download]

We (as so many others) use perl intensivly, but we are currently stuck with the stock RHEL6 perl (that is 5.10.1).

I am considering building our own perl (in /opt/somehwere), adding the modules that we need, and keeping that up-to-date (using jenkins to build our own RPMs for deployment). I have a feeling about the amount of work involved with this (been down that road before), and my boss asked the ultimative question:

Is it worth it?

So I started to prepare a what's-the-difference tutorial (from perldelta's), then 5.18.0 came along and threw given/when and ~~ into experimental::smartmatch, so now I am (almost) back to square 0. Almost all I got is some optimizations and some hash-key security...

Compared to 5.10.1, why should I upgrade to 5.18.0?

• I know the pain, what is the gain?
• What do you think is the most important arguments for upgrading to 5.18.0?
• How will 5.18.0 make us happier, our life easier and sun shine more frequently?
• Or am I complete lost, and should I continue being stuck with the stock?

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @h = (
    { A => 1, B => undef },
    { A => 2, B => 2 },
    { A => 2, B => undef },

);

$_->{B} ||= $_{A} foreach @h;  # Bug!
print Dumper(\@h);
[download]

Hi Monks

Can anyone explain what does that do? @{$doc->{links} // []}

I don't understand the // [] part.

here is the link to entire code: https://gist.github.com/creaktive/4607326

I use my laptop as test environment. When all (upgrades) pass on production/utility software, I upgrade my workstation. If that shows no problems after a few weeks, I start upgrading other production servers.

So I installed 5.18.0 on my laptop as default perl, and then tried to install all CPAN modules I ever used in 5.16.x

There are just a few things that stand out as a reason for FAILure:

• Test files that use for $foo qw( … ) { which is now deprecated. The module autor should rewrite that to for $foo (qw( … )) {. I filed RT tickets for all I encountered. Lets hope the authors will fix their code.
• POD failures. As the POD checker is now way stricter than the old version was, it shows more real trouble. And it should! The problem is that many authors ship the pod tests too, so the test suite will fail if Test::Pod and friends are installed, and thus cpan won't install those modules. That means manual work ignoring the pod errors (and when obvious file RT tickets). Authors: unless you keep in sync with reality and release often, please do not include pod tests in you distribution.
• Loads of warnings when a module uses given/when as those are now marked experimental. I can ignore the warnings when testing, but will they fill up my logs when run in production code? When the module also uses Test::NoWarnings, one cannot install. A module like MooseX::App now won't install, and it causes many other modules that have this as a prerequisite to fail too.
• XS authors that never updated ppport.h from Devel::PPPort. Easy to fix.
• Modules that use Module::Install but ship ancient or incomplete versions of it in inc. The easiest solution for me was to just recursively remove inc/ and all problems vanish. I have no tuits to RT all of them.
• Several modules fail because they declare optional deps that are actually hard deps, like using JSON::XS, Lexical::Sub or Data::Alias - which won't build under 5.18.0
• Test failures, or maybe even code failures, due to hash randomization. Unless I am absolutely sure that the test is wrong, I cannot install these modules.
• Some failures have been reported to the authors but the available fix has not (yet) been applied (like in Template::Toolkit RT#84778) or not yet released (Tk and SQL::Statement). When their repository is open, they build fine from the repo and I am confident the next release will build fine.

The message is: perl-5.18.0 is awesome, but please please test the module you require before starting the installation on machines other than a test environment.

I had a bunch of music lyrics that I wanted to print and I didn't want to manually drive gedit. I did, however, want to retain the document formatting. I found a hint in Re^2: using Brother QL-570 printer with Perl and also found sample commands in an Ubuntu Community Documentation post for using the Open Office command line interface for batch printing or viewing. The are also posts out there for doing a similar thing with MS-Word.

The following is what I threw together. It does the job for me, YMMV. I needed to print UTF-8 text files, but Open Office will try to print whatever file you give it using the file extension as a guide to the file format. I have also printed .odt files.

James