Shell Programming and Scripting

Hi All,

I am trying to run a perl script in HP-UX servers.In 11.23 version it is running fine and giving the following output:

# perl perlsc.pl
HP-UX abcdprd1 B.11.23 U ia64 2568817704 unlimited-user license~Threading and Perl OK

But when I am trying the same script in HP-UX 11.11,it is giving the following error message:

# perl perlsc.pl
HP-UX abcdprd2 B.11.11 U 9000/869 481574382 unlimited-user license~/usr/lib/dld.sl: Unresolved symbol: pthread_attr_init (code) from /opt/local/tivoli/perl


The script:

#!/opt/local/tivoli/perl -w
BEGIN {push @INC, qw(c:/System/Perl/lib d:/System/Perl/lib /usr/my/lib/perl5 /usr/my/lib /opt/perl5/lib)}
#use strict;

use threads;
use Thread::Queue;

$uname_out = `uname -a`;
chomp $uname_out;
print "$uname_out~";

my $work_queue = new Thread::Queue;
my $results_queue = new Thread::Queue;
my $total_max_time = 30;
my $how_many_threads = 15;
my @threadlist;
#my $data;
my $i = 0;

sub worker {
while ( $data=$work_queue->dequeue ) {
# print "read $data from work queue\n";
#$host=`$data`;
#chomp $host;
$results_queue->enqueue($data);
}
$results_queue->enqueue("A thread finished");
}

while ($i < $how_many_threads) {
my $thread = threads->create( \&worker );
#print "Created thread number $i ID - $thread\n";
push @threadlist, $thread;
$i++;
}

# Read endpoint list here, we launched workers first because each thread
# get a copy of parent environment so launch them early and slim

@array = qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20);

foreach (@array)
{
#print "pushing $_ onto work queue\n";
$work_queue->enqueue($_);
}
$i=0;
while ($i < $how_many_threads) {
$work_queue->enqueue(undef);
# print "pushing undef onto work queue\n";
$i++;
}

#for ( my $i = 0, $i < $how_many_threads, $i++ ) {
# push @threadlist, undef # an exit token for each thread
#}

alarm $total_max_time;
eval {
while ($how_many_threads > 0) # check I did not do an off by one
{
my $result = $results_queue->dequeue; # block until data to read
if ( $result eq "A thread finished" ) {
$how_many_threads --;
}
else {
#print "$result\n";
}
}
alarm 0; # else we may die at an inopertune moment
};

if ($@) { print "we timed out on some threads\n" }
else { print "Threading and Perl OK\n" }
sleep 2;


Could anybody please shed some lights on this.I am not much familiar to perl.Any help will be highly appreciated.

Humm, for one thing the two architectures are completely different - PA-RISC via ia64. Two the OS versions are significantly different - 11.11 v 11.23.

Are the versions of Perl actually the same? Are the versions of the Pthread library the same on both pathforms?

Also the line "qw(c:/System/Perl/lib d:/System/Perl/lib /usr/my/lib/perl5 /usr/my/lib /opt/perl5/lib)" bothers me. Why are paths to C: and D: drives included here?

THe INC bit is an attempt to include libraries. None of them would be found on that HP box as far as I can tell. fpmurphy is right, everything conspires to look completely fishy.

Although the perl executable code if compiled on 11.11 will run on 11.23, as it is binary compatible, but not necessarily compatible working backwards 11.23 -> 11.11. Something is clearly wrong with your perl executable file. The perl script looks equally funny to me as well. including the rather odd path to perl...

Hi All,

I am trying to run a perl script in HP-UX servers.In HP-UX 11.23 servers it is running fine.

Script:

#!/opt/local/tivoli/perl -w
BEGIN {push @INC, qw(c:/System/Perl/lib d:/System/Perl/lib /usr/my/lib/perl5 /usr/my/lib /opt/perl5/lib)}
#use strict;

use threads;
use Thread::Queue;

$uname_out = `uname -a`;
chomp $uname_out;
print "$uname_out~";

my $work_queue = new Thread::Queue;
my $results_queue = new Thread::Queue;
my $total_max_time = 30;
my $how_many_threads = 15;
my @threadlist;
#my $data;
my $i = 0;

sub worker {
while ( $data=$work_queue->dequeue ) {
# print "read $data from work queue\n";
#$host=`$data`;
#chomp $host;
$results_queue->enqueue($data);
}
$results_queue->enqueue("A thread finished");
}

