[22479] in Perl-Users-Digest
Perl-Users Digest, Issue: 4700 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 12 18:06:06 2003
Date: Wed, 12 Mar 2003 15:05:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 12 Mar 2003 Volume: 10 Number: 4700
Today's topics:
Re: A Good Perl Developing Environment (Nataku)
Re: Alternatives to FormMail (Steph)
building perl crashes my linux system at "strtoul() fou <no_email@none.abc>
Re: building perl crashes my linux system at "strtoul() <no_email@none.abc>
Re: building perl crashes my linux system at "strtoul() <mrdovey@iedu.com>
Re: building perl crashes my linux system at "strtoul() <thunderbolt01@netscape.net>
Can I use Net::FTP get() to get directly into a perl va (Doug Sprague)
debugging a daemon (Erik Aronesty)
does flock work both for unix and linux servers <ixanthi@ixanthi.remove.gr>
Re: does flock work both for unix and linux servers <nobull@mail.com>
Re: does flock work both for unix and linux servers <mgjv@tradingpost.com.au>
Re: For the top UK Perl, Unix, Linux jobs.. <dha@panix.com>
how to create own perl module (ramesh)
Re: how to create own perl module <usenet@dwall.fastmail.fm>
Re: how to create own perl module <abigail@abigail.nl>
Re: Insert End-of-line <nobull@mail.com>
Re: Letting users change their password via web form... <Mandrake@dream-server.com>
Re: my $x = 100 for 1..3 why is $x undef <nobull@mail.com>
Re: my $x = 100 for 1..3 why is $x undef <abigail@abigail.nl>
Re: my $x = 100 for 1..3 why is $x undef <rgarciasuarez@free.fr>
Re: my $x = 100 for 1..3 why is $x undef <mgjv@tradingpost.com.au>
Re: new Perl feature request: call into shared libs (Bryan Castillo)
Re: panic error (Nataku)
Re: panic error <abigail@abigail.nl>
Re: panic error <rgarciasuarez@free.fr>
Perl Auto Form Filler <tester@aol.com>
Re: Perl Module to do SSL encrypted FTP <45673&5@yahoo.co.uk>
posting test <tester@aol.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Mar 2003 12:43:24 -0800
From: Crapnut566@yahoo.com (Nataku)
Subject: Re: A Good Perl Developing Environment
Message-Id: <7e48fc99.0303121243.1b1ba67a@posting.google.com>
The activestate IDEs are quite good, particularly the PERL .NET
plugin.
If you are on a budget, however, check out Open Perl on
Sourceforge.net
Doesnt have all the bells and whistles of the professionally developed
IDEs, and there are a few tiny bugs, but its a great start. No
replacement for EMACS for actually creating programs, but its a good
debugging environment.
Jeremy Lomas <jlomas@tcta.org> wrote in message news:<BA93BA22.2EF8%jlomas@tcta.org>...
> This may be even later, but a _great_ IDE for Windoze OR (I believe) Linux
> is Komodo, by ActiveState -- great development tool
>
> www.activestate.com
>
>
> On 3/10/03 11:10 AM, in article 4tgp6vsrvrrmcahqmp352p3g3pge06gguk@4ax.com,
> "info@wienerlibrary.co.uk" <info@wienerlibrary.co.uk> wrote:
>
> > On Sat, 18 Jan 2003 04:17:18 GMT, "A. Fuentes" <alvarof2@hotmail.com>
> > wrote:
> >
> >>
> > This might be a bit late but:
> >
> > If you're developing on PC or Linux then the only IDE that I've heard
> > of is Perl Builder from Soution soft.
> >
> > check out www.solutionsoft.com
------------------------------
Date: 12 Mar 2003 11:39:42 -0800
From: sbour@niaid.nih.gov (Steph)
Subject: Re: Alternatives to FormMail
Message-Id: <79e85d7d.0303121139.73dc1620@posting.google.com>
Actually, I ask this like I know there are many but I don't know which
one to use ;-) At this point I'm using FormMail from the London Perl
Mongers nms project (Matt Wright's code emulation).
So I'll rephrase: what is in your opinion the best combination of perl
script and email service for web forms. I'm looking at SendMail.cgi
and it looks like it could possible do both. However the doc is a
little slim for a newbie like me and I'm not sure how to modify my web
forms to use SendMail.cgi instead of the current formmail/sendmail
combination.
> You ask this as though there's only one FormMail.pl out there. :-)
>
> - --
> Eric
> print scalar reverse sort qw p ekca lre reh
> ts uJ p, $/.r, map $_.$", qw e p h tona e;
>
> -----BEGIN xxx SIGNATURE-----
> Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
>
> iD8DBQE+bl4hY96i4h5M0egRAuNLAKC+ttQNhbjVxk6mwP9/zeRbLKDOvQCfSTLp
> 5bLNvDys6rb+/daFRAGs+Io=
> =AopQ
> -----END PGP SIGNATURE-----
------------------------------
Date: Wed, 12 Mar 2003 21:07:14 GMT
From: joe dekk <no_email@none.abc>
Subject: building perl crashes my linux system at "strtoul() found"
Message-Id: <3E6FA184.2090908@none.abc>
Hi
I am building perl on a new system (because
red linux perl is not "shared" and I need
it "shared" so that I can use plperl
with postgresql which requires that
perl be such)
Any way cpu duron 950MHz and motherboard MSI
ms6378 are brand new. With stock kernel
the system crashes when ./Configure
is checking "memcpy" or something like that.
It's a very hard crash in that pressing
a key on keyboard reboot the system and it
also resets the BIOS after reboot. My
guess was that "memcpy" wipes out some memory
in BIOS. I next install custom kernel 2.4.20
as well as disable audio, usb and other features
on this board. I also set frame buffer memory
to be "N/A" which I suppose makes the video
shared memory to be zero. (I am going
to use this as a headless server)
Anyway this solves the problem a little better
in that it gets pass "memcpy" stage. But
now it freezes at
------------
strtoul() found.
Checking whether your strtoul() works okay...
---------
Can someone tell me what strtoul() is
doing so that I can solve this problem? I
am very worried that this system is going to crash during
production stage. It has 1 stick of 512MB pc133 sdram
Thanks in advance
------------------------------
Date: Wed, 12 Mar 2003 21:16:22 GMT
From: joe dekk <no_email@none.abc>
Subject: Re: building perl crashes my linux system at "strtoul() found"
Message-Id: <3E6FA3A1.3060003@none.abc>
joe dekk wrote:
> Hi
>
> I am building perl on a new system (because
> red linux perl is not "shared" and I need
> it "shared" so that I can use plperl
> with postgresql which requires that
> perl be such)
>
> Any way cpu duron 950MHz and motherboard MSI
> ms6378 are brand new. With stock kernel
> the system crashes when ./Configure
> is checking "memcpy" or something like that.
> It's a very hard crash in that pressing
> a key on keyboard reboot the system and it
> also resets the BIOS after reboot. My
> guess was that "memcpy" wipes out some memory
> in BIOS. I next install custom kernel 2.4.20
> as well as disable audio, usb and other features
> on this board. I also set frame buffer memory
> to be "N/A" which I suppose makes the video
> shared memory to be zero. (I am going
> to use this as a headless server)
>
> Anyway this solves the problem a little better
> in that it gets pass "memcpy" stage. But
> now it freezes at
> ------------
> strtoul() found.
> Checking whether your strtoul() works okay...
> ---------
>
> Can someone tell me what strtoul() is
> doing so that I can solve this problem? I
> am very worried that this system is going to crash during
> production stage. It has 1 stick of 512MB pc133 sdram
>
> Thanks in advance
>
There is another point it crashes. It is at
--------
semctl() found.
-------
The system likes to freeze at this point as well.
I have also tried to pass the kernel option "mem=504M".
------------------------------
Date: Wed, 12 Mar 2003 15:21:06 -0600
From: Morris Dovey <mrdovey@iedu.com>
Subject: Re: building perl crashes my linux system at "strtoul() found"
Message-Id: <3E6FA4C2.4010101@iedu.com>
joe dekk wrote:
> Can someone tell me what strtoul() is
> doing so that I can solve this problem?
Guys...
Please remove comp.lang.c - If you really need detailed info it's
available from man.
Discussion of package-building is off topic for comp.lang.c
Thanks.
--
Morris Dovey
West Des Moines, Iowa USA
C links at http://www.iedu.com/c
------------------------------
Date: Wed, 12 Mar 2003 21:46:15 GMT
From: David <thunderbolt01@netscape.net>
Subject: Re: building perl crashes my linux system at "strtoul() found"
Message-Id: <HUNba.67397$sf5.44848@rwcrnsc52.ops.asp.att.net>
joe dekk wrote:
> Hi
>
> I am building perl on a new system (because
> red linux perl is not "shared" and I need
> it "shared" so that I can use plperl
> with postgresql which requires that
> perl be such)
>
> Any way cpu duron 950MHz and motherboard MSI
> ms6378 are brand new. With stock kernel
> the system crashes when ./Configure
> is checking "memcpy" or something like that.
For Perl-5.8.0 you would use:
./configure.gnu --prefix=/usr
make
make install
--
Confucius: He who play in root, eventually kill tree.
Registered with the Linux Counter. http://counter.li.org
Slackware 9.0.0 Kernel 2.4.20 i686 (GCC) 3.2.2
Uptime: 8 days, 15:58, 1 user, load average: 0.14, 0.08, 0.08
------------------------------
Date: 12 Mar 2003 14:22:11 -0800
From: desprague@yahoo.com (Doug Sprague)
Subject: Can I use Net::FTP get() to get directly into a perl variable
Message-Id: <6648fadd.0303121422.7c8c0d83@posting.google.com>
I'm trying to figure a way to use the get() method of
Net::FTP to be able to get() a file from a remote host and
stuff it directly into a perl variable for processing.
Figure there may be some way to do this with open() using
a pipe and then using the filehandle from the open for the
get() LOCAL_FILE argument.
Thanks,
Doug
------------------------------
Date: 12 Mar 2003 12:27:24 -0800
From: erik@zoneedit.com (Erik Aronesty)
Subject: debugging a daemon
Message-Id: <3939595a.0303121227.54a08963@posting.google.com>
Trying to use debug/dprof to figure out why a daemon i wrote is
occasionally consuming 100% CPU.
Problem is that the daemon forks a LOT of processes during the regular
business of doing it's job - and DProf doesn't seem to collect data on
these children.
Any way to get that to work? Or maybe it is working and I just don't
know it?
------------------------------
Date: Wed, 12 Mar 2003 22:50:09 +0200
From: "Vassilis Tavoultsidis" <ixanthi@ixanthi.remove.gr>
Subject: does flock work both for unix and linux servers
Message-Id: <b4o6i1$s9k$1@nic.grnet.gr>
Does anybody know if the flock procedure works over linux. It works for unix
(I've tried it).
Thanks
Vassilis Tavoultsidis
------------------------------
Date: 12 Mar 2003 21:15:01 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: does flock work both for unix and linux servers
Message-Id: <u9hea85lt6.fsf@wcl-l.bham.ac.uk>
"Vassilis Tavoultsidis" <ixanthi@ixanthi.remove.gr> writes:
> Does anybody know if the flock procedure works over linux. It works for unix
> (I've tried it).
What you've tried it on every OS that's licenced the trademark Unix?
Really?
flock() works on Linux OK. It may not work on every Unix.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 12 Mar 2003 23:00:04 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: does flock work both for unix and linux servers
Message-Id: <slrnb6vevk.79p.mgjv@verbruggen.comdyn.com.au>
On 12 Mar 2003 21:15:01 +0000,
Brian McCauley <nobull@mail.com> wrote:
> "Vassilis Tavoultsidis" <ixanthi@ixanthi.remove.gr> writes:
>
>> Does anybody know if the flock procedure works over linux. It works for unix
>> (I've tried it).
>
> What you've tried it on every OS that's licenced the trademark Unix?
> Really?
>
> flock() works on Linux OK. It may not work on every Unix.
Do you have an example? I thought that flock semantics, either through
lockf(), flock() or fcntl() were available on every Unix. I know that
perl does its best to emulate flock(2) using either of those, so
unless all three are missing, it should work fine.
perlport only mentions:
flock FILEHANDLE,OPERATION
Not implemented (Mac OS, VMS, RISC OS, VOS).
Available only on Windows NT (not on Windows 95). (Win32)
None of those is a Unix [1], so I'm wondering which Unix you mean...
Martien
[1] I am pretty sure VOS isn't a Unix, and their web pages don't
mention it.
--
|
Martien Verbruggen | Failure is not an option. It comes bundled
Trading Post Australia | with your Microsoft product.
|
------------------------------
Date: Wed, 12 Mar 2003 22:13:11 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: For the top UK Perl, Unix, Linux jobs..
Message-Id: <slrnb6vc7n.nn9.dha@panix2.panix.com>
In article <wfHba.8661$EA6.1329541@newsfep2-win.server.ntli.net>, ECM
Selection Ltd wrote:
> For the pick of UK's top permanent High Tech jobs
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently to
"news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Another good source of information on how Usenet functions is
news.newusers.questions (information from which is also available at
http://www.geocities.com/nnqweb/).
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
http://jobs.perl.org may be of more use to you
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
So get it on paper, with a signature, so you can wave it at them. If
that doesn't work, use weapons.
- David Cantrell
------------------------------
Date: 12 Mar 2003 12:36:53 -0800
From: rpalla@kentlaw.edu (ramesh)
Subject: how to create own perl module
Message-Id: <2b0865a8.0303121236.2b938a47@posting.google.com>
i
I am trying to create my own module to connect to database and to
query some tables. please help
------------------------------
Date: Wed, 12 Mar 2003 21:06:01 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: how to create own perl module
Message-Id: <Xns933CA3C78902Fdkwwashere@216.168.3.30>
ramesh <rpalla@kentlaw.edu> wrote on 12 Mar 2003:
> I am trying to create my own module to connect to database and to
> query some tables. please help
There are already modules for that.
use DBI;
Or were you going to create your own custom modules? Read
perldoc perlnewmod
perldoc perlmod
perldoc perlmodlib
perldoc perlmodstyle
You don't have to read every single word, of course, but that's where
you'll find reference material. Start with perlnewmod, as it has
beginning advice.
--
David K. Wall - usenet@dwall.fastmail.fm
WWJD? JWRTFM.
------------------------------
Date: 12 Mar 2003 21:53:21 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: how to create own perl module
Message-Id: <slrnb6vb2h.1ud.abigail@alexandra.abigail.nl>
ramesh (rpalla@kentlaw.edu) wrote on MMMCDLXXX September MCMXCIII in
<URL:news:2b0865a8.0303121236.2b938a47@posting.google.com>:
--
-- I am trying to create my own module to connect to database and to
-- query some tables. please help
Use vi.
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
------------------------------
Date: 12 Mar 2003 20:47:28 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Insert End-of-line
Message-Id: <u9r89c5n33.fsf@wcl-l.bham.ac.uk>
"Bob Kardell" <bobkardell@yahoo.com> rudely vomits TOFU in our faces:
> Thanks for the info - I was thinking I could change $_ by inserting
> "\n". ( I know its not real code - the real code is much too large
> to put here)
"real code" ne "the whole program you are developing".
Please see the posting guidelines for this newsgroup.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 12 Mar 2003 13:06:02 -0600
From: Mandrake <Mandrake@dream-server.com>
Subject: Re: Letting users change their password via web form...
Message-Id: <v6v18t4shcpv5a@news.supernews.com>
Yes, but in essence what you're saying is "learn to change the tire before
embarking on a 500 mile drive through the desert", and then when asked for
references to where you can find information on changing a tire I'm told to
"find it yourself". It still all boils down to the fact that if I KNEW
where to find the information, I'd have already found it and fixed it
without asking.
I understand all the security implications involved. I was not looking for a
rundown on Linux security - I was asking how to interface between Linux and
Perl in a way where I could do something that generally isn't just "thrown
in your lap".
For what it's worth, I found the answer on my own, and now I guess when I
have a perl related question it will be better to just research it until I
find the answer, rather than ask a question, as that seems to really bother
people... and if someone comes to ME and asks how to do it, I'll tell them,
instead of feeding them a line and telling them to get lost.
--
Take care,
Randall
Anno Siegel wrote:
> Mandrake <Mandrake@dream-server.com> wrote in comp.lang.perl.misc:
>
> [TOFU rearranged]
>
>> Abigail wrote:
>>
>> > Mandrake (Mandrake@dream-server.com) wrote on MMMCDLXXIX September
>> > MCMXCIII in <URL:news:v6qvh3eup6hbcb@news.supernews.com>:
>> > "" Hi guys. Anyone have a suggestion as to what I can use to allow
>> > users to
>> > "" change their own passwords? I tried the Expect version, and
>> > unfortunately I
>
> [...]
>
>> > Changing passwords over the web is dangerous. My standpoint is that
>> > if you can't figure out how to do it, you're not qualified enough
>> > to do it.
>
>> Ahhh, thanks for that tidbit of advice there Abigail. That means that if
>> I don't know how to build an automobile that I shouldn't drive one,
>> correct?
>
> No, it means if you don't know how to change a tire you better learn
> it (and a few more things) before embarking on a 500 mile drive through
> the desert.
>
> Anno
------------------------------
Date: 12 Mar 2003 19:46:07 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: my $x = 100 for 1..3 why is $x undef
Message-Id: <u9zno05pxc.fsf@wcl-l.bham.ac.uk>
"John Lin" <jihghong@yahoo.com.tw> writes:
> use strict;
> my $x = 100 for 1..3;
> print defined $x? $x: '<undef>';
> __END__
> <undef>
>
> Eh? Shouldn't $x be 100?
No, IMNSHO, that code shouldn't compile.
The use of my() within a statement with a modifier is currently
documented as having undefined semantics! Logically it should
ultimately become a compile time error. For now I'd settle for a
class D (deprecation) message.
I've said this before. I know some people disagree with me on this.
I remain convinced this is simply because they are wrong and I am
right.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 12 Mar 2003 20:25:12 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: my $x = 100 for 1..3 why is $x undef
Message-Id: <slrnb6v5t8.1ud.abigail@alexandra.abigail.nl>
Brian McCauley (nobull@mail.com) wrote on MMMCDLXXX September MCMXCIII in
<URL:news:u9zno05pxc.fsf@wcl-l.bham.ac.uk>:
.. "John Lin" <jihghong@yahoo.com.tw> writes:
..
.. > use strict;
.. > my $x = 100 for 1..3;
.. > print defined $x? $x: '<undef>';
.. > __END__
.. > <undef>
.. >
.. > Eh? Shouldn't $x be 100?
..
.. No, IMNSHO, that code shouldn't compile.
..
.. The use of my() within a statement with a modifier is currently
.. documented as having undefined semantics! Logically it should
.. ultimately become a compile time error. For now I'd settle for a
.. class D (deprecation) message.
Urg. Making that a compile error just makes the syntax more complex.
Statement modifiers can be applied to all simple statements,
including assignment, unless there's a my involved.
No thanks. I rather have a meaning to it defined (regardless what
that meaning is) and implemented than some divine rule making it
a syntax error. That's certainly not the Perl way. Perl ways are
"DWIM" and "don't surprise the programmer". I'd say most people
would expect $x to get the value 100, and therefore, that should
happen. Unless someone could give a convincing argument (on the
language level, not on the implementation level) something else
should happen.
Abigail
--
# Count the number of lines; code doesn't match \w. Linux specific.
()=<>;$!=$=;($:,$,,$;,$")=$!=~/.(.)..(.)(.)..(.)/;
$;++;$*++;$;++;$*++;$;++;`$:$,$;$" $. >&$*`;
------------------------------
Date: 12 Mar 2003 20:32:57 GMT
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Subject: Re: my $x = 100 for 1..3 why is $x undef
Message-Id: <slrnb6v615.t4.rgarciasuarez@dat.local>
Brian McCauley wrote in comp.lang.perl.misc :
>
> The use of my() within a statement with a modifier is currently
> documented as having undefined semantics! Logically it should
> ultimately become a compile time error. For now I'd settle for a
> class D (deprecation) message.
I don't know what's better :
- explicitly forbid that construct
- decide unambiguously what this construct means
In such matters, I usually in favor of looking at what Perl 6 will do
in a similar case, and try to backport it to Perl 5.
--
$japh="Just another Perl hacker,\n";@j=split/(?= )/,$japh;for my $i
(0..3){*{(($x)=$j[3-$i]=~/\w+/g)[0]}=sub(@){print$j[$i]}}eval$japh;
------------------------------
Date: Wed, 12 Mar 2003 22:44:18 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: my $x = 100 for 1..3 why is $x undef
Message-Id: <slrnb6ve22.79p.mgjv@verbruggen.comdyn.com.au>
On 12 Mar 2003 07:08:57 GMT,
Abigail <abigail@abigail.nl> wrote:
> Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMMCDLXXX September
> MCMXCIII in <URL:news:slrnb6t9av.79p.mgjv@verbruggen.comdyn.com.au>:
> ##
> ## It is not a bug, because it is documented to result in undefined
> ## behaviour.
>
> I'm not quite sure I agree with that.
I can understand that.
> When people started trying this construct ('my $foo = 1 if 0;'),
> people argued whether that was a feature or not. Only after p5p
> couldn't decide what to do with it, they decided to at least
> document it as having undefined behaviour.
And I suspect that the main reason this is now documented to be
undefined behaviour, is because the p5p couldn't agree on what the
correct behaviour should be. Until the decision is made what the
behaviour should be, and that decision is implemented, the behaviour
is documented to be undefined, and therefore any behaviour of a
construct like that is allowed to occur.
> Generally speaking, bugs don't go away just because you document them.
From the perspective of the user of Perl, the language, there is no
bug (IMO), simply because there is no documented "correct" behaviour.
On the contrary, the documented behaviour is explicitly undefined.
From the perspective of the p5p this might be a bug, because it is
desirable to define this behaviour, and correctly implement it.
This is why I mentioned before that the p5p still might be interested
in this discussion.
Historically, behaviour that was not documented, was assumed to be
defined by the current implementation of Perl. This has caused a large
amount of weird backward compatibility issues, and not always in
desirable behaviour, but instead, historical behaviour. Explicitly
documenting something to be undefined allows the p5p to later define
it, and implement it in the way that is desirable, instead of
historical.
As far as I am concerned, it is the same discussion that goes on all
the time in the C newsgroups. Why has certain behaviour been
specifically left undefined? Because the people defining the language
could not agree on "correct" behaviour, or because imposing a certain
behaviour would compromise portability or performance. This last one
is not as much of an issue with perl, but the first one is.
So, concluding, from the language point of view, I see no bug. From
the p5p point of view, it is an issue to be dealt with.
Martien
--
|
Martien Verbruggen | Unix is the answer, but only if you phrase
Trading Post Australia | the question very carefully
|
------------------------------
Date: 12 Mar 2003 11:08:21 -0800
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: new Perl feature request: call into shared libs
Message-Id: <1bff1830.0303121108.2d662a9b@posting.google.com>
Guenter <no.spam@gknw.de> wrote in message news:<3E623A70.4000704@gknw.de>...
> Hi all,
> although I dont like VBScript, what I really like from it is the
> possibility to directly call into shared libs. This works not only on
> Win32 but also on NetWare platform.
> I really wish we could have a similar way of calling shared libs from
> Perl, that would often simplify things and eliminate writing wrappers in
> C, and that would be fine on every platform...
>
> any oppinions??
>
> and does someone know where I can post such a feature request?? Or are
> here some core developers hanging around which could forward to the
> right list/newsgroup??
>
> thanks, Guenter.
I just noticed that there is a module C::DynaLib on CPAN. I was able
to use it under Linux. (Of course I already did too much work in this
thread, looking at assembly, and blabbering about calling
conventions).
It seems to support cdecl among other conventions, plus some
capability to turn perl sub-refs to C-callbacks. All along I thought
you would have to use assembly, and this module uses the alloca
function, to allocate space on the stack.
Here is a short example.
my $call;
my $so = "./test_1.so";
my $libref = DynaLoader::dl_load_file($so, 1);
$call = C::DynaLib::DeclareSub({
ptr => DynaLoader::dl_find_symbol($libref, "call_v_v"),
return => 0
});
$call->(1, 2);
$call = C::DynaLib::DeclareSub({
ptr => DynaLoader::dl_find_symbol($libref, "call_i_ii"),
return => "i",
args => ["i", "i"]
});
$call->(1, 2);
$call = C::DynaLib::DeclareSub({
ptr => DynaLoader::dl_find_symbol($libref, "call_i_dd"),
return => "i",
args => ["d", "d"]
});
$call->(3.14, 2.14);
------------------------------
Date: 12 Mar 2003 10:52:39 -0800
From: Crapnut566@yahoo.com (Nataku)
Subject: Re: panic error
Message-Id: <7e48fc99.0303121052.594edbb8@posting.google.com>
I have never seen this error myself, but then I have never had need
for perl threads yet. What exactly are you doing with this program?
smileypete2@yahoo.com (Smiles) wrote in message news:<63ccfece.0303120802.1e025b69@posting.google.com>...
> I'm not exactly a newbie. But I have never recieved a panic error
> until now. I am running:
>
> Perl Version: Activestate Perl 5.8.0 Build 804.
> OS: Windows 2000 Service Pack 3
>
> The error is "panic: COND_INIT (1816)". The application I am writing
> uses threads and I believe it has something to do with that. If I
> increase the number of threads the error appears sooner than later.
>
> I would appreciate it if anyone could bring this to light for me.
>
> Smiles
------------------------------
Date: 12 Mar 2003 20:27:43 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: panic error
Message-Id: <slrnb6v61v.1ud.abigail@alexandra.abigail.nl>
Smiles (smileypete2@yahoo.com) wrote on MMMCDLXXX September MCMXCIII in
<URL:news:63ccfece.0303120802.1e025b69@posting.google.com>:
~~ I'm not exactly a newbie. But I have never recieved a panic error
~~ until now. I am running:
~~
~~ Perl Version: Activestate Perl 5.8.0 Build 804.
~~ OS: Windows 2000 Service Pack 3
~~
~~ The error is "panic: COND_INIT (1816)". The application I am writing
~~ uses threads and I believe it has something to do with that. If I
~~ increase the number of threads the error appears sooner than later.
~~
~~ I would appreciate it if anyone could bring this to light for me.
That's a bug in perl. It should never happen. Please write a *SMALL*
program that triggers this behaviour, and use the perlbug command
to report it.
Abigail
--
perl -we 'eval {die ["Just another Perl Hacker\n"]}; print ${${@}}[$#{@{${@}}}]'
------------------------------
Date: 12 Mar 2003 20:32:57 GMT
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Subject: Re: panic error
Message-Id: <slrnb6v6di.t4.rgarciasuarez@dat.local>
Smiles wrote in comp.lang.perl.misc :
> I'm not exactly a newbie. But I have never recieved a panic error
> until now. I am running:
>
> Perl Version: Activestate Perl 5.8.0 Build 804.
> OS: Windows 2000 Service Pack 3
>
> The error is "panic: COND_INIT (1816)". The application I am writing
> uses threads and I believe it has something to do with that.
Very probable.
Are you short on memory or other resources ?
> If I
> increase the number of threads the error appears sooner than later.
>
> I would appreciate it if anyone could bring this to light for me.
------------------------------
Date: Thu, 13 Mar 2003 01:50:19 +0800
From: <tester@aol.com>
Subject: Perl Auto Form Filler
Message-Id: <ReEJN#L6CHA.272@newsgroup.korea.com>
I have a lot of forms to fill online. Most of them have the same format:
Name, Address, Phone etc. I have programmed a Perl program to "post" those,
however because all the fields are not done on 1 page-- (such as fill name
on page one then click submit then fill address on page 2 then submit then
address on page 3) All info are saved as cookie in my local machine.
I am wonder if the cookie_jar thing in Perl can save the cookie and pass the
cookie to the next page it visit.
Can anyone give me an example of save and reuse the cookie? Thanks a lot.
Otherwise, I have to use VB or VC to do, but I have no idea on how to
program in VB/VC
------------------------------
Date: Wed, 12 Mar 2003 12:50:14 -0500
From: L D Jones <45673&5@yahoo.co.uk>
Subject: Re: Perl Module to do SSL encrypted FTP
Message-Id: <3E6F7356.32CCBD5B@yahoo.co.uk>
Richard Diaz wrote:
>
> Hello,
>
> I am new to Perl, but I have been happily gobbling up all things Perl
> as fast as I can find it. I've written a few scripts that we are now
> using in production to process EDI documents and it is going great.
> This newsgroup is a godsend.
>
> Now for the request, I need to send and receive files via SSL
> encrypted FTP. Are there any modules that will allow me to do this
> easily? Or does anyone have some code snippets that will do this?
>
> I am currently using the Net::FTP module in one of my scripts with
> great success, but I do not believe it supports SSL encrypted FTP.
> Please note that this is different from SFTP, which is FTP over SSH.
> I also cannot use SCP, as our partner is using SSL encrypted FTP to
> communicate with other vendors, and I am quite sure they will not
> switch just for us. I am currently using WS_FTP Pro, which supports
> FTP with SSL, to do this manually. They have a scripting facility in
> the application, but I don't want to use it. All our other functions
> are being/have been written in Perl, why shouldn't this be? And
> anyway, doesn't perl make hard things possible? ;)
>
> Seriously, I really appreciate any advice anyone could offer.
One way to do this is to write your own script using LWP. See README.SSL
in the libwww-perl distribution. I haven't used Net::FTP so I don't know
if it can be used with SSL
------------------------------
Date: Thu, 13 Mar 2003 01:45:54 +0800
From: <tester@aol.com>
Subject: posting test
Message-Id: <QrESv7L6CHA.252@newsgroup.korea.com>
nothing.
------------------------------
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 4700
***************************************
