I can sort an array passed into a subroutine, but I can't reverse sort or use a custom sort on that array.

I can't get subroutines to do much of anything with passed arrays. This is one of sevearl array-subroutine tests that I've tried over the last two days. I have tried variations with passing array references, but to no avail.

# test subroutines with an array

$var = 8; push( @TaR, $var ); $var = 2; push( @TaR, $var );
$var = 5; push( @TaR, $var ); $var = 4; push( @TaR, $var );
$var = 5; push( @TaR, $var ); $var = 6; push( @TaR, $var );
$var = 1; push( @TaR, $var ); $var = 8; push( @TaR, $var );

print STDOUT "\n\n"; print STDOUT "\n\nAs-is    ";

# This segment works
for $OneLine( @TaR ) { print STDOUT "    $OneLine"; }
print STDOUT "        Done\n\n";

SortedArray( @TaR );

ReversedArray( @TaR );

print STDOUT "\n\n";

# This sort works
sub SortedArray
{
    my @PassedArray = @_;
    my @SortedArray = sort @PassedArray;
    
    print STDOUT "\n\nSorted    ";

    for $SubLine( @SortedArray )
    { print STDOUT "    $SubLine"; }
    print STDOUT "        Done\n\n";
    return 1;
}

# This sort, but doesn't reverse the sort
sub ReversedArray
{
    my @PassedArray = @_;
    my @SortedArray = sort reverse @PassedArray;
    
    print STDOUT "\n\nRvrsd    ";

    for $SubLine( @SortedArray )
    { print STDOUT "    $SubLine"; }
    print STDOUT "        Done\n\n";
    return 1;
}
[download]

Hello, all. I'm having an issue with a large and difficult-to-produce piddle matrix that I made on a Mac OS with 64 architecture(8-byte long), which I want to use in a perl program on a Windows OS with 64 architecture (4-byte long). If at all possible, I want to avoid recreating this data.

I want to load in a matrix, slice a row, then calculate the Pearson's correlation of that row against each other row using PDL::Stats::Basic corr. This works fine when I create a matrix in Windows and find the correlation in Windows, and it also works when I use the data I want to use to find the correlation on Mac, but not when I use data from the Mac OS in Windows. I've tried using PDL::IO::Storable and PDL::IO::Dumper. When I save/load the matrix using PDL::IO::Storable, I get this error:

Long integer size is not compatible at C:/Perl64/lib/Storable.pm line 
+380, at test.pl line 6.
[download]

# On Mac OS
use PDL;
use PDL::IO::Dumper;

my $a = random(8,150);

PDL::IO::Dumper::fdump($a, 'a.pldl');

# On Windows OS
use PDL;
use PDL::Stats::Basic;
use PDL::IO::Dumper;`

my $a = frestore('a.pldl');
my $b = $a->slice(':,3');
my $c = $a->corr($b);

print $c->slice('(0)'), "\n";
[download]

This code returns '-1.#IND', which is Windows for nan. Am I getting caught by the different data sizes again?

Use of inherited AUTOLOAD for non-method Soap::Serializer::as_base64Binary is deprecated at /opt/Activeperl/site/lib/SOAP/Lite.pm.

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]

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