while ($i < $how_many_threads) {
my $thread = threads->create( \&worker );
#print "Created thread number $i ID - $thread\n";
push @threadlist, $thread;
$i++;
}

# Read endpoint list here, we launched workers first because each thread
# get a copy of parent environment so launch them early and slim

@array = qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20);

foreach (@array)
{
#print "pushing $_ onto work queue\n";
$work_queue->enqueue($_);
}
$i=0;
while ($i < $how_many_threads) {
$work_queue->enqueue(undef);
# print "pushing undef onto work queue\n";
$i++;
}

#for ( my $i = 0, $i < $how_many_threads, $i++ ) {
# push @threadlist, undef # an exit token for each thread
#}

alarm $total_max_time;
eval {
while ($how_many_threads > 0) # check I did not do an off by one
{
my $result = $results_queue->dequeue; # block until data to read
if ( $result eq "A thread finished" ) {
$how_many_threads --;
}
else {
#print "$result\n";
}
}
alarm 0; # else we may die at an inopertune moment
};

if ($@) { print "we timed out on some threads\n" }
else { print "Threading and Perl OK\n" }
sleep 2;


And gives the following out put:

# perl perlsc.pl
HP-UX abchpux1 B.11.23 U ia64 2568817704 unlimited-user license~Threading and Perl OK


But in HP-UX 11.11 it is giving the following error message:


#perl perlsc.pl
HP-UX abchpux1 B.11.11 U 9000/869 481574382 unlimited-user license~/usr/lib/dld.sl: Unresolved symbol: pthread_attr_init (code) from /opt/local/tivoli/perl
Abort(coredump)



Could anybody please shed some lights on this.Any help will be highly appreciated.

That looks like an issue with perl itself (or one of it's compiled modules) rather than your script.
Try running "/opt/local/tivoli/perl -v", I suspect that will fail with the same error.
If it doesn't try making two very simple scripts that use Thread::Queue and threads.

My pick would be that perl or one of the libraries it uses has been copied from a different version of HPUX and isn't compatible.

Hi Dragon,

Thanks for your help in this.I think your suggestion is valid because the Perl and its binaries used in this 11.11 server is same as that of 11.23 HP-UX.So I tried to rebuild the Perl in this server.As a first step I tried to install the binutils 2.15.But unfortunately I got the following errors.

# ./configure
creating cache ./config.cache
checking host system type... hppa1.1-hp-hpux11.11
checking target system type... hppa1.1-hp-hpux11.11
checking build system type... hppa1.1-hp-hpux11.11
checking for a BSD compatible install... ./install-sh -c
*** This configuration is not supported in the following subdirectories:
ld
(Any other directories should still work fine.)
(Bundled) cc: warning 480: The -g option is available only with the C/ANSI C product; ignored.
checking for hppa1.1-hp-hpux11.11-ar... no



# make
Configuring in libiberty
configure: creating cache ./config.cache
checking whether to enable maintainer-specific portions of Makefiles... no
checking for makeinfo... no
checking for perl... perl
(Bundled) cc: "bfd.h", line 420: error 1000: Unexpected symbol: "copy".
(Bundled) cc: "bfd.h", line 418: error 1506: Parameters allowed in function definition only.
(Bundled) cc: "bfd.h", line 423: error 1705: Function prototypes are an ANSI feature.
(Bundled) cc: "bfd.h", line 428: error 1705: Function prototypes are an ANSI feature.
(Bundled) cc: "bfd.h", line 432: error 1705: Function prototypes are an ANSI feature.
(Bundled) cc: "bfd.h", line 440: error 1000: Unexpected symbol: "bfd_boolean".
(Bundled) cc: "bfd.h", line 438: error 1705: Function prototypes are an ANSI feature.
(Bundled) cc: "bfd.h", line 440: error 1705: Function prototypes are an ANSI feature.
(Bundled) cc: "bfd.h", line 440: error 1573: Type of "<<<NULL_SYMBOL>>>" is undefined due to an illegal declaration.
(Bundled) cc: "bfd.h", line 450: error 1000: Unexpected symbol: "bfd_bread".
(Bundled) cc: error 2017: Cannot recover from earlier errors, terminating.
*** Error exit code 1

Stop.
*** Error exit code 1

Stop.
*** Error exit code 1

Stop.
*** Error exit code 1

Stop.

Could you please help me out in this as well ?

Duplicate threads merged