[22868] in Perl-Users-Digest
Perl-Users Digest, Issue: 5089 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 7 14:10:44 2003
Date: Sat, 7 Jun 2003 11:10:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 7 Jun 2003 Volume: 10 Number: 5089
Today's topics:
socket.pm broken ? (getprotobyname does not work) <pilsl_usenet@goldfisch.at>
Re: socket.pm broken ? (getprotobyname does not work) <bob@nowhere.com>
Re: socket.pm broken ? (getprotobyname does not work) <pilsl_usenet@goldfisch.at>
Re: Sorting IP's (Tad McClellan)
Strange errors with huge hash <res1uzbe@verizon.net>
Re: Strange errors with huge hash (Tad McClellan)
Re: Strange errors with huge hash <res1uzbe@verizon.net>
Re: Strange errors with huge hash <bob@nowhere.com>
Re: Strange errors with huge hash <res1uzbe@verizon.net>
Re: Strange errors with huge hash <flavell@mail.cern.ch>
Re: Strange errors with huge hash <res1uzbe@verizon.net>
Re: Strange errors with huge hash <uri@stemsystems.com>
Re: Unusual Can't load fail (web only) <Mike@Army.ca>
Re: Unusual Can't load fail (web only) <randy@theoryx5.uwinnipeg.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 7 Jun 2003 17:33:03 +0200
From: peter pilsl <pilsl_usenet@goldfisch.at>
Subject: socket.pm broken ? (getprotobyname does not work)
Message-Id: <3ee20680$1@e-post.inode.at>
I've run in quite an irritating problem. On a brand new machine I needed to
install some perl-applications that returned the error "bad protocol tcp"
(ie. when trying to create an ldap-object or some think like this).
I now traced the error to the following very simple perlscript:
#!/usr/bin/perl -w
use Socket;
$proto = getprotobyname('tcp');
print $proto?$proto:"failed","\n";
On all machines I maintain, this script returns the value '6'. On the
machine in question I get 'failed' as return.
I completely reinstalled perl from the source and still have the problem.
So maybe this is not a perl-problem, but a problem on my system but I dont
have any other point to start asking than my perl-problem.
Any help is greatly appreatiated ...
thnx,
peter
--
peter pilsl
pilsl_usenet@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: Sat, 07 Jun 2003 11:47:28 -0500
From: bob <bob@nowhere.com>
Subject: Re: socket.pm broken ? (getprotobyname does not work)
Message-Id: <3ee21714$1_1@127.0.0.1>
No perl version. No OS name. No OS version. How exactly did you expect
help to come as a result of this posting?
On Sat, 07 Jun 2003 10:33:03 -0500, peter pilsl wrote:
> #!/usr/bin/perl -w
> use Socket;
> $proto = getprotobyname('tcp');
> print $proto?$proto:"failed","\n";
----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---
------------------------------
Date: Sat, 7 Jun 2003 18:55:57 +0200
From: peter pilsl <pilsl_usenet@goldfisch.at>
Subject: Re: socket.pm broken ? (getprotobyname does not work)
Message-Id: <3ee219ef$1@e-post.inode.at>
bob wrote:
> No perl version. No OS name. No OS version. How exactly did you expect
> help to come as a result of this posting?
>
sorry.
the machine is a linux suse 8.2 with a 2.4.20-kernel
perl is 5.8.0
gcc-version is 3.3
I had the problem originally with the perl that was installed from the
suse-packages and therefore decided to compile perl on my own. This did not
solve my problem.
thnx,
peter
ps: full version:
# perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
Platform:
osname=linux, osvers=2.4.20-4gb, archname=i686-linux
uname='linux gkserv11 2.4.20-4gb #1 mon mar 17 17:54:44 utc 2003 i686
unknown unknown gnulinux '
config_args='-de'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-O3',
cppflags='-fno-strict-aliasing'
ccversion='', gccversion='3.3 20030226 (prerelease) (SuSE Linux)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.3.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under linux
Compiled at Jun 7 2003 17:55:39
@INC:
/usr/local/lib/perl5/5.8.0/i686-linux
/usr/local/lib/perl5/5.8.0
/usr/local/lib/perl5/site_perl/5.8.0/i686-linux
/usr/local/lib/perl5/site_perl/5.8.0
/usr/local/lib/perl5/site_perl
.
--
peter pilsl
pilsl_usenet@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: Sat, 7 Jun 2003 09:08:33 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Sorting IP's
Message-Id: <slrnbe3sf1.4d4.tadmc@magna.augustmail.com>
derek / nul <abuse@sgrail.org> wrote:
> Can someone point me to any information about sorting IP addresses.
A search at google groups finds the dozens of times that this
question has been asked and answered already.
Not much point to going over it all again.
http://groups.google.com/groups?as_q=sort%20IP&as_ugroup=comp.lang.perl.misc
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 07 Jun 2003 15:36:59 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Strange errors with huge hash
Message-Id: <vEnEa.29595$JW6.20807@nwrddc02.gnilink.net>
I wrote a module that recurses through anonymous references in a hash
and creates the code to create the hash to create it, then puts it in a
file, that way I can eval it at a later time and pick up reading and
editing the values where I left off. I been using the module alot in
various things and it works great, especially since i can use it in
remotely hosted cgi for a simple database. Recently however, I tried
using it to catalog files on my hard drive, storing various information
about each file, such as size, ID3 info for mp3s, and SHA1 digests. It
resaves the hash to the file after each file, so I can pick up later if
I close the program before it finishes, the only trouble is, after a
short while of running, one of the evals gives an error, if I rerun it I
get this:
Bareword found where operator expected at (eval 4) line 1205, near "RUN"
(Do you need to predeclare s?)
Bad name after INF' at (eval 4) line 1205, <HASH> line 4850.
But there is obviously nothing wrong with line 1205, and not only that,
the only occurrence of RUN and INF in the file is is nearly 1000 lines
higher up in the file.
------------------------------
Date: Sat, 7 Jun 2003 11:06:52 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Strange errors with huge hash
Message-Id: <slrnbe43cs.4fh.tadmc@magna.augustmail.com>
emcee <res1uzbe@verizon.net> wrote:
> I wrote a module
That wheel has already been invented.
> that recurses
perldoc -q recurse
"How do I print out or copy a recursive data structure?"
> and creates the code to create the hash to create it,
Huh?
> one of the evals gives an error,
One of the messages is an error, one of the messages is not an
error but a warning. An "error message" is not the same thing
as a "warning message".
> Bareword found where operator expected at (eval 4) line 1205, near "RUN"
^^^^^^^^^^
^^^^^^^^^^
If you look up that message in perldiag.pod, you'll see that it is
a warning, not an error.
> (Do you need to predeclare s?)
> Bad name after INF' at (eval 4) line 1205, <HASH> line 4850.
^^^^
^^^^ That is a useful clue...
Further clues can be gleaned by looking up that message in perldiag.pod.
> But there is obviously nothing wrong with line 1205,
If there is something wrong with it that you can't see, then you
are on your own since you decided not to share it with us.
> and not only that,
> the only occurrence of RUN and INF in the file is is nearly 1000 lines
> higher up in the file.
It is NOT line 1205 in the file, it is line 1205 in the 4th eval()
that your program executes.
You should show us the area of code near the "INF'"
(note the single quote). It is much harder to debug code
that cannot be seen...
Anyway, this may reveal where the problem is:
grep "INF's" my_program
My guess is you have something like:
"... $INF's ..."
and Perl is trying to find the $s scalar in the INF namespace,
the same as if you had "$INF::s".
The single quote was the package separator in Perl 4.
If that is the situation, then you can fix it by delimiting the
variable's name:
"... ${INF}'s ..."
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 07 Jun 2003 16:35:20 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Re: Strange errors with huge hash
Message-Id: <cvoEa.57352$da1.33797@nwrddc03.gnilink.net>
Tad McClellan wrote:
> emcee <res1uzbe@verizon.net> wrote:
>
>
>>I wrote a module
>
>
>
> That wheel has already been invented.
I write my own modules because I rarely have the option to install new
modules on the server I run my codes on.
>
>
>
>>that recurses
>
>
>
> perldoc -q recurse
>
> "How do I print out or copy a recursive data structure?"
>
>
I know how to recurse a data structure, that part is working fine.
>
>>and creates the code to create the hash to create it,
>
>
>
> Huh?
What I mean is it uses the information in the hash to right the code to
create that hash again.
>
>
>
>>one of the evals gives an error,
>
>
>
> One of the messages is an error, one of the messages is not an
> error but a warning. An "error message" is not the same thing
> as a "warning message".
>
>
>
>>Bareword found where operator expected at (eval 4) line 1205, near "RUN"
>
> ^^^^^^^^^^
> ^^^^^^^^^^
>
>
> If you look up that message in perldiag.pod, you'll see that it is
> a warning, not an error.
>
Yeah, well there is at least one error, that's my point.
>
>
>> (Do you need to predeclare s?)
>>Bad name after INF' at (eval 4) line 1205, <HASH> line 4850.
>
> ^^^^
> ^^^^ That is a useful clue...
>
>
> Further clues can be gleaned by looking up that message in perldiag.pod.
>
>
>
>>But there is obviously nothing wrong with line 1205,
>
>
>
> If there is something wrong with it that you can't see, then you
> are on your own since you decided not to share it with us.
>
This is the exact portion that perl takes issue with:
'b4a94aa951185167119dd01c0ded26652ddd4bca'=>
{
'extension'=>'INF',
'complete path'=>'c:/Documents and Settings/Administrator/Desktop/Roxio
Easy Cd Creator 5 Platinum/Roxio Easy CD Creator 5 Platinum/AUTORUN.INF',
'extended digest'=>'6',
'description'=>'Not Available',
'size'=>'28',
'genre'=>'Not Available',
'file name'=>'AUTORUN.INF',
'artist'=>'Not Available',
'album'=>'Not Available',
'title'=>'Not Available',
'type'=>'Not Available',
'year'=>'Not Available'
},
I can take this portion out put in the hash %hash in a seperate file and
put this after it:
print "$_: $hash{'b4a94aa951185167119dd01c0ded26652ddd4bca'}{$_}\n"
foreach keys %{$hash{'b4a94aa951185167119dd01c0ded26652ddd4bca'}};
and it runs fine, so the actual error must be somewhere else.
>
>
>>and not only that,
>>the only occurrence of RUN and INF in the file is is nearly 1000 lines
>>higher up in the file.
>
>
>
> It is NOT line 1205 in the file, it is line 1205 in the 4th eval()
> that your program executes.
>
The code evals the entire file. I have however, got this must sorted
out, it gives me the right line number now that I switched it from
newlines to carriage returns.
>
> You should show us the area of code near the "INF'"
> (note the single quote). It is much harder to debug code
> that cannot be seen...
>
>
>
> Anyway, this may reveal where the problem is:
>
> grep "INF's" my_program
>
> My guess is you have something like:
>
> "... $INF's ..."
>
> and Perl is trying to find the $s scalar in the INF namespace,
> the same as if you had "$INF::s".
>
> The single quote was the package separator in Perl 4.
>
> If that is the situation, then you can fix it by delimiting the
> variable's name:
>
> "... ${INF}'s ..."
>
>
I had already found INF and RUN, they're only in one spot. The code that
creates the code for the hash escapes all the ' within the data stored
to avoid errors, so I know that's not the problem.
------------------------------
Date: Sat, 07 Jun 2003 11:43:47 -0500
From: bob <bob@nowhere.com>
Subject: Re: Strange errors with huge hash
Message-Id: <3ee21637$1_1@127.0.0.1>
On Sat, 07 Jun 2003 11:35:20 -0500, emcee wrote:
> I write my own modules because I rarely have the option to install new
> modules on the server I run my codes on.
That's because the default install directory is one that mere users don't
have write access to. If you can't get your sysadmin to install the
modules per default, the are optios to 'perl Maikefile.PL' that allow you
to install them where you DO have access to. I suggest Data::Dumper or
Storable.
----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---
------------------------------
Date: Sat, 07 Jun 2003 16:53:38 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Re: Strange errors with huge hash
Message-Id: <mMoEa.57405$da1.19861@nwrddc03.gnilink.net>
bob wrote:
> On Sat, 07 Jun 2003 11:35:20 -0500, emcee wrote:
>
>
>
>>I write my own modules because I rarely have the option to install new
>>modules on the server I run my codes on.
>
>
>
> That's because the default install directory is one that mere users don't
> have write access to. If you can't get your sysadmin to install the
> modules per default, the are optios to 'perl Maikefile.PL' that allow you
> to install them where you DO have access to. I suggest Data::Dumper or
> Storable.
>
>
> ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
> http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
> ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---
I'm talking about remote shared hosting, with services such as powweb or
tripod. Even if I could install my own module, they wouldn't let me.
------------------------------
Date: Sat, 7 Jun 2003 19:01:11 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Strange errors with huge hash
Message-Id: <Pine.LNX.4.53.0306071851050.11037@lxplus081.cern.ch>
On Sat, Jun 7, emcee inscribed on the eternal scroll:
> I write my own modules because I rarely have the option to install new
> modules on the server I run my codes on.
That makes no sense, frankly[0]: if you can execute your own module,
then you can execute a module written by someone else. Check the
relevant Perl FAQ: if you don't recognise which one I'm talking about,
then I'd have to recommend spending a little time finding your way
around the Perl FAQs rather than reinventing wheels. Well, [1].
If, on the other hand, you had said that you were writing your own
modules as a learning exercise, even though you wouldn't necessarily
use them in production for preference, then I think you'd have rated
to get a more sympathetic hearing here - what say the regulars?
good luck
[0] No, I'm not Frank. well, no more than anyone else around here.
[1] perldoc -q 'own module' ; or <
http://www.perldoc.com/perl5.8.0/pod/perlfaq8.html#
How-do-I-keep-my-own-module-library-directory-
>
------------------------------
Date: Sat, 07 Jun 2003 17:41:04 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Re: Strange errors with huge hash
Message-Id: <QspEa.61951$Pb.16481@nwrddc01.gnilink.net>
Alan J. Flavell wrote:
> On Sat, Jun 7, emcee inscribed on the eternal scroll:
>
>
>>I write my own modules because I rarely have the option to install new
>>modules on the server I run my codes on.
>
>
> That makes no sense, frankly[0]: if you can execute your own module,
> then you can execute a module written by someone else. Check the
> relevant Perl FAQ: if you don't recognise which one I'm talking about,
> then I'd have to recommend spending a little time finding your way
> around the Perl FAQs rather than reinventing wheels. Well, [1].
Whether I can or am allowed to are two different things, most of the
services I use have clauses in their terms about running binary code.
> If, on the other hand, you had said that you were writing your own
> modules as a learning exercise, even though you wouldn't necessarily
> use them in production for preference, then I think you'd have rated
> to get a more sympathetic hearing here - what say the regulars?
This is why I'm always hesitant about going here for help, nobody can
just except the code as it is and help you with it, instead they insist
on critiquing portions of it unrelated to the problem.
I guess if nobody here is willing to help with this if I use my own
module, I'll go somewhere else or figure it out myself.
------------------------------
Date: Sat, 07 Jun 2003 18:00:58 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Strange errors with huge hash
Message-Id: <x7wufxwyw6.fsf@mail.sysarch.com>
>>>>> "e" == emcee <res1uzbe@verizon.net> writes:
e> Alan J. Flavell wrote:
>> On Sat, Jun 7, emcee inscribed on the eternal scroll:
>>
>>> I write my own modules because I rarely have the option to install
>>> new modules on the server I run my codes on.
>> That makes no sense, frankly[0]: if you can execute your own
>> module, then you can execute a module written by someone else.
>> Check the relevant Perl FAQ: if you don't recognise which one I'm
>> talking about, then I'd have to recommend spending a little time
>> finding your way around the Perl FAQs rather than reinventing
>> wheels. Well, [1].
e> Whether I can or am allowed to are two different things, most of
e> the services I use have clauses in their terms about running binary
e> code.
that makes no sense at all. how can you run your own code and not other
code? and what does that have to do with binary stuff? and data::dumper
which was recommended comes with perl already and works fine. so why
reinvent that wheel and with bugs to boot?
>> If, on the other hand, you had said that you were writing your own
>> modules as a learning exercise, even though you wouldn't
>> necessarily use them in production for preference, then I think
>> you'd have rated to get a more sympathetic hearing here - what say
>> the regulars?
e> This is why I'm always hesitant about going here for help, nobody
e> can just except the code as it is and help you with it, instead
e> they insist on critiquing portions of it unrelated to the problem.
no, you post here, it becomes an open discussion. you can't control what
people write here. hell, we can't get moronzilla to shut up.
e> I guess if nobody here is willing to help with this if I use my own
e> module, I'll go somewhere else or figure it out myself.
your choice. but your real problem has been addressed. it is your fault
if you don't accept the answers and not the groups for feeding you what
you think you need. that attitude is very bad for any coder or
professional.
so the situation is (whether you choose to ACCEPT it or not) is that:
1: your problem is already solved by a STANDARD module that is
ALREADY installed.
2: you have some delusion that module you write have privileges
that modules from elsewhere don't have.
3: you have some some false expectation that this group (or any
other perl resource) will do what you want even if it is the
wrong thing just because you asked. i hope you don't carry
that into other aspects of your life.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 7 Jun 2003 09:40:44 -0400
From: "Mike Bobbitt" <Mike@Army.ca>
Subject: Re: Unusual Can't load fail (web only)
Message-Id: <bbsq2m$kml$1@news.storm.ca>
> The PL_perl_destruct_level symbol should be coming from
> your perl lib. I would have thought though this would have been
> picked up in building and testing DBD::mysql, but you say there
> was no problem there ... Might there be multiple DBD::mysql
> installations, and your web script is picking the wrong one? Does
> setting within the web script the environment variable
> LD_LIBRARY_PATH, pointing to where libraries live, help?
This looks like the most likely situation... Turns out my LD_LIBRARY_PATH
appears to be null!
I'm running RedHat 9, so I've added a definition to /etc/profile, and added
"PassEnv LD_LIBRARY_PATH" to my httpd.conf.
Does that sound right, or am I on the wrong track?
Thanks
------------------------------
Date: Sat, 7 Jun 2003 11:31:35 -0500
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Unusual Can't load fail (web only)
Message-Id: <GroEa.33554$NC4.133565@news1.mts.net>
"Mike Bobbitt" <Mike@Army.ca> wrote in message
news:bbsq2m$kml$1@news.storm.ca...
> > The PL_perl_destruct_level symbol should be coming from
> > your perl lib. I would have thought though this would have been
> > picked up in building and testing DBD::mysql, but you say there
> > was no problem there ... Might there be multiple DBD::mysql
> > installations, and your web script is picking the wrong one? Does
> > setting within the web script the environment variable
> > LD_LIBRARY_PATH, pointing to where libraries live, help?
>
> This looks like the most likely situation... Turns out my LD_LIBRARY_PATH
> appears to be null!
>
> I'm running RedHat 9, so I've added a definition to /etc/profile, and
added
> "PassEnv LD_LIBRARY_PATH" to my httpd.conf.
>
> Does that sound right, or am I on the wrong track?
It might help if it's a problem in finding and loading shared
libraries, but I'd suggest checking first if there's multiple
DBD::mysql installations on your system. The original error
message referred to a problem with something under
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/auto/ -
is this where DBD::mysql was installed when you built it
yourself (and presumably were using when the script was
run from the command line)?
best regards,
randy
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 5089
***************************************
