[19393] in Perl-Users-Digest
Perl-Users Digest, Issue: 1588 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 22 14:05:31 2001
Date: Wed, 22 Aug 2001 11:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <998503509-v10-i1588@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 22 Aug 2001 Volume: 10 Number: 1588
Today's topics:
a Call to exec several bat files (Vic Antillon)
a Perl script to 'call xxx.bat' and return immediately (Vic Antillon)
Re: a Perl script to 'call xxx.bat' and return immediat (Brandon Metcalf)
annoying habit of perl 5 in freebsd <foojh@hotmail.com>
Re: annoying habit of perl 5 in freebsd (John J. Trammell)
Re: annoying habit of perl 5 in freebsd <uri@sysarch.com>
Re: are perl-arrays real arrays <pne-news-20010822@newton.digitalspace.net>
Re: Assigning every element of array but the first to a <dbe@wgn.net>
Calling severl bat files from perl script (Vic Antillon)
days since 1/1/1970 <radiotito@yahoo.com>
Re: days since 1/1/1970 (John J. Trammell)
Extracting Blocks of text (flii)
Re: Extracting Blocks of text <rsherman@ce.gatech.edu>
Re: For loop iterator variable not working correctly?? (Anno Siegel)
i need to count words in perl (Larry S)
Re: i need to count words in perl <Rainer.Klier@erl.sbs.de>
Re: i need to count words in perl <ilya@martynov.org>
Re: i need to count words in perl <holland@origo.ifa.au.dk>
Re: i need to count words in perl <peb@bms.umist.ac.uk>
Re: i need to count words in perl <peb@bms.umist.ac.uk>
Re: Invoking '.bat' files from perl script (Vic Antillon)
Re: Last index of array referenced in a scalar?? (Anno Siegel)
Looking for a module <gt5837c@prism.gatech.edu>
Re: Microsoft Perl (Phil Hibbs)
Re: Microsoft Perl <wsegrave@mindspring.com>
Re: mod_perl problems - core dump using Socket or IO:So <stephen.wylie@xko.co.uk>
Need help trapping 'not a number' errors <cjmackie@princeton.edu>
Re: Perl rookie question! Setting up perl to work with <s.warhurst@rl.ac.uk>
Re: perl4 bashing (was Re: syntax & compilation errors) <ilya@martynov.org>
Re: perl4 bashing (was Re: syntax & compilation errors) (Anno Siegel)
Re: perl4 bashing (was Re: syntax & compilation errors) <jasper@guideguide.com>
Re: This is not a question ... call me slow if you like <pne-news-20010822@newton.digitalspace.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 22 Aug 2001 16:12:40 GMT
From: 70262.1046@compuserve.com (Vic Antillon)
Subject: a Call to exec several bat files
Message-Id: <3b83d9e4.2041215@news.compuserve.com>
I need to be able to call a number of '.bat' files from a Perl script,
one after the other, without waiting for the '.bat' files to return
(since several of them run indefinitely). The 'exec' and 'system'
functions don't seem to return unless the '.bat' file completes, so
typically the first 2 will run, but the 2nd never returns so the
subsequent 8 '.bat' files are never called.
Any ideas? If 'fork()' is the answer, please send an example snippet
of code, since I've never used 'fork()' before and don't know how to
set it up.
Many thanks...Vic
------------------------------
Date: Wed, 22 Aug 2001 15:54:15 GMT
From: 70262.1046@compuserve.com (Vic Antillon)
Subject: a Perl script to 'call xxx.bat' and return immediately
Message-Id: <3b83d4c2.726584@news.compuserve.com>
I need to be able to call a number of '.bat' files from a Perl script,
one after the other, without waiting for the '.bat' files to return
(since several of them run indefinitely). The 'exec' and 'system'
functions don't seem to return unless the '.bat' file completes, so
typically the first 2 will run, but the 2nd never returns so the
subsequent 8 '.bat' files are never called.
Any ideas? If 'fork()' is the answer, please send an example snippet
of code, since I've never used 'fork()' before and don't know how to
set it up.
Many thanks...Vic
------------------------------
Date: 22 Aug 2001 16:31:59 GMT
From: bmetcalf@nortelnetworks.com (Brandon Metcalf)
Subject: Re: a Perl script to 'call xxx.bat' and return immediately
Message-Id: <9m0mpv$a65$1@bcarh8ab.ca.nortel.com>
70262.1046@compuserve.com writes:
> I need to be able to call a number of '.bat' files from a Perl script,
> one after the other, without waiting for the '.bat' files to return
> (since several of them run indefinitely). The 'exec' and 'system'
> functions don't seem to return unless the '.bat' file completes, so
> typically the first 2 will run, but the 2nd never returns so the
> subsequent 8 '.bat' files are never called.
>
> Any ideas? If 'fork()' is the answer, please send an example snippet
> of code, since I've never used 'fork()' before and don't know how to
> set it up.
use Win32::Process;
$Win32::Process::Create::ProcessObj = '';
Win32::Process::Create($Win32::Process::Create::ProcessObj,
"$Config{bin}/perl.exe",
"perl script_name",
0,
'DETACHED_PROCESS',
".") or die print_error();
Brandon
------------------------------
Date: Thu, 23 Aug 2001 01:36:54 +0800
From: "JH Foo" <foojh@hotmail.com>
Subject: annoying habit of perl 5 in freebsd
Message-Id: <9m0qj4$g0l$1@newsie.singa.pore.net>
It seems that Perl on Freebsd (4.3) has this annoying habit:
in the following environment:
print "x";
sleep 5;
print "y";
Perl will sleep 5 seconds, THEN print 'x' and 'y'. Also, where flock is
concerned":
open (infile,'>>file.txt');
flock (infile,2) || die "cannot get lock!";
Perl will always complain of trying to get a lock on a close file handle.
this suggests that it is trying to flock BEFORE the open command.
I've not been able to find any documentation of this behaviour anywhere on
the Internet. if anyone can suggest a workaround, please advise!
------------------------------
Date: 22 Aug 2001 17:49:10 GMT
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: annoying habit of perl 5 in freebsd
Message-Id: <slrn9o8baj.bce.trammell@haqq.hypersloth.net>
On Thu, 23 Aug 2001 01:36:54 +0800, JH Foo <foojh@hotmail.com> wrote:
> It seems that Perl on Freebsd (4.3) has this annoying habit:
It's not a Perl thing, and it's not (just) a FreeBSD thing.
It's a *nix thing. One solution is:
print STDERR "x";
> open (infile,'>>file.txt');
Always check the return value from open().
open (INFILE,'>>file.txt') or die "open() failed: $!";
--
If you don't look at the fnord, it can't get you.
------------------------------
Date: Wed, 22 Aug 2001 17:51:16 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: annoying habit of perl 5 in freebsd
Message-Id: <x7n14sgezq.fsf@home.sysarch.com>
>>>>> "JJT" == John J Trammell <trammell@haqq.hypersloth.invalid> writes:
JJT> On Thu, 23 Aug 2001 01:36:54 +0800, JH Foo <foojh@hotmail.com> wrote:
>> It seems that Perl on Freebsd (4.3) has this annoying habit:
JJT> It's not a Perl thing, and it's not (just) a FreeBSD thing.
JJT> It's a *nix thing. One solution is:
JJT> print STDERR "x";
or make stdout autoflush:
$|++ ;
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Search or Offer Perl Jobs -------------------------- http://jobs.perl.org
------------------------------
Date: Wed, 22 Aug 2001 19:54:37 +0200
From: Philip Newton <pne-news-20010822@newton.digitalspace.net>
Subject: Re: are perl-arrays real arrays
Message-Id: <u5s7ot4asq4j1mnnvtokfpbc9hatb87bn1@4ax.com>
On 21 Aug 2001 09:35:28 -0700, ziegler@algorilla.de (Joachim Ziegler)
wrote:
> what is the internal representation of perl-arrays?
Have a look at "Perlguts Illustrated": http://gisle.aas.no/perl/illguts/
(the bit starting at "AV").
> are they implemented by succesive chunks of bytes in main menmory,
> each chunk for one array element?
No. There is a C array, but it's an array of pointers to SV's, which
represent the individual elements.
Lots of pointers in the internal guts. You think you have an array of
strings, but what you have is probably an AV*. In the AV structure, you
have a pointer to a struct xpvav, which has a pointer to a C array. This
array has pointers to SVs, which have pointers to struct xpv, which have
pointers to a C array containing the characters in the string.
> how is the dynamical growing achieved? by doubling the corrsponding
> C-array?
Not sure about that. Read the code -- probably in av.c. But first make
sure you really want to know (and that you can read C macros) :)
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Wed, 22 Aug 2001 08:42:47 -0700
From: "$Bill Luebkert" <dbe@wgn.net>
Subject: Re: Assigning every element of array but the first to a hash??
Message-Id: <3B83D2F7.42FE51F7@wgn.net>
"Carlos C. Gonzalez" wrote:
>
> Tad McClellan at tadmc@augustmail.com said...
>
> > Why wait? Write grep(1) in Perl, like I posted about a week ago (wrapped):
> >
> > http://groups.google.com/groups?as_ugroup=comp.lang.perl.misc&as_umsgid=
> > slrn9nigt9.a1l.tadmc%40tadmc26.august.net
>
> Thanks Tad. I will look into this. I can definitely use a grep. I
> remember using it when developing in Delphi and it was an excellent tool.
> Cygwin looks good but it's a bit slow going for me to figure out. It
> uses some Unix terms that I am not too familiar with. The installer
> keeps crashing on me too. I'll keep trying and I will learn but it will
> take a bit of time.
I find it much easier to combine the core pods into one file and use vi(m)
to do my searching. I have a script for 5.5 on my tripod site (needs mods
for 5.6 pod list) that does the combine for me.
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles Mailto:dbe@todbe.com
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
------------------------------
Date: Wed, 22 Aug 2001 16:09:54 GMT
From: 70262.1046@compuserve.com (Vic Antillon)
Subject: Calling severl bat files from perl script
Message-Id: <3b83d926.1850921@news.compuserve.com>
I need to be able to call a number of '.bat' files from a Perl script,
one after the other, without waiting for the '.bat' files to return
(since several of them run indefinitely). The 'exec' and 'system'
functions don't seem to return unless the '.bat' file completes, so
typically the first 2 will run, but the 2nd never returns so the
subsequent 8 '.bat' files are never called.
Any ideas? If 'fork()' is the answer, please send an example snippet
of code, since I've never used 'fork()' before and don't know how to
set it up.
Many thanks...Vic
------------------------------
Date: Wed, 22 Aug 2001 19:04:18 +0200
From: Valentin 30IR976 <radiotito@yahoo.com>
Subject: days since 1/1/1970
Message-Id: <3B83E612.5E0A9EA@yahoo.com>
I would need to get exactly days since 1/1/1970. I need to put this
amount of days on /etc/shadow file on Linux system. I think I could this
manually, and have seen there are modules (Date modules...), but I dont
know hot to make this. On modules I find "business days" between 2
dates(ie. without saturdays, sundays,etc...), but I need all days...
I would appreciate any code...because I am a newbie...
Tito
------------------------------
Date: 22 Aug 2001 17:17:37 GMT
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: days since 1/1/1970
Message-Id: <slrn9o89fd.b6b.trammell@haqq.hypersloth.net>
On Wed, 22 Aug 2001 19:04:18 +0200, Valentin 30IR976 wrote:
> I would need to get exactly days since 1/1/1970.
Well, here's a try:
perl -MTime::Local -e 'printf "%d\n",(time()-timelocal(0,0,0,1,0,70))/86400'
or even:
perl -MTime::Local -e 'printf "%f\n",(time()-timelocal(0,0,0,1,0,70))/86400'
> I need to put this
> amount of days on /etc/shadow file on Linux system.
Man, I just do NOT want to hear about it. LA LA LA I CAN'T HEAR YOU.
--
Torg: Quick, blow up that shiny thing!
Kiki: Ooooh!
------------------------------
Date: 22 Aug 2001 08:50:29 -0700
From: flii@zoom.co.uk (flii)
Subject: Extracting Blocks of text
Message-Id: <e53f8197.0108220750.3fe4c0d2@posting.google.com>
I'm sure I'm probably duplicating a past thread, so apologies, but
after an afternoon of searching through deja.com, I've still not quite
been able to come up with what I'm after.
Put simply, a trying to write a short script to extract simple blocks
of text from a ASCII file. The beginning of the text block starts with
a particular string and is terminated with another string or character
(I'm actually extracting blocks of SQL from PL/SQL scripts).
Therefore, the blocks of text are of a variable size, and may be quite
large.
Any pointers would be very gratefully received!!
Cheers
Tim
------------------------------
Date: Wed, 22 Aug 2001 12:16:58 +0500
From: Robert Sherman <rsherman@ce.gatech.edu>
Subject: Re: Extracting Blocks of text
Message-Id: <3B835C6A.DC460666@ce.gatech.edu>
flii wrote:
>
> I'm sure I'm probably duplicating a past thread, so apologies, but
> after an afternoon of searching through deja.com, I've still not quite
> been able to come up with what I'm after.
>
> Put simply, a trying to write a short script to extract simple blocks
> of text from a ASCII file. The beginning of the text block starts with
> a particular string and is terminated with another string or character
> (I'm actually extracting blocks of SQL from PL/SQL scripts).
> Therefore, the blocks of text are of a variable size, and may be quite
> large.
>
> Any pointers would be very gratefully received!!
>
> Cheers
> Tim
if you can predict the content and/or location of the block, use a
regex.
perldoc perlre will give you some info on regexes.
if you want a more specific answer, post some sample text.
--
robert sherman
css, cee
georgia institute of technology
atlanta, ga, usa
------------------------------
Date: 22 Aug 2001 16:06:40 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: For loop iterator variable not working correctly??
Message-Id: <9m0lag$517$2@mamenchi.zrz.TU-Berlin.DE>
According to Abigail <abigail@foad.org>:
> Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCMXIII
> September MCMXCIII in <URL:news:9lvus0$b43$2@mamenchi.zrz.TU-Berlin.DE>:
> '' @new[ 0, 3] = qw( harry@tiger.net Russia);
> ''
> '' though that doesn't set the length of @new to 6.
>
>
> But this does:
>
> @new [0, 3, 5] = qw (harry@tiger.net Russia);
Oh, right. Nice!
Anno
------------------------------
Date: 22 Aug 2001 08:37:37 -0700
From: dime0000@yahoo.com (Larry S)
Subject: i need to count words in perl
Message-Id: <8fd7acb0.0108220737.57aac387@posting.google.com>
ok, i have a variable, $text, which contains a certain amount of words.
i want to display the first 30 words of $text, nothing more.
any simple solutions?
------------------------------
Date: Wed, 22 Aug 2001 16:58:23 -0100
From: Rainer Klier <Rainer.Klier@erl.sbs.de>
Subject: Re: i need to count words in perl
Message-Id: <3B83F2BF.A935BC3A@erl.sbs.de>
Larry S wrote:
>
> ok, i have a variable, $text, which contains a certain amount of words.
> i want to display the first 30 words of $text, nothing more.
> any simple solutions?
print join " ",((split " ",$text)[0..29]);
Hope it helps.
Rainer
------------------------------
Date: 22 Aug 2001 19:50:06 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: i need to count words in perl
Message-Id: <87bsl8ksb5.fsf@abra.ru>
LS> ok, i have a variable, $text, which contains a certain amount of words.
LS> i want to display the first 30 words of $text, nothing more.
LS> any simple solutions?
my @words = ();
push @word, $1 while(@words < 30 and $text =~ /\G\s*(\w+)/g);
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: 22 Aug 2001 17:51:26 +0200
From: Steve Holland <holland@origo.ifa.au.dk>
Subject: Re: i need to count words in perl
Message-Id: <w47r8u49jpd.fsf@origo.ifa.au.dk>
dime0000@yahoo.com (Larry S) writes:
> ok, i have a variable, $text, which contains a certain amount of
> words. i want to display the first 30 words of $text, nothing more.
> any simple solutions?
#! /usr/local/bin/perl -Tw
use strict;
my $words = "";
my $text = "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40";
my @words = split(/\s+/,$text);
for ( my $i=0; $i<30; $i++ ) {
print "$words[$i] ";
}
print "\n";
=====================================================================
To find out who and where I am look at:
http://www.nd.edu/~sholland/index.html
Spammers: Please send spam to: abuse@aol.com and abuse@yahoo.com
=====================================================================
------------------------------
Date: Wed, 22 Aug 2001 17:08:48 +0100
From: Paul Boardman <peb@bms.umist.ac.uk>
Subject: Re: i need to count words in perl
Message-Id: <3B83D910.A86FDF8@bms.umist.ac.uk>
Larry S wrote:
>
> ok, i have a variable, $text, which contains a certain amount of words.
>
> i want to display the first 30 words of $text, nothing more.
>
> any simple solutions?
This is a pretty simple solution.
my (@text, $count);
while($text =~ /\b(.+?)\b/g){
push(@text, $1);
last if ++$count == 30;
}
print join(" ", $text), "\n";
HTH
Paul
------------------------------
Date: Wed, 22 Aug 2001 17:09:39 +0100
From: Paul Boardman <peb@bms.umist.ac.uk>
Subject: Re: i need to count words in perl
Message-Id: <3B83D943.CDEDC17F@bms.umist.ac.uk>
Paul Boardman wrote:
>
> Larry S wrote:
> >
> > ok, i have a variable, $text, which contains a certain amount of words.
> >
> > i want to display the first 30 words of $text, nothing more.
> >
> > any simple solutions?
>
> This is a pretty simple solution.
>
> my (@text, $count);
>
> while($text =~ /\b(.+?)\b/g){
> push(@text, $1);
> last if ++$count == 30;
> }
> print join(" ", $text), "\n";
^^^^^
That should be @text of course.
Paul
------------------------------
Date: Wed, 22 Aug 2001 16:42:29 GMT
From: 70262.1046@compuserve.com (Vic Antillon)
Subject: Re: Invoking '.bat' files from perl script
Message-Id: <3b83e0d2.3814705@news.compuserve.com>
Bart....many thanks, that worked just swimmingly!!!!....Vic
On Wed, 22 Aug 2001 00:17:37 GMT, Bart Lateur <bart.lateur@skynet.be>
wrote:
>70262.1046@compuserve.com wrote:
>
>>I'm trying to invoke a series of '.bat' files from within a Perl
>>script. Some of the '.bat' files exit upon completion, and some simply
>>continue running indefinitely. How can I call each '.bat' file without
>>having to wait for it to finish/exit?
>
> system 'start', 'batchfile.bat';
>
>You have no control over the appearance of the window. If that matters,
>use the API call ShellExecute, through the module Win32::API. That way
>you can minimize, or even hide, the window of the batch file.
>
>--
> Bart.
------------------------------
Date: 22 Aug 2001 16:03:39 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Last index of array referenced in a scalar??
Message-Id: <9m0l4r$517$1@mamenchi.zrz.TU-Berlin.DE>
According to Ren Maddox <ren@tivoli.com>:
> On 22 Aug 2001, anno4000@lublin.zrz.tu-berlin.de wrote:
>
> > According to Ren Maddox <ren@tivoli.com>:
> >
> > [...]
> >
> >> "$#" belongs in the same group as "$", "@" and "%".
> >
> > In what sense? In most respects "$#" is fundamentally different
> > from "$", "@" and "%": It doesn't correspond to a data type, or a
> > slot in a stash entry. You can't declare a variable that begins
> > with "$#" while you can with the others. "$#" makes only sense in
> > conjunction with a corresponding array variable, the others are
> > independent of other variables. Where is the similarity?
>
> Sorry that I didn't provide the context -- I meant syntactically, not
> semantically. That is, it's not an operator or a function or anything
> else.
Fair enough, though "$#" does behave like an operator in constructs
like $#$listref, as do "$", "@" and "%" when applied to references.
I find it hard to say what is and what isn't an operator in Perl.
Anno
------------------------------
Date: Wed, 22 Aug 2001 16:51:16 +0000 (UTC)
From: Nickolas Emmanuel A Downey <gt5837c@prism.gatech.edu>
Subject: Looking for a module
Message-Id: <9m0nu4$o3l$4@news-int.gatech.edu>
I was curious to know if there is a module that allows perl to
control system v init scripts. I can of course issue system commands
( system( "/etc/init.d/ppoe-client restart" ) ) but I'm looking for
a cleaner implementation.
Thanks
--
Nickolas Emmanuel A Downey
Georgia Institute of Technology, Atlanta Georgia, 30332
Email: gt5837c@prism.gatech.edu
------------------------------
Date: 22 Aug 2001 08:43:02 -0700
From: phil.hibbs@capgemini.co.uk (Phil Hibbs)
Subject: Re: Microsoft Perl
Message-Id: <153e25f0.0108220743.108dfdce@posting.google.com>
"Paul Fortescue" <paul@net366.com> wrote:
> I think your customer would love you forever if you deleted it
> and installed ActivePerl :)
If it all went well, the customer would never even notice. If it went
wrong, and some of the existing scripts relied on quirky behaviour of
5.001, then I would be in BIG trouble.
Out of interest, what sort of problems would you expect when replacing
MS Perl 5.001 with ActivePerl 5.005?
Phil.
------------------------------
Date: Wed, 22 Aug 2001 10:03:35 -0500
From: "William Alexander Segraves" <wsegrave@mindspring.com>
Subject: Re: Microsoft Perl
Message-Id: <9m0lbs$7c0$1@slb3.atl.mindspring.net>
"Phil Hibbs" <phil.hibbs@capgemini.co.uk> wrote in message
news:153e25f0.0108220258.204b034e@posting.google.com...
> "William Alexander Segraves" <wsegrave@mindspring.com> wrote:
> > BTW, I noted yesterday that IndigoStar, www.indigostar.com, distributes
> > what appears to be the same Perl v. 5.001 as part of the shareware
version
> > of MicroWeb.
>
> It seems unlikely that there will be a 5.005 version of this port
> around, then. Ho hum.
>
> Can anyone point me in the direction of a decent overview of the
> problems with 5.001 so that I can be aware of them?
>
> Phil.
http://www.google.com/search?q=Perl+v+5.001+security+problem&btnG=Google+Sea
rch
BTW, IndigoStar claims in their release history to have upgraded to v
5.0005. When I downloaded MicroWeb, v 5.001 was still in the distribution.
They have not responded to questions.
Bill Segraves
Auburn, AL
------------------------------
Date: Wed, 22 Aug 2001 17:07:57 +0100
From: "Stephen Wylie" <stephen.wylie@xko.co.uk>
Subject: Re: mod_perl problems - core dump using Socket or IO:Socket in startup.pl
Message-Id: <3b83d7c7$0$234$cc9e4d1f@news.dial.pipex.com>
"Thomas Bätzler" <Thomas@Baetzler.de> wrote in message
news:ea07ot0mrui3ujt0bc8rio4s6obncn2ktq@4ax.com...
> Hi,
>
> On Wed, 22 Aug 20010, "Stephen Wylie" <stephen.wylie@xko.co.uk> wrote:
> [...]
> >What controls the
> >actual perl binary used by mod_perl? Any ideas?
. You really should build your own matching Perl, Apache
> and mod_perl yourself - mix'n'match is not a good approach for
> building a stable Apache with mod_perl.
>
A nice idea, but we don't have a working C Compiler for AIX 4.3.3. I've had
trouble installing gcc, and lots of people have posted saying it doesn't
work anyway! I've been hoping to patch something up out of these binary
distros to convince the bosses that there is merit in all this open-source
stuff, but it's a bit uphill for a non-C programmer.
Thanks anyway
Steve
------------------------------
Date: Wed, 22 Aug 2001 12:33:04 -0400
From: "C.J. Mackie" <cjmackie@princeton.edu>
Subject: Need help trapping 'not a number' errors
Message-Id: <9m0ms1$maj$1@cnn.Princeton.EDU>
I'm getting the following error in the middle of a long processing run:
Can't take sqrt of 1.#QNAN
I'm guessing 'NAN' is NotANumber. I can lose this data-point without any
problem, if I can just trap the error, but so far no luck. I've tried the
PerlFAQ suggestions for validating numbers (e.g., /\D/), but no luck. I
also tried searching for 'NAN' but that's clearly not the real content of
the scalar either.
The run performs about 208G calculations, so efficiency matters.
Any suggestions gratefully accepted and tried ASAP. Thanks, --Chris
------------------------------
Date: Wed, 22 Aug 2001 16:31:01 +0100
From: "S Warhurst" <s.warhurst@rl.ac.uk>
Subject: Re: Perl rookie question! Setting up perl to work with IIS or Personal Web Server
Message-Id: <9m0j7m$18am@newton.cc.rl.ac.uk>
The line: #!/usr/bin/perl is for unix.
You need sth like: #!c:/perl/bin/perl.exe
---------¦
Bigus @ work
¦----------
"Melvin Morris" <mmorris@nas-corp.com> wrote in message
news:2863b571.0108201321.36779ba@posting.google.com...
> #!/usr/bin/perl
> use strict;
> use CGI qw(:standard);
> print header;
> print"<b>Test</b>";
------------------------------
Date: 22 Aug 2001 19:18:57 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: perl4 bashing (was Re: syntax & compilation errors)
Message-Id: <87k7zwktr2.fsf@abra.ru>
TM> The *only* Perl is Perl 5. 5.005_03 preferably.
Just curious. Why not Perl 5.6.1? I know that 5.6.0 was very buggy but
I've not heard about any major problems with 5.6.1 with exception for
unicode support.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: 22 Aug 2001 16:20:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: perl4 bashing (was Re: syntax & compilation errors)
Message-Id: <9m0m59$517$3@mamenchi.zrz.TU-Berlin.DE>
According to Tad McClellan <tadmc@augustmail.com>:
> Nomade <lcamargo@vesper.com.br> wrote:
> >tadmc@augustmail.com (Tad McClellan) wrote in message
> news:<slrn9o29i6.qk0.tadmc@tadmc26.august.net>...
> >> Ilya Martynov <ilya@martynov.org> wrote:
>
> >> >which bundle Perl 4 with their OS.
>
> >>You are using a dead, flea-bitten camel carcass perl.
>
> >That one was good...
>
>
> It was taken directly from the FAQ answer that I referenced.
Call me a pedant, but I can never read that quip without noting that
no self-respecting flea would be seen *near* a dead camel, not to
mention bite it.
Anno
------------------------------
Date: Wed, 22 Aug 2001 18:58:50 +0100
From: Jasper McCrea <jasper@guideguide.com>
Subject: Re: perl4 bashing (was Re: syntax & compilation errors)
Message-Id: <3B83F2DA.57B2DADD@guideguide.com>
Anno Siegel wrote:
>
> According to Tad McClellan <tadmc@augustmail.com>:
> > Nomade <lcamargo@vesper.com.br> wrote:
> > >tadmc@augustmail.com (Tad McClellan) wrote in message
> > news:<slrn9o29i6.qk0.tadmc@tadmc26.august.net>...
> > >> Ilya Martynov <ilya@martynov.org> wrote:
> >
> > >> >which bundle Perl 4 with their OS.
> >
> > >>You are using a dead, flea-bitten camel carcass perl.
> >
> > >That one was good...
> >
> >
> > It was taken directly from the FAQ answer that I referenced.
>
> Call me a pedant, but I can never read that quip without noting that
> no self-respecting flea would be seen *near* a dead camel, not to
> mention bite it.
>
> Anno
I don't think that it's specific whether the flea-bitten-ness occurs
post-mortem.
Jasper
--
split//,'019617511192'.
'17011111610114101114'.
'21011141011840799901'.
'17101174';
foreach(0.. # my
$#_){$_[$_ # signature is too
++]^=$_[$_ # bignature
--]^=$_[$_
]^=$_[++ $_]if!($_%
2)}$g.=$_ ,chr($g)=~
/(\w)/&&($o.=$1and
$g='')foreach@_;
print"$o\n"
------------------------------
Date: Wed, 22 Aug 2001 19:54:36 +0200
From: Philip Newton <pne-news-20010822@newton.digitalspace.net>
Subject: Re: This is not a question ... call me slow if you like...
Message-Id: <ifr7otgvmi6tmrq8ddn4j6e8e4r1tde034@4ax.com>
On 22 Aug 2001 09:17:04 GMT, dkcombs@panix.com (David Combs) wrote:
> In article <998311456.28496@itz.pp.sci.fi>,
> Ilmari Karonen <usenet11554@itz.pp.sci.fi> wrote:
> >
> >Sorry. Try the one in my .sig -- the original breaks under perl v5.6.
> >
> >--
> ># Ilmari Karonen -- http://www.sci.fi/~iltzu/
> >s''n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3-_)2_|n\__/\_,_|___/\__|2\__,_|_|
> >1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_)2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\
> >___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n',y/n\n/\n/d,s/\d+/$"x$&/eg,print;
>
>
> Now, just what do we have to do to turn
> those three lines into a perl program?
>
> (especially great would be the exact command line or
> lines we must type in.)
Type in 'perl'. That starts up your Perl interpreter and it'll wait for
you to type in a program. Copy-and-paste Ilmari's sig. If on Unix, you
can type Ctrl+D on a line by itself to terminate the program and have it
run. Otherwise, typing __END__ on a line by itself should work.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
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 1588
***************************************
