[18148] in Perl-Users-Digest
Perl-Users Digest, Issue: 316 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 19 18:05:51 2001
Date: Mon, 19 Feb 2001 15:05:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <982623911-v10-i316@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 19 Feb 2001 Volume: 10 Number: 316
Today's topics:
Re: \w{1} matches more than 1 character (Csaba Raduly)
Re: \w{1} matches more than 1 character <bertilow@chello.se>
CGI Problem <M.I.Planchant@ncl.ac.uk>
Re: CGI Problem <bart.lateur@skynet.be>
Re: CGI Problem (Jon Bell)
CGI script hanging while reading STDIN in IIS <p.a.a.v.o@ebi.ee>
Re: CGI script hanging while reading STDIN in IIS <p.a.a.v.o@ebi.ee>
Re: CGI script hanging while reading STDIN in IIS <tony_curtis32@yahoo.com>
Re: CGI script hanging while reading STDIN in IIS <flavell@mail.cern.ch>
Re: checking uploaded GIF / JPEG file size <tore@extend.no>
Re: delete lock file, possible race condition or dead l nobull@mail.com
Examples of Using HTML Parser <grichards@endertechnology.com>
Re: Examples of Using HTML Parser <tony_curtis32@yahoo.com>
Help with Mail::Send needed <joachim.rose@psi.ch>
IT Security Game <mellissa@intrapromote.com>
Re: Linda, this is cool! (Csaba Raduly)
Re: Linda, this is cool! <flavell@mail.cern.ch>
Re: newbie regex linebreaks problem <bart.lateur@skynet.be>
Path problem using activestate per 5.6 on windows 95 <sbateson@myisp.co.uk>
Re: Path problem using activestate per 5.6 on windows 9 <godzilla@stomp.stomp.tokyo>
Re: perl irc channel (Randal L. Schwartz)
Re: perl irc channel <a.v.a@home.nl>
Problem with XSUB.h under win32? <eric.kort@vai.org>
Re: PROPOSAL: Graphics::ColorNames <wlkngowl@unix.asb.com>
Re: PROPOSAL: Graphics::ColorNames (Abigail)
QUE: Constant subroutine ..... undefined at <mike@acropolis.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Feb 2001 18:36:50 +0000 (UTC)
From: real.email@signature.this.is.invalid (Csaba Raduly)
Subject: Re: \w{1} matches more than 1 character
Message-Id: <Xns904DBCE85quuxi@194.203.134.135>
And so it came to pass that "Bertilo Wennergren" <bertilow@chello.se>
on 18 Feb 2001 wrote <XFGj6.888$MU.8225@nntp1.chello.se>:
>The following two scripts do not produce the same output for me.
>I think they should, as the only difference should be totally
>irrelevant:
>
>-----------------------------------------------------------
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> $_ = "aaa";
> $_ =~ s/(\w{1})/\U$1/;
>
> print; # Prints "Aaa"
>
>-----------------------------------------------------------
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use utf8;
>
> $_ = "aaa";
> $_ =~ s/(\w{1})/\U$1/;
>
> print; # Prints "AAA"
>
>-----------------------------------------------------------
>
>In the second version "\w{1}" matches all three characters,
>which is crazy, no?
>
>Is the "utf8" pragma bonkers?
>
Perhaps in conjunction with the {1} multiplier (?).
s/(\w)/\U$1/;
works correctly, even with UTF8.
s/(\w{2})/\U$1/; doesn't work either (no multiplier does, apparently)
>For your information:
>
> perl -v
>
> This is perl, v5.6.0 built for MSWin32-x86-multi-thread
> (with 1 registered patch, see perl -V for more detail)
>
My Perl is v5.6.0, built for os2
Also tried it on the ActivePerl 613 binary build.
--
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
You are in a maze of twisted little minds, all different.
------------------------------
Date: Mon, 19 Feb 2001 20:09:57 GMT
From: "Bertilo Wennergren" <bertilow@chello.se>
Subject: Re: \w{1} matches more than 1 character
Message-Id: <p4fk6.1154$MU.16179@nntp1.chello.se>
Csaba Raduly:
> And so it came to pass that "Bertilo Wennergren" <bertilow@chello.se>
> on 18 Feb 2001 wrote <XFGj6.888$MU.8225@nntp1.chello.se>:
> >The following two scripts do not produce the same output for me.
> >I think they should, as the only difference should be totally
> >irrelevant: [...]
> >In the second version "\w{1}" matches all three characters,
> >which is crazy, no?
> >Is the "utf8" pragma bonkers?
> Perhaps in conjunction with the {1} multiplier (?).
> s/(\w)/\U$1/;
> works correctly, even with UTF8.
You're right. The {1} multiplier (if that can be called "multiplying")
seems to completely break when the utf8 pragma comes into play.
> s/(\w{2})/\U$1/; doesn't work either (no multiplier does, apparently)
Bad, bad!
Could anyone test this with a more recent Perl, e.g. on Unix or Linux?
Lots of things seem to have happened recently with Unicode. Does anyone
have a new test build to try this code on?
--
#####################################################################
Bertilo Wennergren
<http://purl.oclc.org/net/bertilo>
<bertilow@chello.se>
#####################################################################
------------------------------
Date: 19 Feb 2001 16:16:15 GMT
From: "M.I. Planchant" <M.I.Planchant@ncl.ac.uk>
Subject: CGI Problem
Message-Id: <96rgsf$ou8$1@ucsnew1.ncl.ac.uk>
I'm trying to write a perl script which given a directory containg text file
reads in all the fileas and appeands them all to one large file. I wrote the
program and it worked fine. The directory was passed as an argument and the
appeanded file was created. Now I trying to get it to run on the web server but
im having a few problems. This is the code I have so far.
$dir = "/........../thisdir";
open OUT, ">out.txt" || die("Can't open file!");
foreach (<$dir[0]/*>)
{
if (-f)
{
open IN, "<".$_ || die("Can't open file!");
while (<IN>)
{
print OUT;
}
close IN;
}
}
close OUT;
Any help would be appreciated...
Cheers,
Matt
------------------------------
Date: Mon, 19 Feb 2001 16:43:20 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: CGI Problem
Message-Id: <s0j29t0m2j4djg48hhge0u5n3ev3cjfqj7@4ax.com>
M.I. Planchant wrote:
>I'm trying to write a perl script which given a directory containg text file
>reads in all the fileas and appeands them all to one large file. I wrote the
>program and it worked fine. The directory was passed as an argument and the
>appeanded file was created. Now I trying to get it to run on the web server but
>im having a few problems.
The Idiot's Guide to Solving Perl CGI Problems
<http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
Q:Under what uid does the server runs its CGI programs?
A:wwwuser (Oops, it can't write my files or directories.)
Could that be it?
You need X (as well as W) permission on a directory in order to be able
to create a new file in it.
> open OUT, ">out.txt" || die("Can't open file!");
> open IN, "<".$_ || die("Can't open file!");
That won't help much. You have a precedence problem. Either put parens
around the arguments for open(), or use "or" instead of "||".
--
Bart.
------------------------------
Date: Mon, 19 Feb 2001 16:52:09 GMT
From: jtbell@presby.edu (Jon Bell)
Subject: Re: CGI Problem
Message-Id: <G90K6x.32o@presby.edu>
In article <96rgsf$ou8$1@ucsnew1.ncl.ac.uk>,
M.I. Planchant <M.I.Planchant@ncl.ac.uk> wrote:
> [...] I wrote the program and it worked fine. [...] Now I trying to
> get it to run on the web server but im having a few problems.
What *kind* of problems? What error messages are you seeing, in the log
files or elsewhere?
In general, if a Perl script works at the command line but not as a CGI
script, the problem lies with not understanding one or more of the
following:
(a) the CGI protocol
(b) the environment in which your script is running
(c) the configuration of your Web server
none of which have to do with Perl specifically. For the first two kinds
of problems, comp.infosystems.www.authoring.cgi might be a good place to
ask; for the third, one of the comp.infosystems.www.servers.* groups,
depending on which server you're using.
--
Jon Bell <jtbell@presby.edu> Presbyterian College
Dept. of Physics and Computer Science Clinton, South Carolina USA
------------------------------
Date: Mon, 19 Feb 2001 19:35:16 +0200
From: Paavo Helde <p.a.a.v.o@ebi.ee>
Subject: CGI script hanging while reading STDIN in IIS
Message-Id: <3A915954.9B53A527@ebi.ee>
I am forced to port some old-fashioned CGI scripts from Linux/Apache to
NT/IIS/ActiveState. Apart from other nasty things I have the problem
with POST method script handlers. It seems they just sit in <STDIN>
clause and I am not able to read in form parameters. On another Win32
www server (FNord) everything works fine, but I have to use IIS (which
is situated actually in another town, to make things more complicated).
Another question (may-be related) is about Perl documentation on setting
up CGI scripts on IIS:
---
8.Select the App Mappings tab and click the Add button. You see the
Add/Edit Application Extension Mapping dialog.
9. To run Perl as a CGI application, type the full path to Perl.EXE
followed by %s %s. When a script is executed, the first %s will be
replaced by the full path to the script, and the second %s will be
replaced by the script parameters.
---
I do not understand what they mean by script parameters here. The
parameters should come from PATH_INFO environment variable or STDIN for
GET/POST method CGI-s respectively. Is this some IIS extension?
TIA
Paavo
------------------------------
Date: Mon, 19 Feb 2001 19:57:47 +0200
From: Paavo Helde <p.a.a.v.o@ebi.ee>
Subject: Re: CGI script hanging while reading STDIN in IIS
Message-Id: <3A915E9B.9D091581@ebi.ee>
Sorry, problem solved. Had to resort to reading manual... found
$ENV{CONTENT_LENGTH}. Now preparing myself for rewriting all scripts ;-(
Paavo.
Paavo Helde wrote:
>
> I am forced to port some old-fashioned CGI scripts from Linux/Apache to
> NT/IIS/ActiveState. Apart from other nasty things I have the problem
> with POST method script handlers. It seems they just sit in <STDIN>
> clause and I am not able to read in form parameters. On another Win32
> www server (FNord) everything works fine, but I have to use IIS (which
------------------------------
Date: 19 Feb 2001 11:59:29 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: CGI script hanging while reading STDIN in IIS
Message-Id: <87zofiy2ny.fsf@limey.hpcc.uh.edu>
[ rearranged post to fix upside-down quoting ]
>> On Mon, 19 Feb 2001 19:57:47 +0200,
>> Paavo Helde <p.a.a.v.o@ebi.ee> said:
> Paavo Helde wrote:
>> I am forced to port some old-fashioned CGI scripts
>> from Linux/Apache to NT/IIS/ActiveState. Apart from
>> other nasty things I have the problem with POST method
>> script handlers. It seems they just sit in <STDIN>
>> clause and I am not able to read in form parameters. On
>> another Win32 www server (FNord) everything works fine,
>> but I have to use IIS (which
> Sorry, problem solved. Had to resort to reading
> manual... found $ENV{CONTENT_LENGTH}. Now preparing
> myself for rewriting all scripts ;-(
Save yourself lots of hassles and vulnerabilities:
perldoc CGI
It might be time-consuming to migrate everything but it's
probably a good idea.
hth
t
--
The avalanche has already started.
It is too late for the pebbles to vote.
------------------------------
Date: Mon, 19 Feb 2001 19:14:40 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: CGI script hanging while reading STDIN in IIS
Message-Id: <Pine.LNX.4.30.0102191913230.2583-100000@lxplus003.cern.ch>
On Mon, 19 Feb 2001, Paavo Helde was observed suspended from an nntp
server, declaiming:
> Sorry, problem solved. Had to resort to reading manual... found
> $ENV{CONTENT_LENGTH}. Now preparing myself for rewriting all scripts ;-(
Looks like another good advertisement for CGI.pm
------------------------------
Date: Mon, 19 Feb 2001 17:06:58 +0100
From: Tore Aursand <tore@extend.no>
Subject: Re: checking uploaded GIF / JPEG file size
Message-Id: <MPG.14fb630b7820aa4f9898ba@news.online.no>
In article <96ml3e$n3v$03$1@news.t-online.com>, "Alexander \"just me\"
Apartsev" <info@just-me.de> says...
> I woluld like to check the size (in pixels, not the file size) of
> an uploaded file (gif or jpeg)
#!/usr/bin/perl
#
use strict;
use Image::Size; # download this module from www.cpan.org
my ($width, $height) = imgsize('./picture.jpg');
--
Tore Aursand - tore@extend.no - http://www.extend.no/~tore/
------------------------------
Date: 19 Feb 2001 17:57:22 +0000
From: nobull@mail.com
Subject: Re: delete lock file, possible race condition or dead lock?
Message-Id: <u9ofvy4ku5.fsf@wcl-l.bham.ac.uk>
None of this really has anyhing whatever to do with Perl - the same
prinicples would apply whatever language you did this in.
"John Lin" <johnlin@chttl.com.tw> writes:
> For some reason (to keep the directory clean) I have to delete
> the lock file after locking. So I adapt the traditional
> open-flock-close sequence into test-open-flock-close-unlink:
>
> use strict;
> use Fcntl ':flock';
> my $lockfile = 'lock.file';
> $| = 1;
> for(1..3) {
> fork; # to simulate multi-access
> if(-f $lockfile) { print "$lockfile exists\n"; next }
> local *F;
> if(not open F,"+>$lockfile") { print "can't open\n"; next }
> if(not flock F,LOCK_EX) { print "can't lock\n"; next }
> print sleep 1 for 1..3; # do something here
> close F;
> unlink $lockfile;
> }
>
> Could this extra action (delete the lock file) cause race condition
> or dead lock?
There is a race because two jobs can simultaneous observe that there
is no lockfile and both open the lockfile. The first job can get the
lock immediately and the second job can lock the lockfile immediately
the first releases the lock. The first job will then unlink() the file
that is now locked by the second job allowing a third job to create
and lock a new lock file so that both the second and third jobs would
believe they held the lock.
Note the -f check is redundant so you may as well remove it.
If the filesystem and OS support it, you can use sysopen to atomically
create a lock file. In this case the flock() becomes redundant.
> I am not sure by eye-checking, but experiments seem
> to show that it is OK.
When trying to check for race conditions heuristically you must insert
random delays between each step. Otherwise, if you have a race that's
only got a 1:100000000 chance of causing trouble, you are unlikley to
actually see it! (Not that I'd actually recomend ever looking for
race condition heuristically).
if(not open F,"+>$lockfile") { print "can't open\n"; next }
sleep rand 5;
if(not flock F,LOCK_EX) { print "can't lock\n"; next }
sleep rand 5;
close F;
sleep rand 5;
unlink $lockfile;
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 19 Feb 2001 22:31:48 GMT
From: "Gabriel Richards" <grichards@endertechnology.com>
Subject: Examples of Using HTML Parser
Message-Id: <o9hk6.44013$_D.6460566@typhoon.we.rr.com>
I don't understand HTML::Parser, in particular, from the docs I don't know
how to do this:
"In order to make the parser do anything interesting, you must make a
subclass where you override one or more of the following methods as
appropriate:"
A subclass? What's that? "The default implementation of these methods do
nothing, i.e., the tokens are just ignored." So, how do I change the
implementation? Can someone point me to some examples please?
Gabe
--
Ender Technology
Website and Database Development for Small Business
http://www.endertechnology.com
310-532-7455
------------------------------
Date: 19 Feb 2001 16:36:08 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Examples of Using HTML Parser
Message-Id: <87vgq6xpuv.fsf@limey.hpcc.uh.edu>
>> On Mon, 19 Feb 2001 22:31:48 GMT,
>> "Gabriel Richards" <grichards@endertechnology.com> said:
> I don't understand HTML::Parser, in particular, from the
> docs I don't know how to do this:
> "In order to make the parser do anything interesting,
> you must make a subclass where you override one or more
> of the following methods as appropriate:"
> A subclass? What's that?
"perldoc perlmod" and "perldoc perltoot"
to find out about perl's interpretation of modules and
objects.
hth
t
--
The avalanche has already started.
It is too late for the pebbles to vote.
------------------------------
Date: Mon, 19 Feb 2001 18:06:36 +0100
From: Joachim Rose <joachim.rose@psi.ch>
Subject: Help with Mail::Send needed
Message-Id: <3A91529C.C5B71383@psi.ch>
Hello,
does anybody know who to set the Reply-To Header with the Mail::Send module ?
Neither $msg->add('Reply-To', 'abc@foo.com')
nor $msg->set('Reply-To', 'abc@foo.com')
seem to work ?
Futhermore I'd like to change the 'From' field, which doesn't work either.
Any ideas ?
Thank you very much in advance.
Best regards,
Achim
------------------------------
Date: Mon, 19 Feb 2001 09:13:16 -0800
From: "Mellissa" <mellissa@intrapromote.com>
Subject: IT Security Game
Message-Id: <3a915232$1@new01.bendcable.com>
I have been playing this game and thought you all would enjoy it as well.
Verado: The IT Security Game, a two-dimensional, multi-level game that puts
the player in the place of an overworked, stressed IT person.
http://www.verado.com/forms/get_verado_game_1.shtml
------------------------------
Date: Mon, 19 Feb 2001 18:25:01 +0000 (UTC)
From: real.email@signature.this.is.invalid (Csaba Raduly)
Subject: Re: Linda, this is cool!
Message-Id: <Xns904DB98F8quuxi@194.203.134.135>
And so it came to pass that "Dave Brondsema" <brondsem@my-deja.com>
on 18 Feb 2001 wrote <z1Ij6.5619$0u5.1057082@news1.rdc1.mi.home.com>:
[snip woes of spam]
>
>there will always be dumb people
>
>
P.T.Barnum had this figured out quite some time ago :-)
--
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
You are in a maze of twisted little minds, all different.
------------------------------
Date: Mon, 19 Feb 2001 19:51:12 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Linda, this is cool!
Message-Id: <Pine.LNX.4.30.0102191950020.2583-100000@lxplus003.cern.ch>
On Mon, 19 Feb 2001, Csaba Raduly wrote:
> P.T.Barnum had this figured out quite some time ago :-)
"This way to the Egress".
[OT, so f'ups redirected]
------------------------------
Date: Mon, 19 Feb 2001 16:54:23 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: newbie regex linebreaks problem
Message-Id: <iij29tgprt1g90b6ilpagae558om9d5nj7@4ax.com>
Jason Goodrow <"goodrow"@opencity. com> wrote:
>I've tried s/%0D%0A/<br>/ and lots of variations.
Your input is probably already decoded when you get at it. So you'll
never see any "%0D" or "%0A" andy more. Instead, you get "\r" and "\n".
You don't need the "\r", so get rid of those:
$textarea =~ tr/\r//d;
You can add "<BR>" for every "\n" if you like, but be very aware: if you
accept just any user supplied HTML just like that, you're in for some
deep shit. People can post malicious Javascripts on your site, or
example.
<http://www.devshed.com/News/CERT_HTML/>
--
Bart.
------------------------------
Date: Mon, 19 Feb 2001 21:06:57 -0000
From: "Stewart Bateson" <sbateson@myisp.co.uk>
Subject: Path problem using activestate per 5.6 on windows 95
Message-Id: <t932oii9iuge9b@xo.supernews.co.uk>
Hello
I have a path problem for perl scripts on activestate perl 5.6 on windows 95
I can run scripts in dos if I set the path before hand; eg set
path=%perl%;h:\perl\bin;
I have added SET PATH = H:\PERL\BIN\;"%PATH%" to my autoexec.bat and tried
it as SET PATH=%PATH%;H:\Perl\bin and SET PATH = H:\PERL\BIN\;%PATH% to no
effect.
Any suggestions would be appreciated.
Stewart
------------------------------
Date: Mon, 19 Feb 2001 14:16:24 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Path problem using activestate per 5.6 on windows 95
Message-Id: <3A919B38.AA4031B6@stomp.stomp.tokyo>
Stewart Bateson wrote:
> I have a path problem for perl scripts on activestate perl 5.6 on
> windows 95 I can run scripts in dos if I set the path before hand;
> eg
> set path=%perl%;h:\perl\bin;
> I have added SET PATH = H:\PERL\BIN\;"%PATH%" to my autoexec.bat
> and tried it as SET PATH=%PATH%;H:\Perl\bin and SET PATH = H:\PERL\BIN\;%PATH%
> to no effect.
> Any suggestions would be appreciated.
As a preface, you cannot correctly install ActiveState
with a 'msi' installer under Win 95 without first
downloading an upgrade, a msi installer, from
Microsoft's home site. Be sure your ActiveState
version is compatiable with Win 95 or you have
taken needed steps to use a 'msi' version.
Information on this is available at ActiveState.
This format should work:
SET PATH=H:\PERL\bin;%PATH%
Your perl.exe must be in your bin directory.
Your path must lead to your perl.exe file. If this
file is not in your bin directory, your ActiveState
did not install correctly.
Do not depend on ActiveState to install this path
nor to install a correct path. I have encountered
many errors with ActiveState screwing up on the
path statement part of an install.
Should you uninstall ActiveState, with intent of
a fresh install, be sure to check your autoexec.bat
to discover if this perl path has been removed and,
your autoexec.bat appears to be ok, before you
reboot or close windows. Sometimes ActiveState
will screw up your autoexec.bat upon uninstall.
As you know, make a backup copy of your autoexec.bat
before making changes. Add your path as the last line
in your autoexec.bat file. You must do a _full_ reboot
of your machine for this to take effect.
Should you encounter a DOS error message upon reboot,
"can't find wincom"
or a similar message, type in at your DOS prompt,
win
(HIT ENTER)
and windows will load, if you are booted to your
drive which contains windows. You can then work
with your autoexec.bat file by moving your perl
path statement upward until windows loads correctly
and, hopefully your perl path. There is a strict
priority order for path statements and a strict
format for path statements. Do not use,
path=h:\perl ... etc
as this will most likely cause windows not to load.
It must be,
set path=h:\perl ... etc
and under almost all circumstances, it must follow
your smart drive.. high memory.. windows..
and other priority boot paths.
If windows refuses to load, you can use a DOS
rename to change your autoexec backup copy to
your autoexec.bat file. At your boot drive
DOS prompt, most likely your C drive,
ren autoexec.bak autoexec.bat
(HIT ENTER)
reboot your machine.
You probably also know you can only run perl within
your H drive and only call perl scripts within your
H drive. Otherwords, you must DOS change to your
H drive or boot-up into your H drive.
As a final note, your DOS syntax, at a DOS prompt,
for running a perl script is,
perl yourscript.pl
My presumption is you know "perl" must proceed
your script name, under DOS.
Godzilla!
------------------------------
Date: 19 Feb 2001 08:10:28 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: perl irc channel
Message-Id: <m1r90uvekr.fsf@halfdome.holdit.com>
>>>>> "AvA" == AvA <a.v.a@home.nl> writes:
AvA> because we intend to be a very user and newbie friendly channel,
AvA> something one cant say about alot of other perl cahnnels randall.
AvA> comae and visit us one day randall and do a guest performance, we would
AvA> appreciate it
I'm already hanging out on one or two others. Any more and my boss
would probably fire me.
:-)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 19 Feb 2001 16:29:35 GMT
From: AvA <a.v.a@home.nl>
Subject: Re: perl irc channel
Message-Id: <3A9113C0.2194DE15@home.nl>
lol randal, somehow i doubt that anyone would fire you, but okay if you change
ur mind
one day then then we would be honoured
"Randal L. Schwartz" wrote:
> >>>>> "AvA" == AvA <a.v.a@home.nl> writes:
>
> AvA> because we intend to be a very user and newbie friendly channel,
> AvA> something one cant say about alot of other perl cahnnels randall.
> AvA> comae and visit us one day randall and do a guest performance, we would
> AvA> appreciate it
>
> I'm already hanging out on one or two others. Any more and my boss
> would probably fire me.
>
> :-)
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
> <merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 19 Feb 2001 15:20:09 -0500
From: "Eric" <eric.kort@vai.org>
Subject: Problem with XSUB.h under win32?
Message-Id: <96rus9$193n$1@msunews.cl.msu.edu>
I have trouble compiling Perl 5.6.0 and its modules with mingw/GCC on my
Win2000 box. I get numerous errors about incompatible argument type for
command strcmp. The offending line is always simply "XS_VERSION_BOOTCHECK".
When I go to XSUB.h, I see the following code that causes the error
(although there is still no strcmp here, so I suppose the error actually
originiates in XSUB.c? I don't know...): (Read on to discover how I can
fix it...although I can hardly believe the patch is healthy since is
involves removing the entire ifdef condition).
----8<----XSUB.h--------------------------------------
#ifdef XS_VERSION
# define XS_VERSION_BOOTCHECK \
STMT_START { \
SV *tmpsv; STRLEN n_a; \
char *vn = Nullch, *module = SvPV(ST(0),n_a); \
if (items >= 2) /* version supplied as bootstrap arg */ \
tmpsv = ST(1); \
else { \
/* XXX GV_ADDWARN */ \
tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
vn = "XS_VERSION"), FALSE); \
if (!tmpsv || !SvOK(tmpsv)) \
tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
vn = "VERSION"), FALSE); \
} \
if (tmpsv && (!SvOK(tmpsv) || strNE(XS_VERSION, SvPV(tmpsv, n_a)))) \
Perl_croak(aTHX_ "%s object version %s does not match %s%s%s%s
%"SVf,\
module, XS_VERSION, \
vn ? "$" : "", vn ? module : "", vn ? "::" : "", \
vn ? vn : "bootstrap parameter", tmpsv); \
} STMT_END
#else
# define XS_VERSION_BOOTCHECK
#endif
----8<----------------------------------------------
when I get rid of this all, leaving only
----8<----XSUB.h--------------------------------------
# define XS_VERSION_BOOTCHECK
----8<-----------------------------------------------
the problem disappears and I can build. So I have two questions:
1) What am I loosing by stripping out this code?
2) Can someone spot the offending line and propose a fix?
Thanks!
Eric
------------------------------
Date: Mon, 19 Feb 2001 16:50:20 -0500
From: Robert Rothenburg <wlkngowl@unix.asb.com>
Subject: Re: PROPOSAL: Graphics::ColorNames
Message-Id: <3A91951C.6460473A@unix.asb.com>
Abigail wrote:
>
> Don't forget that you are programming in *Perl*. If such
> microoptimalization is important to you, forget Perl exists. Use C.
Aye! A few hundren color names for X-windows multipled by 3 elements in
an array? That's a lot.
I would like this module to be useful but small enough for adding to CGI
and mod_perl scripts.
------------------------------
Date: 19 Feb 2001 22:12:00 GMT
From: abigail@foad.org (Abigail)
Subject: Re: PROPOSAL: Graphics::ColorNames
Message-Id: <slrn9936hg.594.abigail@tsathoggua.rlyeh.net>
Robert Rothenburg (wlkngowl@unix.asb.com) wrote on MMDCCXXIX September
MCMXCIII in <URL:news:3A91951C.6460473A@unix.asb.com>:
[ Please, do not send stealth copies to my mailbox. That's something
considered rude ]
|| Abigail wrote:
|| >
|| > Don't forget that you are programming in *Perl*. If such
|| > microoptimalization is important to you, forget Perl exists. Use C.
||
|| Aye! A few hundren color names for X-windows multipled by 3 elements in
|| an array? That's a lot.
Even if you have 333 colour names, you end up with less than a thousand
numbers. An SV holding an integer might be a couple of dozen bytes.
I wouldn't want to use Perl do some something trivial like mapping colour
names on a system where so little memory is considered a lot.
Abigail
--
perl -Mstrict -we '$_ = "goto O.print chop;\n=rekcaH lreP rehtona tsuJ";O1:eval'
------------------------------
Date: 19 Feb 2001 17:39:28 GMT
From: Mihalis Tsoukalos <mike@acropolis.net>
Subject: QUE: Constant subroutine ..... undefined at
Message-Id: <96rlog$2ncg$1@ulysses.noc.ntua.gr>
Hello to every one.
I get the following when I am trying to run a perl script
(running as a service):
noemon@eugenia:~/NOEMON/service > ./noemon.pl
Constant subroutine __stub_lgammal redefined at
/usr/lib/perl5/site_perl/5.005/i586-linux/gnu/stubs.ph line 58.
Constant subroutine __stub_lgammal_r redefined at
/usr/lib/perl5/site_perl/5.005/i586-linux/gnu/stubs.ph line 64.
Constant subroutine __need___va_list undefined at
/usr/lib/perl5/site_perl/5.005/i586-linux/stdarg.ph line 9.
noemon@eugenia:~/NOEMON/service >
Does anyone know what might cause those errors?
Do I have to worry about them?
What can I do to fix them?
Many thanks in advance,
Mihalis.
PS. Using SuSE 7.0 Pro.
---
Please Reply To mtsouk@freemail.gr as well as to the newsgroup.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 316
**************************************
