Re: perl script help needed (381 Views)
Reply
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 1 of 11 (478 Views)

perl script help needed

Hi ,

 

i have  a perl script which we use for ftp , m not able to update the ftplog contents.

Please use plain text.
Acclaimed Contributor
James R. Ferguson
Posts: 21,184
Registered: ‎07-06-2000
Message 2 of 11 (468 Views)

Re: perl script help needed


zxcv wrote:

Hi ,

 

i have  a perl script which we use for ftp , m not able to update the ftplog contents.



And that tells us nothing.  I assume that you are running the standard HP-UX 'ftpd' daemon. What release of HP-UX?  Do you mean that the 'xferlog' isn't being updated?  If not, do you have 'ftpd' configured with '-i in '/etc/inetd.conf'?  Do you have an 'ftpaccess' file that overrides that?

 

Does this logging failure only occur with your Perl script or does a command line FTP fail to log too?

 

...JRF...

Please use plain text.
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 3 of 11 (457 Views)

Re: perl script help needed

Hi James ,



m gettng problem via script..

wen m startng the script like ;

nohup /usr/bin/perl -w /tmp/test.pl -p -d 2 &



BEGIN failed--compilation aborted at /tmp/test.pl line 60.
Use of uninitialized value in subroutine entry at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/XSLoader.pm line 94.
Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/XSLoader.pm line 94.
Compilation failed in require at /tmp/test.pl line 60.
BEGIN failed--compilation aborted at /tmp/test.pl line 60....
Please use plain text.
Acclaimed Contributor
Dennis Handly
Posts: 24,880
Registered: ‎03-06-2006
Message 4 of 11 (447 Views)

Re: perl script help needed

>compilation aborted at /tmp/test.pl line 60.

 

It would help if you could show what was on line 60 and print the values of any variables being used there.

Please use plain text.
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 5 of 11 (446 Views)

Re: perl script help needed

60 use Data::Dumper ; # Used only for debugging statements

vim /usr/opt/perl5/lib/5.8.8/aix-thread-multi/XSLoader.pm
92 # See comment block above
93 push(@DynaLoader::dl_shared_objects, $file); # record files loaded
94 return &$xs(@_);
M not able to attache my perl script here ?? why is it so ..
Please use plain text.
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 6 of 11 (437 Views)

Re: perl script help needed

Hi

i have found smethng from net ..that usuually its not able to get the hostname....

/usr/opt/perl5/lib/5.8.8/aix-thread-multi/Socket.pm  .........

my hostname is testserver...is it greater than 8 char so itss d probm ????? or smthgnelse..

Please use plain text.
Acclaimed Contributor
James R. Ferguson
Posts: 21,184
Registered: ‎07-06-2000
Message 7 of 11 (424 Views)

Re: perl script help needed


zxcv wrote:

Hi

i have found smethng from net ..that usuually its not able to get the hostname....

/usr/opt/perl5/lib/5.8.8/aix-thread-multi/Socket.pm  .........

my hostname is testserver...is it greater than 8 char so itss d probm ????? or smthgnelse..


Hi:

 

So, you're running on AIX not HP-UX.  Yes, I suspect that hostnames longer than the classic 8-character limit are a problem.  Why not test on a host whose name is =< 8 ?

 

Actually *posting* the entire script would be more informative then piece-meal, vague descriptions of behavior and observations :-)

 

Regards!

 

...JRF...

Please use plain text.
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 8 of 11 (413 Views)

Re: perl script help needed

Hi ,
M not able to attach my perl script here ?? why is it so
Please use plain text.
Acclaimed Contributor
Dennis Handly
Posts: 24,880
Registered: ‎03-06-2006
Message 9 of 11 (405 Views)

Re: perl script help needed

[ Edited ]

>M not able to attach my perl script here? why is it so 

 

(It would be helpful if you didn't use texting shortcuts, used spell check and fairly complete sentences.  And proper capitalization would be a plus.  :-)

You can go back and edit your posts.

 

Perhaps you don't have the right suffix, try .txt.

Please use plain text.
Super Advisor
zxcv
Posts: 226
Registered: ‎04-09-2010
Message 10 of 11 (392 Views)

Re: perl script help needed

Hi , let me chk ..

Please use plain text.
Acclaimed Contributor
James R. Ferguson
Posts: 21,184
Registered: ‎07-06-2000
Message 11 of 11 (381 Views)

Re: perl script help needed

Hi (again):

 

Let me underscore what I said, before:


James R. Ferguson wrote:

zxcv wrote:

i have found smethng from net ..that usuually its not able to get the hostname....

/usr/opt/perl5/lib/5.8.8/aix-thread-multi/Socket.pm  .........

my hostname is testserver...is it greater than 8 char so itss d probm ????? or smthgnels


So, you're running on AIX not HP-UX.  Yes, I suspect that hostnames longer than the classic 8-character limit are a problem.  Why not test on a host whose name is =< 8 ?

 


You're clearly running the script on AIX, not HP-UX.  That said, I strongly suspect, given the relative age of the Perl version (5.8.8) that the C-library support for hostnames longer than the classic 8-character limit is supported.   You previously showed us:

 

BEGIN failed--compilation aborted at /tmp/test.pl line 60.
Use of uninitialized value in subroutine entry at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/XSLoader.pm line 94.
Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/XSLoader.pm line 94.
Compilation failed in require at /tmp/test.pl line 60.
BEGIN failed--compilation aborted at /tmp/test.pl line 60.... 

 ...which points to the 'Socket' module not "playing nicely" with what the the dynamic library loader 'XSLoader' loaded.

 

My suggestions are two: (1) Verify that everything works with a hostname that is <= 8-characters (which I'm sure it will); and (2) consider upgrading to a current Perl version and/or contact IBM support to ascertain how/if they support hostnames in excess of 8-characters.

 

Regards!

 

...JRF...

Please use plain text.
The opinions expressed above are the personal opinions of the authors, not of HP. By using this site, you accept the Terms of Use and Rules of Participation