ActivePerl discussion

Perl and ActivePerl usage questions; Perl practices and programming questions; Perl questions that don't fit other categories

Perl CVE-2013-1667 Input Rehashing Denial of Service Vulnerability

Does this apply to active perl 5.14.2.1402-MSWin32-x64-295342? I know that it applies to the more generic version of Perl 5.14.x. Will ActiveState release a product specific patch to address this issue?

Perl Command Line Interpreter crashing - Bex64 and the Fault Module Name: StackHash_1dc2

Perl Command Line Interpreter is crashing
with below error details when ever we tried to connect to DB2 on IBM i.

Problem signature:
Problem Event Name: BEX64
Application Name: perl.exe
Application Version: 5.26.1.2601
Application Timestamp: 5a2ee972
Fault Module Name: StackHash_1dc2
Fault Module Version: 0.0.0.0
Fault Module Timestamp: 00000000
Exception Offset: 0000000000000000
Exception Code: c0000005
Exception Data: 0000000000000008
OS Version: 6.1.7601.2.1.0.274.10
Locale ID: 3081
Additional Information 1: 1dc2

Steps to install perl 5.28 from source

Hello experts,
I have to install the perl latest. installer is not available for version 5.28. provided the following option from the Site and i tried to install on windows seems not working. this command executes with following error "Program too big to fit in memory". could you please help here.

How to install from source

wget https://www.cpan.org/src/5.0/perl-5.28.0.tar.gz
tar -xzf perl-5.28.0.tar.gz
cd perl-5.28.0
./Configure -des -Dprefix=$HOME/localperl
make
make test
make install

Active perl 5.26.1 installater will support to compile 5.26.2?

Hi Experts,

Q1 : We are migrating Activeperl version from 5.24.1 to 5.26.2 to fix the "CVE-2018-6913".

To compile the source i need the installer (.exe) to refer the bin location in the environemnt path. But the activeperl installer i could download the version 5.26.1. To fix the CVE i need perl version 5.26.2.

So if i install 5.26.1 then will it support to compile the 5.26.2 version ?.

Q2 : Same i have a another question here :

Perl more comand start giving error after upgrading to windows to 1803 version. It worked fin with windows 1709,1703,1609 ver

code which start giving Too many arguments in command line after upgradign to windows 1803 version. This same code work fine with windows 1709 version

my $syscmd="more $tppath\\IMP-name-Title.txt >> $Namelist";
system($syscmd);

Error on console:
more template\IMP-name-Title.txt >> temp-Name\Namelist.txt
Too many arguments in command line.

Anyone knows solutiuon for this issue.

rename function failing during a directory renaming operation

I have a small perl script that I want to use to rename directories / folders in a certain way.
If you put the directories name directly in the function it works but if you put a variable it fails.
See my code below:
Any ideas on how to fix this. Running on windows 7 and using 32 bit Activestate perl.

# test.pl
#use this script to rename folders to make it consistent naming style
# We will decide on our naming convention and style when this Perl script is working
# Aug 1, 2018
# test script to rename directory folder
#$file = "C:/folder1/" . "$file";

Suggestions on migrating from Windows Server 2003

I'm running Perl on a Windows 2003 Server. The time has come to finally move to a more current version of Windows and I was wondering if you guys have any suggestions or warnings. Am I going to have any problems with Windows Server 12 or 16?

Though I've used Perl for 20 years, I've only installed/reinstalled it or any packages like GD or some .pdf scripts a couple of times, so from that angle I'm a beginner.

We also use MDaemon for the email part of what we do.

Thanks for any help,

Steve

pack for 0x0A creates the invalid value

I created the following perl source'

my $val = 10;
open(OUT, ">", "out.bin") || die "cannot open file\n";
print OUT pack("C", $val);
close(OUT);

I expect the content of out.bin is 0x0A, but it is 0x0A0D.
"0x0D" is added after 0x0A.
I also get 0x000A0D in case of pack("S", $val), and 0x0000000A0D in case of pack("V", $val).

I can get the correct result in case of $val=9 or $val=11.

Is this a bug for ActivePerl?
Tested with 5.26.1 for x64, 5.26.0 for x86, and 5.24.2 for x86.

Regards,
Jun TAKADA

Perl Saxon

Hi

I am looking for a solution to use Saxon in Perl
we need to filter a lot of XML files with XSLT but the customer does not have software for that.
Want to know if it is possible with Perl!

thnx for your advice
Michael

Problem with umlauts ÄÖÜ and UTF8

#!C:\Perl64\bin\perl.exe
use utf8;
use diagnostics;

binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

print "ÄÖÜ\n";

print "Perl Version: $]\n";
print "Perl executable: $^X\n";

The result is

?ä?û?£
Perl Version: 5.024003
Perl executable: C:\Perl64\bin\perl.exe

It works well with Cygwin, but not with Active Perl on Windows 10.

What is wrong there?
Why does it not work?

Thank you!