[13854] in Perl-Users-Digest
Perl-Users Digest, Issue: 1264 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 3 09:05:34 1999
Date: Wed, 3 Nov 1999 06:05:17 -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: <941637917-v9-i1264@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 3 Nov 1999 Volume: 9 Number: 1264
Today's topics:
Re: * Robust NEWS Application needed ASAP *** (John McKown)
Re: * Robust NEWS Application needed ASAP *** <gellyfish@gellyfish.com>
Re: * Robust NEWS Application needed ASAP *** (Abigail)
Re: * Robust NEWS Application needed ASAP *** (Chris Nandor)
Re: -w <gellyfish@gellyfish.com>
Re: -w (Bart Lateur)
Re: <STDIN> to a @ (David Cantrell)
Re: Apache, Perl, Crypt & MD5 -- Which module? (Abigail)
Re: Apache, Perl, Crypt & MD5 -- Which module? <jjyooi@dcs.qmw.ac.uk>
CGI-Wrapper <Hanny@Yours.Com>
Re: CGI-Wrapper <gellyfish@gellyfish.com>
Re: CGI-Wrapper (Bill Moseley)
Help with Linux and CGI-Wrapper! <Hanny@Yours.Com>
Re: Help with Linux and CGI-Wrapper! <gellyfish@gellyfish.com>
Re: Help with Linux and CGI-Wrapper! (Colin Watson)
Re: I downloaded MacPerl 5.2.Or4 to blue and white G3 (Arved Sandstrom)
Is there a *wildcard that I can use to match text? <scotnet@sympac.com.au>
Re: It is always like this here? (H. Merijn Brand)
Re: It is always like this here? (Abigail)
Re: New Modules: Conversion of C-structs to Perl <rhomberg@ife.ee.ethz.ch>
Re: Onweb <gellyfish@gellyfish.com>
Re: Perl Newbie (Arctor002)
Re: perl on ms PWS on win98 <gellyfish@gellyfish.com>
Re: Problem With Delimited Field Sort <klessa@airmail.net>
Re: real time less than user time? (Dmitry Sazonov)
Re: Recursive Directory Search <gellyfish@gellyfish.com>
Re: result of param() function seems to be cached (Bill Moseley)
Re: simplifying a script <madebeer@igc.apc.org>
Re: Stripping live HTML into text <cjhaggan@dcsun2.comp.brad.ac.uk>
talking with COM-port olli@fidata.fi
Re: talking with COM-port (Bbirthisel)
Re: Year 2000 date problem <tyndiuk@ftls.org>
Re: Year 2000 date problem <rra@stanford.edu>
Re: Year 2000 date problem (Abigail)
Re: Year 2000 date problem <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Re: Year 2000 date problem <bradw@newbridge.com>
Re: Year 2000 date problem (Bill Moseley)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 3 Nov 1999 05:48:59 -0500
From: joarmc@linux2.johnmckown.net (John McKown)
Subject: Re: * Robust NEWS Application needed ASAP ***
Message-Id: <slrn82089b.nk.joarmc@linux2.johnmckown.net>
On 2 Nov 1999 21:05:51 -0600, Abigail <abigail@delanet.com> wrote:
[snip]
>Good for you! Now, why don't you make a pot of coffee, and start writing?
>Abigail
Which? Columns or Code? You really must learn to be more exact in your
requests of people. <grin>
I think the person was asking if anybody knew of an already existing,
debugged piece of software to do this. Perhaps he is not a programmer and
is sincerely looking for help from us to solve a problem. Having heard
all the really great stuff about perl, naturally he turned to us. And
the first response he gets is useless (and somewhat tacky as well).
<sigh> Normally I wouldn't respond at all, but I've noticed that "Abigail"
tends to post these useless messages. "She" will probably say something
tacky to me as well. Not that I mind.
John
------------------------------
Date: 3 Nov 1999 12:10:48 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: * Robust NEWS Application needed ASAP ***
Message-Id: <38202648_2@newsread3.dircon.co.uk>
John McKown <joarmc@linux2.johnmckown.net> wrote:
> On 2 Nov 1999 21:05:51 -0600, Abigail <abigail@delanet.com> wrote:
> [snip]
>>Good for you! Now, why don't you make a pot of coffee, and start writing?
>
> Which? Columns or Code? You really must learn to be more exact in your
> requests of people. <grin>
>
> I think the person was asking if anybody knew of an already existing,
> debugged piece of software to do this. Perhaps he is not a programmer and
> is sincerely looking for help from us to solve a problem. Having heard
> all the really great stuff about perl, naturally he turned to us.
But most of 'us' would agree that this is probably not the place to be asking
for prewritten code, most of 'us' think that this newsgroup is for the
discussion of programming in Perl.
The original poster would be better off somewhere else.
/J\
--
"Gary Glitter pulls out of Children in Need" - BBC News Website
------------------------------
Date: 3 Nov 1999 07:00:24 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: * Robust NEWS Application needed ASAP ***
Message-Id: <slrn820ce1.ls3.abigail@alexandra.delanet.com>
John McKown (joarmc@linux2.johnmckown.net) wrote on MMCCLV September
MCMXCIII in <URL:news:slrn82089b.nk.joarmc@linux2.johnmckown.net>:
<> On 2 Nov 1999 21:05:51 -0600, Abigail <abigail@delanet.com> wrote:
<> [snip]
<> >Good for you! Now, why don't you make a pot of coffee, and start writing?
<>
<> >Abigail
<>
<> Which? Columns or Code? You really must learn to be more exact in your
<> requests of people. <grin>
<>
<> I think the person was asking if anybody knew of an already existing,
<> debugged piece of software to do this. Perhaps he is not a programmer and
<> is sincerely looking for help from us to solve a problem. Having heard
<> all the really great stuff about perl, naturally he turned to us. And
<> the first response he gets is useless (and somewhat tacky as well).
<> <sigh> Normally I wouldn't respond at all, but I've noticed that "Abigail"
<> tends to post these useless messages. "She" will probably say something
<> tacky to me as well. Not that I mind.
And the second response (yours) helped in which way?
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 03 Nov 1999 13:55:41 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: * Robust NEWS Application needed ASAP ***
Message-Id: <pudge-0311990855040001@192.168.0.77>
In article <slrn82089b.nk.joarmc@linux2.johnmckown.net>,
joarmc@linux2.johnmckown.net (John McKown) wrote:
# the first response he gets is useless (and somewhat tacky as well).
# <sigh> Normally I wouldn't respond at all, but I've noticed that "Abigail"
# tends to post these useless messages. "She" will probably say something
# tacky to me as well. Not that I mind.
It was not tacky. It was the most appropriate response I can conceive of.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 3 Nov 1999 11:24:04 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: -w
Message-Id: <38201b54_2@newsread3.dircon.co.uk>
David H. Adler <dha@panix.com> wrote:
> On Mon, 01 Nov 1999 17:22:34 -0800, David Cassell
> <cassell@mail.cor.epa.gov> wrote:
>
>>Uri Guttman wrote:
>>>
>>> >>>>> "DC" == David Cassell <cassell@mail.cor.epa.gov> writes:
>>> DC> Jeff Pinyan wrote:
>>> DC> [snip]
>>> >> On a totally unrelated note, November 9th shall be my undoing. For I
>>> >> shall be 18 years of age. Look out.
>>>
>>> DC> Mazel tov. We eagerly await your posts after Nov 9. Probably
>>> DC> lots of drunken posts after midnight, and then lots of really
>>> DC> surly hangover-laden posts on the subsequent mornings. Should
>>> DC> liven things up considerably. :-)
>
>>> but min drinking age is 21 all over
>>> the .us. but now japhy can vote and create all sorts of nasty perl
>>> voting scripts to elect his favorite politician.
>>
>>Nah, I'm just so old I got to drink legally at age 18.
>
> *I* was lucky enough to be of legal drinking age at 18... for about 3
> months. Then they changed the law on me. Scum. :-/
>
Born in the wrong continent ....
/J\
--
"If I was going to wear a wig I'd choose something a lot better than this"
- Barry Norman
------------------------------
Date: Wed, 03 Nov 1999 11:50:47 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: -w
Message-Id: <382220b3.1699379@news.skynet.be>
V.B. wrote:
>hi all
>im back again.
What version of VB are you?
>im writing several scripts, all that work together. i am using "require"
>to include nessecary scripts.. i would like to use the -w command for
>perl, but if i leave an ending "return1;" -w gives me an error. any ways
>to work around this?
Just a
1;
will do.
You can use anything other that will leave a true value, such as (per
TomC):
"Because I say so";
Even if this generates a warning if you test syntax on this file, it
doesn't when the file is "required", and it works.
--
Bart.
------------------------------
Date: Wed, 03 Nov 1999 10:10:44 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: <STDIN> to a @
Message-Id: <38200513.56282039@10.0.0.155>
On Tue, 2 Nov 1999 07:02:38 -0800, Larry Rosler <lr@hpl.hp.com> said:
>> @array=split(/.{0}/,$letters) if(length($letters)==8);
> ^^^^^^
>Yet another bizarre way of writing // (we've seen /|/ already also in
>this thread).
If I recall correctly, I got that idiom from the FAQ many moons ago.
I see no reason to change my coding style. It is, after all,
perfectly comprehensible. More comprehensible, IMHO, than //.
--
David Cantrell, part-time Unix/perl/SQL/java techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: 3 Nov 1999 05:27:32 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Apache, Perl, Crypt & MD5 -- Which module?
Message-Id: <slrn8206vt.tjn.abigail@alexandra.delanet.com>
Johnny 'Loopy' Ooi (jjyooi@dcs.qmw.ac.uk) wrote on MMCCLV September
MCMXCIII in <URL:news:381FF289.14B41C48@dcs.qmw.ac.uk>:
__ I want to access a password file encrypted using the MD5 method
__ implemented by Apache 1.3.6. Which module do I use? I've searched CPAN
__ and it came up with several options. I don't know which one? Can anyone
__ help? I'm using Win95.
Hmmm, Did you try MD5?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 03 Nov 1999 13:10:01 +0000
From: Johnny 'Loopy' Ooi <jjyooi@dcs.qmw.ac.uk>
Subject: Re: Apache, Perl, Crypt & MD5 -- Which module?
Message-Id: <38203429.478D9CDE@dcs.qmw.ac.uk>
Abigail wrote:
>
> Hmmm, Did you try MD5?
That's the point -- _which_ MD5? CPAN returned lots of variations on MD5
and I'm confused! :-(
--
Johnny Ooi. Aliases: Loopy, Tuxedo Mask, Quote Master.....
E-Mail : jjyooi@dcs.qmw.ac.uk or jjyooi@yahoo.com
WWW : http://www.dcs.qmw.ac.uk/~jjyooi/ or
http://members.xoom.com/Tuxedo_Loopy
ICQ No : 6155774
"Stay sane guys!"
===============================================================
------------------------------
Date: Wed, 3 Nov 1999 08:14:37 -0400
From: "H.A." <Hanny@Yours.Com>
Subject: CGI-Wrapper
Message-Id: <7vp8vh$5cj$1@News.Dal.Ca>
I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
1- How can I get the users to have webpages? i.e public_html. I tried to
create the directory and setup the permessions, but that didn't work!
2- How can I install CGI-Wrapper so users can have Perl on their webpages.
I'm not sure if Linux by default give them access to the CGI-Bin, but I
heard that CGI-Wrapper is the safest.
Thanks
Hanny
------------------------------
Date: 3 Nov 1999 12:18:00 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: CGI-Wrapper
Message-Id: <382027f8_2@newsread3.dircon.co.uk>
H.A. <Hanny@Yours.Com> wrote:
> I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
> 1- How can I get the users to have webpages? i.e public_html. I tried to
> create the directory and setup the permessions, but that didn't work!
Read the Apache documentation. If you have any further questions of this
nature they would be better asked in comp.infosystems.www.servers.unix.
> 2- How can I install CGI-Wrapper so users can have Perl on their webpages.
> I'm not sure if Linux by default give them access to the CGI-Bin, but I
> heard that CGI-Wrapper is the safest.
>
Read the Apache documentation. If you have any further questions of this
nature they would be better asked in comp.infosystems.www.servers.unix.
Neither of these questions have any Perl content in them.
/J\
--
"They're called Virgin Trains because they don't go all the way" -
Simon Hoggart, The Guardian
------------------------------
Date: Wed, 3 Nov 1999 05:59:17 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: CGI-Wrapper
Message-Id: <MPG.1289df92949411ae989836@nntp1.ba.best.com>
H.A. (Hanny@Yours.Com) seems to say...
> I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
> 1- How can I get the users to have webpages? i.e public_html. I tried to
> create the directory and setup the permessions, but that didn't work!
1) ask on a group that deals with web servers.
> 2- How can I install CGI-Wrapper so users can have Perl on their webpages.
> I'm not sure if Linux by default give them access to the CGI-Bin, but I
> heard that CGI-Wrapper is the safest.
2) ask on a group that deals with web servers.
PS -- your questions don't make much sense. do some research on your
own.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 3 Nov 1999 08:17:25 -0400
From: "H.A." <Hanny@Yours.Com>
Subject: Help with Linux and CGI-Wrapper!
Message-Id: <7vp94m$5fl$1@News.Dal.Ca>
I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
1- I made a mistake but selecting one of the partitions (500Meg) as the swap
partition! Anyway, I can fix that to make use of that diskspace?
2- How can I get the users to have webpages? i.e public_html. I tried to
create the directory and setup the permessions, but that didn't work!
3- How can I install CGI-Wrapper so users can have Perl on their webpages.
I'm not sure if Linux by default give them access to the CGI-Bin, but I
heard that CGI-Wrapper is the safest.
Any help will be greatly appreciated
Thanks
Hanny
------------------------------
Date: 3 Nov 1999 12:23:24 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help with Linux and CGI-Wrapper!
Message-Id: <3820293c_2@newsread3.dircon.co.uk>
In comp.lang.perl.misc H.A. <Hanny@Yours.Com> wrote:
> I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
>
Not only do you ask off-topic questions, you post them twice and the
second time crosspost them to a bunch of groups I really would not
want to be seeing the followups from.
*plonk*
<and *plonk* thread too>
/J\
--
"You look lovely this evening. Have you decreased in mass?" - Alien,
The Simpsons
------------------------------
Date: 3 Nov 1999 13:51:41 -0000
From: cjw44@cam.ac.uk (Colin Watson)
Subject: Re: Help with Linux and CGI-Wrapper!
Message-Id: <7vpeld$ktj$1@riva.ucam.org>
In article <7vp94m$5fl$1@News.Dal.Ca>, H.A. <Hanny@Yours.Com> wrote:
>Newsgroups: alt.hipcrime.os.linux.admin
(!) I think not. Removed.
>alt.linux
Never existed (no newgroup message).
>comp.os.linux.questions
Bogus newsgroup. If your provider has it, their news server is broken.
That aside ... :)
>I just reinstalled Linux on my server. I'm running Linux Redhat 6.1
>
>1- I made a mistake but selecting one of the partitions (500Meg) as the swap
>partition! Anyway, I can fix that to make use of that diskspace?
I hope you didn't have any data on that partition - the installer is
likely to have zapped it while running mkswap. You can turn the
partition type back to 83 in fdisk and run mke2fs on it to get a new Linux
partition out of it, though.
>2- How can I get the users to have webpages? i.e public_html. I tried to
>create the directory and setup the permessions, but that didn't work!
Look in /etc/apache/conf/httpd.conf or /etc/httpd/conf/httpd.conf
(whichever exists).
--
Colin Watson [cjw44@cam.ac.uk]
Trinity College, Cambridge, and Computer Science [riva.ucam.org]
"Then hast thou joined the ARPANET? / Oh come to me, my bankrupt boy!
Quick, call the NIC! Send RFCs! / He chortled in his joy." - RFC 527
------------------------------
Date: Wed, 03 Nov 1999 08:29:58 -0400
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: I downloaded MacPerl 5.2.Or4 to blue and white G3
Message-Id: <Arved_37-0311990829580001@dyip-29.chebucto.ns.ca>
In article <j4LT3.5653$pA2.27416@news.rdc1.pa.home.com>,
schinder@leprss.gsfc.nasa.gov wrote:
> >
> >2) When I double clicked on "Install.MPW_Perl", I was told that MPW is
> >not found. Isn't that what I try to install?
>
> No. You can get MPW free from Apple, and a lot of people like it
> (personally, when I want Unix I know where to find it). But you don't
> need it to run MacPerl, and it doesn't come with MacPerl.
>
To elaborate on what Paul said, MacPerl is available as a standalone
application, primarily, but Matthias Neeracher also provides the MPW
(Macintosh Programmers Workshop) 'tool' version of Perl.
In order to make use of the MacPerl MPW tool you pretty obviously need to
have MPW. :-) You can get this, gratis, from Apple. It also is provided
with Codewarrior.
The benefits of having the MacPerl tool running under MPW is that this is
about as close as you can get to the Unix command-line xperience on the
MacOS platform. You can (with some differences when quoting arguments) do
command-line stuff with perl just as you would on Unix.
To sum up, if you're still interested, obtain MPW and install that. Then
launch the tool installer.
Arved Sandstrom
------------------------------
Date: Thu, 04 Nov 1999 01:05:12 +1100
From: Scotty <scotnet@sympac.com.au>
Subject: Is there a *wildcard that I can use to match text?
Message-Id: <38204118.933D142B@sympac.com.au>
I have a cgi perl script and i want to replace a section of HTML that is
put in to a varible. I only want to change it if the value of another
array is true.......... It's a bit complicated to explain fully but
here is what I want to do.
say the vairble = the following:
$middle_col_inputs = "\<td align\=\"center\"\>\<input type\=\"text\"
name\=\"$name\:\:CCCC\:\:$middle_colum_values[$mid_col_num]\:\:$price\"
size\=\"3\" maxlength\=\"4\"\>\<\/td\>\r";
How do I change say just everything between the <td> & </td>.
Is there a wildcard that I can use ....... somthing like:
$middle_col_inputs=~s/\<td align\=\"center\"\>*<\/td\>\r / \<td
align\=\"center\"\><b\>X<\/td\>/g;
(the value of $middle_col_inputs will vary and will not be the same
length every time)
Thank you for your time.
Scott Laughton.
------------------------------
Date: 3 Nov 1999 10:45:47 GMT
From: h.m.brand@hccnet.nl (H. Merijn Brand)
Subject: Re: It is always like this here?
Message-Id: <8E737EF0EMerijn@192.0.1.19>
abigail@delanet.com (Abigail) wrote in
<slrn81usso.tjn.abigail@alexandra.delanet.com>:
>Jon Shemitz (jon@midnightbeach.com) wrote on MMCCLIV September MCMXCIII
>in <URL:news:381F211A.55B2F77@midnightbeach.com>:
>@@ Abigail wrote:
>@@
>@@ > Apparently, you are unware of c.l.p.moderated.
>@@ >
>@@ > Please do your homework, and come back if you have something new.
>@@
>@@ Nope, I read it, too. And I'm aware that people here complain that the
>@@ moderated group is *too* low-volume. (Perhaps you haven't seen those
>@@ messages?)
>
>Message_S_? As in plural? I've seen Larry's complaint. Which got refuted
>by Chris. I haven't seen others.
>
>But, suppose it would be true. That a moderated group is too low-volume.
>That what would creating another moderated group achieve?
I read *ALL* clp.moderated posts (and learn from them) and only threads
from clp.misc in which certain posters (p5p guys, abigail, It Lindley
and some more ...) have taken time to respond.
I've just picked up a subscription to the p5p summary that's posted on
www.perl.com to add to my knowledge.
Sometimes I laugh, sometimes I think and sometimes I scratch the back of
my head in order to try to understand the reply. Sometimes I even find
time to reply, but most of the times one of the people mentioned in my
score file answered before I could with probably a better answer then I
could come up with.
I think that the way the perl newsgroups are set up this very moment
serves both beginners and gurus very well. If you want to cut down the
noise, use a newsreader with good score filtering and the ability to
plonk posters that abuse time and value of the perl community.
You fine people that answer all those messages: Keep on the good work!
This goldmine is better than any perl book.
>@@ Actually, Abigail dear, I was thinking that you would be a perfect
>@@ moderator. You seem to have way too much time on your hands.
>
>I don't even bother to read c.l.p.moderated.
Such a shame, I could use your reply to clp.moderated too
>Abigail
BTW. I read both winnie-the-pooh and all the essential perl books ;-)
--
H.Merijn Brand
using perl5.005.03 on HP-UX 10.20, HP-UX 11.00, AIX 4.2, AIX 4.3,
DEC OSF/1 4.0 and WinNT 4.0, often with perlTk 800.015
ftp://ftp.funet.fi:/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/
Member of Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
------------------------------
Date: 3 Nov 1999 07:03:47 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: It is always like this here?
Message-Id: <slrn820ckc.ls3.abigail@alexandra.delanet.com>
H. Merijn Brand (h.m.brand@hccnet.nl) wrote on MMCCLV September MCMXCIII
in <URL:news:8E737EF0EMerijn@192.0.1.19>:
\\ abigail@delanet.com (Abigail) wrote in
\\ <slrn81usso.tjn.abigail@alexandra.delanet.com>:
\\
\\ >I don't even bother to read c.l.p.moderated.
\\
\\ Such a shame, I could use your reply to clp.moderated too
I tried. But after repeatedly answering a question, and getting it
refused by a moderator because the subject is "off-topic", I decided to
no longer bother.
If for some reason, questions are not off-topic, but the answers to
the questions are - why bother having a group?
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 03 Nov 1999 12:33:21 +0100
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: New Modules: Conversion of C-structs to Perl
Message-Id: <38201D80.6CDF1BBD@ife.ee.ethz.ch>
Kragen Sitaker wrote:
> Alex Rhomberg <rhomberg@ife.ee.ethz.ch> wrote:
> >I did not find any documented method to convert a C/C++ struct to Perl.
> >I therefore wrote something of my own.
>
> Awesomely cool. Have you looked at swig? I think it does something a
> bit like this too.
Didn't know about swig before. Seems to do something similar, only much
much more and more complex. I'd need probably more time to read the doc
than it took to write the functions.
And none of the possibilites seem to address one of my main problems:
dynamic arrays in structures, of the form
Type *array_of_Type;
int n_types; /* size of that array */
My stuff now works for me. The question is: Should I bring it in a form
so it can be used by others, if yes, how.
- Alex
------------------------------
Date: 3 Nov 1999 12:03:02 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Onweb
Message-Id: <38202476_2@newsread3.dircon.co.uk>
In comp.databases.informix Mike Segel wrote:
<snip discussion of how Informix OnWeb ships with Perl and Apache included>
>
> In fact you really shouldn't have used perl at all, for a production
> grade product....
>
Care to explain that ?
/J\
--
"The Spice Girls don't care if I like them or not because I'm not twelve"
- Germaine Greer
------------------------------
Date: 03 Nov 1999 13:28:59 GMT
From: arctor002@aol.com (Arctor002)
Subject: Re: Perl Newbie
Message-Id: <19991103082859.01877.00000530@ng-ci1.aol.com>
Dude, they're snotty and they're gonna flame ya. Don't be discouraged, just go
here:
http://www.dnai.com/~dchrist/HOWTO/
read the "readme.txt" first.
Just a few thoughts. 1) Perl started out as a UNIX thang, so it doesn't happen
in a GUI environment, it happens from a command line. (I.E., you invoke a text
editor with a command, create/edit the text of your program/script, save the
file, and execute the file using a command from your OS's command line.) 2) the
windows command line environment is DOS, and I'm a complete idiot in DOS, any
help grokking my little problems would be appreciated 3)www.activestate.com and
www.perl.com are good places to go, maybe even better than
www.dnai.com/~dchrist/HOWTO/
Good luck.
---Dave
------------------------------
Date: 3 Nov 1999 11:49:59 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perl on ms PWS on win98
Message-Id: <38202167_2@newsread3.dircon.co.uk>
Chris Mannings <md@golden-net.co.uk> wrote:
> Any body know an easy way to get perl to run on a web located on a ms
> Personnal Web Server running on w98? tried mapping to perl exe in regedit,
> tried file assoc in control panel, still getting 'server error 505'. Any
> good ideas?
>
Read the documentation that comes with the Activestate Perl - this has a
whole section on getting Perl to work with various Web Servers.
Questions about Web Servers are best asking in comp.infosystems.www.servers.*
/J\
--
"The chef's salty balls have dropped" - Christopher Price, BBC NEWS 24
------------------------------
Date: Wed, 03 Nov 1999 13:54:23 GMT
From: Kat <klessa@airmail.net>
Subject: Re: Problem With Delimited Field Sort
Message-Id: <7vpeqd$r7m$1@nnrp1.deja.com>
In article <7vntuk$qtg$1@engnews3.Eng.Sun.COM>,
petolino@Eng.Sun.COM (Joe Petolino) wrote:
> The sub compiles OK for me under perl version 5.005_03, but under
> perl version 5.003 I get the same syntax error as you did. Sounds
> like you're running an old version of perl. Do 'perl -v' to check
this.
AHA! thanks, Joe. Looks like that's it. Now I just have to get the
ISP to upgrade their version!
Kathy
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 3 Nov 1999 11:59:10 GMT
From: dima@racoon.riga.lv (Dmitry Sazonov)
Subject: Re: real time less than user time?
Message-Id: <FKMEMM.77w@racoon.riga.lv>
Casper H.S. Dik - Network Security Engineer (Casper.Dik@Holland.Sun.Com) wrote:
: dima@racoon.riga.lv (Dmitry Sazonov) writes:
: >Why is it real time of a linear perl script could be less then user time.
: >Yes, it's dual processor, so what?
: >Any theories?
: Does it fork? Using threaded perl?
yeah, it does; I got it; the child is running on another CPU.
Thanks,
Here's the fork:
my $logStream = "gunzip -c $logFile.gz |" ; #-- Default: file.gz
------------------------------
Date: 3 Nov 1999 11:45:45 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Recursive Directory Search
Message-Id: <38202069_2@newsread3.dircon.co.uk>
J Garcia <garcia868@yahoo.com> wrote:
> I have written a small Perl program to search (regexp
> matching) all files (of user-supplied extension) in
> the current directory for a specific word after
> getting a list of all files using glob().
>
> I would like to know if it there is any function or
> some possible way that would allow me to recursively
> search (pattern matching) all files and directorires
> in the current directory.
>
If you search this group on Deja news for 'recurs' then you will find
loads of stuff ...
/J\
--
"While they're pumping, you're soaking them" - Speed Loader TV Advert
------------------------------
Date: Wed, 3 Nov 1999 05:51:15 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: result of param() function seems to be cached
Message-Id: <MPG.1289ddb1eee919db989834@nntp1.ba.best.com>
johancoens@my-deja.com (johancoens@my-deja.com) seems to say...
> use CGI;
> $cgi = CGI->new();
> @allparams = $cgi->param();
> foreach $param (@allparams){
> AddContent($param); #AddContent is a Intershop function
> AddContent(": ");
> AddContent(param($param));
> AddContent("<BR>");
AddContent( $cgi->param($param) );
You are mixing you calls to CGI.
perldoc CGI
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Sat, 30 Oct 1999 11:28:11 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: simplifying a script
Message-Id: <APC&1'0'50775dd7'70b@igc.apc.org>
wvandenberg wrote:
>#Goal: putting entries out of a database into a html file,
>#you can see an example of the result
See Text::Template at CPAN
-Michael
------------------------------
Date: Wed, 3 Nov 1999 12:50:29 +0000
From: CJ HAGGAN <cjhaggan@dcsun2.comp.brad.ac.uk>
Subject: Re: Stripping live HTML into text
Message-Id: <Pine.SOL.4.02A.9911031249410.7021-100000@dcsun2.comp.brad.ac.uk>
You could try REBOL, it's a nice new language designed specifically for
this type of thing.
Check out www.rebol.com for further info.
Chris
------------------------------
Date: Wed, 03 Nov 1999 12:05:46 GMT
From: olli@fidata.fi
Subject: talking with COM-port
Message-Id: <38205CFA.7C205190@fidata.fi>
How do I construct a Perl script which listens to a COM-port(/dev/ttya
on my solaris box),
but is ready to send text to it too. A two way communication or
something like that.
I want to keep this simple at the moment. I have tested it like this:
---
in.pl:
#!/usr/local/bin/perl -w
open(PORTIN, "/dev/ttya") or die "Something plaah plaah";
while(<PORTIN>) {
print $_;
}
close PORTIN;
---
out.pl:
#!/usr/local/bin/perl -w
open(PORTOUT, "/dev/ttya") or die "plaah plaah";
#send something through the port
print PORTOUT "Testing testing...";
close PORTOUT;
---
These both work as standalone apps, and I ran the in.pl in background
and then ran out.pl
several times. It worked too. How can I put them together?
I hope I will get a simple answer, and not a flame. I've read quite alot
of the FAQ and some of
the manuals, and didn't find any help in them.
Thanks
Olli
------------------------------
Date: 03 Nov 1999 13:42:55 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: talking with COM-port
Message-Id: <19991103084255.04062.00001635@ng-fs1.aol.com>
Hi Olli:
>How do I construct a Perl script which listens to a
>COM-port(/dev/ttya on my solaris box),
>but is ready to send text to it too. A two way communication or
>something like that.
Device::SerialPort from CPAN handles things like that. It has
been used on linux, AIX and Solaris 7 that I know about.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Wed, 03 Nov 1999 12:27:21 +0100
From: Frederic TYNDIUK <tyndiuk@ftls.org>
To: ofuuzo <ofuuzo@ub.uit.no>
Subject: Re: Year 2000 date problem
Message-Id: <38201C19.856279C0@ftls.org>
The year in perl was "modulo" 100, you chould add 1900 to the year...
try with :
@months = ('Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sept','Oct','Nov','Dec');
@days = ('Sun','Mon','Tue','Wed','Thur','Fri','Sat');
($sec,$min,$hour,$mday,$mon,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6];
$year += 1900;
$date = " $days[$wday] $mday. $months[$mon] $year ";
Bye
FTLS
ofuuzo wrote:
>
> Hi,
>
> I have the following perl date/time script:
>
> ........
> @months = ('Jan','Feb','Mar','Apr','May','Jun',
> 'Jul','Aug','Sept','Oct','Nov','Dec');
> @days = ('Sun','Mon','Tue','Wed','Thur','Fri','Sat');
> ($sec,$min,$hour,$mday,$mon,$year,$wday) =
> (localtime(time))[0,1,2,3,4,5,6];
> if ($year > "96") {
> $yd = "19$year";
> }
> else {
> $yd = "20$year";
>
> }
> $date = " $days[$wday] $mday. $months[$mon] $yd ";
> .........
>
> When I set the year in my computer to 1999, the exact day, month and
> year will be printed. But when I set the year in my computer to 2000,
> the year changes to 19100 instead of 2000.
> What is wrong with the above script. I need help.
>
> Thanks in advance.
>
> OO
--
*----------------------------------------------------------*
| FTLS E-Mail: - tyndiuk@ftls.org |
|(TYNDIUK Frederic) |
| WWW : - http://www.ftls.org/ |
|CGI Scripts Archive : - http://www.ftls.org/cgi/ |
-----------------------------------------------------------*
------------------------------
Date: 03 Nov 1999 03:26:50 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Year 2000 date problem
Message-Id: <ylso2nak91.fsf@windlord.stanford.edu>
ofuuzo <ofuuzo@ub.uit.no> writes:
> I have the following perl date/time script:
> ($sec,$min,$hour,$mday,$mon,$year,$wday) =
> (localtime(time))[0,1,2,3,4,5,6];
> if ($year > "96") {
> $yd = "19$year";
> }
> else {
> $yd = "20$year";
> }
Why did you do that?
> When I set the year in my computer to 1999, the exact day, month and
> year will be printed. But when I set the year in my computer to 2000,
> the year changes to 19100 instead of 2000. What is wrong with the above
> script.
You introduced a Y2K problem into a date system that doesn't have one.
Please read the documentation for localtime, found in the perlfunc man
page.
$year += 1900;
is completely sufficient and will always work.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 3 Nov 1999 05:30:31 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Year 2000 date problem
Message-Id: <slrn82075h.tjn.abigail@alexandra.delanet.com>
ofuuzo (ofuuzo@ub.uit.no) wrote on MMCCLV September MCMXCIII in
<URL:news:38201382.DC3CC7A6@ub.uit.no>:
[]
[] When I set the year in my computer to 1999, the exact day, month and
[] year will be printed. But when I set the year in my computer to 2000,
[] the year changes to 19100 instead of 2000.
[] What is wrong with the above script. I need help.
I'd suggest going to your local elemtary school, and ask for reading
lessons. It looks like you are unable to read the manual.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 03 Nov 1999 03:56:19 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: Year 2000 date problem
Message-Id: <004aa0e3.1f1cd5df@usw-ex0102-014.remarq.com>
In article <38201382.DC3CC7A6@ub.uit.no>, ofuuzo <ofuuzo@ub.uit.no>
wrote:
[Snip]
> ($sec,$min,$hour,$mday,$mon,$year,$wday) =
> (localtime(time))[0,1,2,3,4,5,6];
> if ($year > "96") {
> $yd = "19$year";
> }
> else {
> $yd = "20$year";
> }
>... when I set the year in my computer to
> 2000,
> the year changes to 19100 instead of 2000.
> What is wrong with the above script.
You assumed the wrong thing about the result of localtime(). Weird,
given that you seem to have understood the rest of it...
> I need help.
Read the perlfunc man page entry for localtime(). Especially the bit
that says:-
Also, $year is the number of years since 1900, that is, $year
is 123 in year 2023, and not simply the last two digits of the
year. If you assume it is, then you create non-Y2K-compliant
programs--and you wouldn't want to do that, would you?
Basically, you just need to say $yd=1900+$year.
Regards,
Mark Bluemel
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 03 Nov 1999 07:38:07 -0500
From: bj <bradw@newbridge.com>
Subject: Re: Year 2000 date problem
Message-Id: <op1u2n3sqc0.fsf@newbridge.com>
ofuuzo <ofuuzo@ub.uit.no> writes:
> ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
> if ($year > "96") {
> $yd = "19$year";
> }
> else {
> $yd = "20$year";
> }
> When I set the year in my computer to 1999, the exact day, month and
> year will be printed. But when I set the year in my computer to 2000,
> the year changes to 19100 instead of 2000.
type "perldoc -f localtime" and pay particular attention to what it
says about field 5....
58 days left until the fun really begins.... :-(
bj
------------------------------
Date: Wed, 3 Nov 1999 05:54:26 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Year 2000 date problem
Message-Id: <MPG.1289de6f71769840989835@nntp1.ba.best.com>
ofuuzo (ofuuzo@ub.uit.no) seems to say...
> I have the following perl date/time script:
> $yd = "19$year";
Was this a 'free' script you found on the Internet?
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
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 V9 Issue 1264
**************************************
