Perl

Perl gethostbyname
I'm trying to get Perl 5.8.7 working on z/OS. This nearly works but... for some reason the inet_aton and gethostbyname calls are returning undef. I guess that this means that I have to get involved in debugging the internals. Does anyone know what C files lie at the heart of these routines and what the best wa... 1 Nov 2005 18:23

Timelocal input, post good Date filters (from - to)
I get some weird concat warnings on print if enabled so its commented. Post any you have (or make some up). Here's mine .. use strict; #use warnings; my @dates = ('2/30/5-7/2005', '2/5', '-3/29.2000', '4-12/05', '-12/01-1/03', '10/2002,8/31/2005', '1/2-asdvf'); for (@dates) { my $date = $_; print '-'x4... 29 Oct 2005 19:45

apache logs
Hi Can anyone advise me what is going on here please? 64.12.165.33 - - [22/Oct/2005:09:34:57 +0100] "CONNECT 64.12.165.56:6666 HTTP/1.0" 405 315 64.12.165.33 - - [22/Oct/2005:09:34:57 +0100] "POST http://64.12.165.56:6666/ HTTP/1.0" 200 2335 I notice this in my logs now and then, is it easy to simulate th... 22 Oct 2005 14:38

Socket() failed for UDP socket
Hello, I have recently started getting an error message, whenever i boot up my laptop. The error is : " Could not start DB server: Socket() failed for UDP socket: (10106) the requested service provider could not be loaded or initialized" The only odd thing, i have noticed after i have started getting this ... 11 Oct 2005 04:57

SNMP.pm
Hi All, I can't seem to use SNMP.pm on my box. ===== #!/usr/bin/perl -w use SNMP; print "test \n"; ===== Fails with the following error: ===== [root(a)Uploads wfitzgerald]# ./test.pl Can't locate SNMP.pm in @INC (@INC contains: /usr/lib/perl5/5.8.1/i386-linux-thread-multi /usr/lib/perl5/5.8.1 /u... 7 Oct 2005 18:39

Need help with pack
I want to write the function to_bits that takes a floating point number as argument and returns an array of 32 ones or zeroes, corresponding to the bits of the input argument. I have been staring at the docs for pack and unpack for a while now trying to figure out how to use them to do this and I am as clu... 2 Oct 2005 12:55

string comparison
Hi, I think i am doing something wrong here. Can anyone please let me know what $a = "apple"; if ($a eq ('apple')){ print "right choice\n"; }else{ print "wrong choice\n"; } This above prints "right choice". But the below prints "wrong choice". How can i make the below program print "right choi... 14 Oct 2005 12:33

automate website login using perl
Hi All, I am trying to automate login to a website using the following code. but it is not working ... any ideas? ---------------------- use HTTP::Request; use LWP::UserAgent; $http_cmd = "http://testertesting:80/login.html"; my %tags = (); $tags{'action'} = 'calling page/servlet'; $tags{'id'} = 'User';... 24 Sep 2005 23:18

Perl Threads Tutorial
Hi all I tried to run the sample script from the "tutoriol on threads in perl" that should list prime numbers between 1 and 1000. The Problem is, the script always ends with this errormessage "A thread exited while 2 threads were running." The last Prime it finds is 661. After adding some prints, it looks lik... 18 Sep 2005 20:58

retrieving Dell Service Tags using Perl
I was wondering if there was an easy way to retrieve a Dell service tag using Perl. I know it can be done using VBscript using WMI (windows management instrumentation) and here's the code for VBscript just in case someone was interested. set WMI = GetObject("WinMgmts:") 'Show description of all services se... 16 Sep 2005 16:49