[10343] in Perl-Users-Digest
Perl-Users Digest, Issue: 3936 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 9 13:07:56 1998
Date: Fri, 9 Oct 98 10:00:25 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 9 Oct 1998 Volume: 8 Number: 3936
Today's topics:
Re: [OT] London.pm (was "Many Jars" Mystery) <work@despam.idea.co.uk>
Re: Are there any "perl.newbie" group or forum? (I R A Aggie)
Re: Are there any "perl.newbie" group or forum? (I R A Aggie)
Re: Brining a TK Main Window to the front <lusol@Pandora.CC.Lehigh.EDU>
Re: Can I FORMAT variables to be a specific length? (I R A Aggie)
Re: DBD Oracle binary for win32 (Eisen Chao)
Direct DAO Jet Engine access <Paul.Coleman@CoSeCo.com>
Re: Getting the last date modified <lin@wdg.mot.com>
How to run a perl script as a service in NT? (Doug Bradley)
Re: How to run a perl script as a service in NT? <jim.michael@gecm.com>
How to use Xitami's LRWP with Perl? <alvarado@phoenix.princeton.edu>
Re: Hrm. Linguistic Quandry (I R A Aggie)
Re: Hrm. Linguistic Quandry (Bill Middleton)
Re: Hrm. Linguistic Quandry <dparrott@ford.com>
Re: Hrm. Linguistic Quandry (Clinton Pierce)
Re: Hrm. Linguistic Quandry <uri@camel.fastserv.com>
HTML extract problem (Kay Molkenthin)
Re: HTML extract problem <jdf@pobox.com>
Re: IDE for Perl (Sitaram Chamarty)
Re: importing a file <rootbeer@teleport.com>
Re: importing a file droby@copyright.com
Re: list representation <rootbeer@teleport.com>
Name from IP <christian.koch@fuzzy-online.de>
Re: NEEDED: A good perl programer to... <Sune.Karlsson@hhs.se>
Re: Net::Whois for new Internic output? neal@make-a-store.com
Newbie question RE: SSI and .cgi scripts on NT4 <adrian@pearl.demon.co.uk>
Re: PERL in Business (Brand Hilton)
Re: posix test fails: Perl 5.005_02, MSWin32-x86 (Simon Taylor)
Re: Problems Using a Compare Subroutine with Sort droby@copyright.com
Proper Names and Mc etc. <Mark_Rogers@UManitoba.CA>
Q: Short-Circuit While ? (Eisen Chao)
Re: read subdirectories (Sitaram Chamarty)
Re: run a script Perl with a form <evonzee@tritechnet.com>
Re: Search and replace across multiple directories (Tad McClellan)
Re: select <supra@ucentral.ml.org>
Re: strange problem with shift()... <mkahn@vbe.com>
Re: system command on Win32 (Andrew M. Langmead)
use autouse problem in perl 5.004 (Jari Aalto+mail.perl)
Re: What perl modules do I have??????? (Nathan V. Patwardhan)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 09 Oct 1998 16:10:27 +0100
From: Kiril <work@despam.idea.co.uk>
Subject: Re: [OT] London.pm (was "Many Jars" Mystery)
Message-Id: <361E2763.424F722D@despam.idea.co.uk>
dave@mag-sol.com wrote:
>
> A bunch of techies in a City pub are very easy to spot. No-one's ever had any
> problems before. There are also a few photos on the web site - try the links
> from <http://london.pm.org/London.pm/WhatDone.html>. Last meeting, someone had
> downloaded a photo to a Palm Pilot and was going round the pub trying to
> recognise us!
>
> Dave...
Now that is a GOOD idea :-) I have had trouble finding my own co-workers
in the "Cittie" on a busy evening...
Kiril
------------------------------
Date: Fri, 09 Oct 1998 10:13:31 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <fl_aggie-0910981013310001@aggie.coaps.fsu.edu>
In article <Pine.GSO.3.92.981009110106.12706p-100000@edb>, Casper Kvan
Clausen <ckc@dmi.dk> wrote:
+ On Tue, 6 Oct 1998, madame philosophe wrote:
+ > As the web grows there will be more newbies.
+ There will be more newbies,
Sorry fellow weather-person[*], but I disagree with both you and our
philospher. Newbies eventually grow up, or they give up in frustration.
However, once they've grown up, they're not newbies any more.
Eventually they'll start chanting the mantra: FAQ FAQ FAQ. :)
+ but that does NOT mean that everybody should
+ just lean back and go, "well, there'll be more newbies anyway, so we might
+ as well give up".
*ding*ding*ding* If we give up, we just end up creating a permanent sub-class
called 'newbies' who'll come to expect to get their answers on a silver
plate.
James
------------------------------
Date: Fri, 09 Oct 1998 10:15:02 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <fl_aggie-0910981015020001@aggie.coaps.fsu.edu>
In article <361D386D.926BE43@mkt2mkt.com>, madame philosophe
<mp@mkt2mkt.com> wrote:
+ ...and what pray tell is a troll?
Someone who says something blatantly flammable, knowing full well its
flammable, simply for the sake of getting hot-tempered people to fill
the newsgroup with flames...
James
------------------------------
Date: 9 Oct 1998 13:14:32 GMT
From: "Stephen O. Lidie" <lusol@Pandora.CC.Lehigh.EDU>
Subject: Re: Brining a TK Main Window to the front
Message-Id: <6vl27o$ofi@fidoii.cc.Lehigh.EDU>
Chris Mihaly <cmihaly@fa.disney.com> wrote:
> Is there a Tk method that will raise the main Tk window to the top of
> the stacking order? I would like to make my main application window
$mw->raise;
should do it.
------------------------------
Date: Fri, 09 Oct 1998 10:03:15 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Can I FORMAT variables to be a specific length?
Message-Id: <fl_aggie-0910981003150001@aggie.coaps.fsu.edu>
In article <361D87E4.74511C6E@ait.acl.ca>, Guy Doucet <gdoucet@ait.acl.ca>
wrote:
+ I am receiving data from users. I need to format that data to a certain
+ length. Is there a quick function.
Maybe. Are you asking a question?
James - hint: 'perldoc -f sprintf' or 'perldoc -f printf'
------------------------------
Date: 9 Oct 1998 15:21:21 GMT
From: echao@interaccess.com (Eisen Chao)
Subject: Re: DBD Oracle binary for win32
Message-Id: <6vl9lh$qiu$1@supernews.com>
Hmmm.
Why not use Dave Roth's ODBC for Win32 ?
All you'd need besides that is the current
version of ODBS for NT/95, MDAC1.5, which
can be found at M$.
Eisen
Aviv Cohen (avivc@ibm.net) wrote:
: I am looking for a binary of DBD Oracle for win32 (x86) perl. I do not
: have a C compiler.
: Thanks in advance.
:
------------------------------
Date: Fri, 9 Oct 1998 12:02:24 -0400
From: "-Paul Coleman" <Paul.Coleman@CoSeCo.com>
Subject: Direct DAO Jet Engine access
Message-Id: <361e35b6.0@news3.paonline.com>
Hi,
Does anyone know how to access an Access database (something.mdb) through
DAO directly (not DAO ODBC)? This sever is NT 4.0 IIS 4.0. The VB
equivalent would be:
Dim db As Database
Dim path As String
Dim strName As String
Dim tbl As Recordset
path = Environ("PATH_TRANSLATED") & "\cgi-bin\"
Set db = OpenDatabase(path & "CGITest.mdb")
Set tbl = db.OpenRecordset("tblPerson", dbOpenDynaset)
tbl.MoveFirst
strName = tbl!Name
tbl.Close
db.Close
This code works on NT as a CGI program (Using STDIN and SDTOUT).
I am looking for a Perl equivalent.
Thanks,
Paul Coleman
------------------------------
Date: Fri, 09 Oct 1998 09:32:37 -0700
From: Brandon Lin <lin@wdg.mot.com>
Subject: Re: Getting the last date modified
Message-Id: <361E3AA5.F35753F9@wdg.mot.com>
$write_secs = (stat($file))[9];
print "file $file updated at ", scalar(localtime($file)), "\n";
I followed the code above, but no matter what file it is, the outpus is always:
Wed Dec31 17:00:00 1969
Any ideas?
Thanks.
James Ludlow wrote:
> Brandon Lin wrote:
> >
> > I'm a novice to perl. Can anyone please tell me how to get
> > the last date modified of a file using perl?
>
> The FAQ is your friend...
> http://www.perl.com/CPAN-local/doc/FAQs/FAQ/PerlFAQ.html#How_do_I_get_a_file_s_timestamp_
>
> The documentation that comes with Perl is good reading too.
>
> --
> James Ludlow (ludlow@us.ibm.com)
> Disclaimer: This isn't technical support, and all opinions are my own.
------------------------------
Date: Fri, 9 Oct 1998 14:49:48 GMT
From: doug@ieee.org (Doug Bradley)
Subject: How to run a perl script as a service in NT?
Message-Id: <361e21e2.7539687@newshost.unx.sas.com>
Hello:
Can anyone offer pointers or advice as to how to run a perl script
as a service under NT?
Didn't see anything in the FAQs (sparse as they are for Winperl)
tia,
Doug
------------------------------
Date: Fri, 09 Oct 1998 11:31:15 -0400
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: How to run a perl script as a service in NT?
Message-Id: <361E2C43.575@gecm.com>
Doug Bradley wrote:
> Can anyone offer pointers or advice as to how to run a perl script
> as a service under NT?
> Didn't see anything in the FAQs (sparse as they are for Winperl)
Well you could go to dejanews, search on "perl nt service run" and read
any of 80 or so articles on the subject.
------------------------------
Date: Fri, 9 Oct 1998 12:41:31 -0400
From: "Rafael C. Alvarado" <alvarado@phoenix.princeton.edu>
Subject: How to use Xitami's LRWP with Perl?
Message-Id: <6vledo$5sf$1@cnn.Princeton.EDU>
Anyone tried this? Any tips and tricks? The Xitami help files document use
with Python, but say that you can use Perl as well. Is there a way to
directly access the C lib from Perl without writing an XS extension?
I would be interested in any info on Perl-Xitami interaction.
Rafael Alvarado
------------------------------
Date: Fri, 09 Oct 1998 10:01:27 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <fl_aggie-0910981001280001@aggie.coaps.fsu.edu>
In article <361D8BAA.6DBE307B@bbnplanet.com>, Elaine -HappyFunBall- Ashton
<eashton@bbnplanet.com> wrote:
+ To troll is fishing casually on a long line.
Exactly.
Go on over to rec.sport.football.college and ask if fishing season is
still on. If you wish to engage in some fishing over there, ask this
question:
Is Bobby Bowden still the coach at Miami?
Completely ridiculous, of course, but you'll have 'em literally jumpin'
into the boat.
James
------------------------------
Date: 9 Oct 1998 14:18:59 GMT
From: aawimi@ITS.mobil.telenor.no (Bill Middleton)
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <6vl60j$ec5@info.telenor.no>
In article <361D8BAA.6DBE307B@bbnplanet.com>,
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
>Since the word 'troll' came up recently I did a little etymological
>digging and I find myself wondering about it. To troll is fishing
>casually on a long line.
Um, fishing is _never_ casual. And trolling, especially on
a good day, can be hard work.
>To trawl is to fish the bottom.
I believe the two terms are analogous. Although I've never
been on a trawler, so I don't know the technique.
> I'm wondering
>if 'troll' is the proper term. Being that I live in a largely seaside
>community the difference is distinct. Perhaps to 'trowel' is the most a
>propos term. To dig and not to fish. What say you boys?
>
A troll, on the other hand, is a (usually quite ugly) Norwegian monster
which lives in the hills and under bridges, and sometimes eats goats
or possibly children.
This was my first association regarding a USENET troll.
Hope this helps!
Bill
------------------------------
Date: Fri, 09 Oct 1998 10:25:38 -0400
From: "Dennis M. Parrott" <dparrott@ford.com>
To: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <361E1CE2.231C@ford.com>
Elaine -HappyFunBall- Ashton wrote:
>
> Since the word 'troll' came up recently I did a little etymological
> digging and I find myself wondering about it. To troll is fishing
> casually on a long line. To trawl is to fish the bottom.
Actually, trolling (as a form of fishing) is done from a slowly
moving boat. The object is to drag interesting looking bait in
front of the fish you intend to catch at a speed and depth that
will maximize the size and number of fish you catch.
(this definition is from a Great Lakes once-upon-a-time
fisherman...)
> I'm wondering
> if 'troll' is the proper term.
It is a well-understood term amongst the Usenet community.
Remember, a word means exactly what I choose it to mean;
nothing more and nothing less.
Given my definition of trolling, I'd say that it actually
works QUITE WELL, thank you. A 'troll' is bait dragged
thru the newsgroup that is trying to get the 'fish' to
'bite' -- the troller wants folks to get all riled up
responding to some bit of nonsense, when he gets that to
happen, he's hooked one.
> Being that I live in a largely seaside
> community the difference is distinct. Perhaps to 'trowel' is the most a
> propos term. To dig and not to fish. What say you boys?
>
'Trowel' is either a noun describing a tool used in cement work or
a verb describing the act of smoothing out cement. I really don't
see how this would EVER make sense in describing acts of random
silliness designed to rile up the denizens of a particular newsgroup.
dennis
--
-----------------------------------------------------------------------
Dennis M. Parrott | Unix: dparrott@ford.com
PCSE Webmaster | PROFS: DPARROTT
Ford Motor Company | VAX: EEE1::PARROTT
Dearborn, Michigan USA | public Internet: dparrott@ford.com
-----------------------------------------------------------------------
Voice: 313-322-4933 Fax: 313-248-1234 Pager: 313-851-2958
------------------------------
Date: 9 Oct 1998 15:45:33 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <6vlb2t$niq1@eccws1.dearborn.ford.com>
In article <361E1CE2.231C@ford.com>,
"Dennis M. Parrott" <dparrott@ford.com> writes:
>Given my definition of trolling, I'd say that it actually
>works QUITE WELL, thank you. A 'troll' is bait dragged
>thru the newsgroup that is trying to get the 'fish' to
>'bite' -- the troller wants folks to get all riled up
>responding to some bit of nonsense, when he gets that to
>happen, he's hooked one.
You are quite correct, IMHO.
I guess that means that anything crossposted between
comp.lang.perl.* and comp.lang.python could be considered
a troll...
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: 09 Oct 1998 12:57:18 -0400
From: Uri Guttman <uri@camel.fastserv.com>
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <sarzpb5r7v5.fsf@camel.fastserv.com>
>>>>> "BM" == Bill Middleton <aawimi@ITS.mobil.telenor.no> writes:
>> To trawl is to fish the bottom.
BM> I believe the two terms are analogous. Although I've never been
BM> on a trawler, so I don't know the technique.
trawling involves dragging large nets across the bottom of the sea. it
has nothing to do with trolling which is more a sport than a commercial
enterprise.
uri
--
Uri Guttman Fast Engines -- The Leader in Fast CGI Technology
uri@fastengines.com http://www.fastengines.com
------------------------------
Date: 9 Oct 1998 13:52:52 GMT
From: molkiheg@sp.zrz.tu-berlin.de (Kay Molkenthin)
Subject: HTML extract problem
Message-Id: <slrn71s4kt.fl.molkiheg@kay.chaos.network>
Hi,
this is my problem for monday:
I have to extract adresses from several HTML-files which have the adresses all
in the same TABLE-environment. The table looks like that:
+------------------+------------------+ ... +-------------------+
|Line 1,a (RETURN) |Line 1,b (RETURN) | ... |Line 1,n (RETURN) |
|Line 2,a (RETURN) |Line 2,b (RETURN) | ... |Line 2,n (RETURN) |
.
.
.
|Line m,a (RETURN) |Line m,b (RETURN) | ... |Line m,n (RETURN) |
+------------------+------------------+ +-------------------+
I have to put the datas in an MS Access DB. That is no problem if I can
transform these informations in the following format:
Line 1,a;Line 2,a;...;Line m,a
Line 1,b;Line 2,b;...;Line m,b
.
.
.
Line 1,n;Line 2,n;...;Line m,n
I have 40 of those HTML-adress-files in one directory named "adr.1"-"adr.40".
I work under Linux.
Thanks in advance...
Kay.
--
Kay Molkenthin - R|sternallee 45 - 14050 Berlin - GERMANY
Email: Kay_Molkenthin@Bigfoot.de / molkiheg@sp.zrz.tu-berlin.de
Key fingerprint = 1F 15 D1 F8 46 D8 06 4E D4 BC 09 D2 A9 38 20 02
------------------------------
Date: 09 Oct 1998 16:34:28 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: molkiheg@sp.zrz.tu-berlin.de
Subject: Re: HTML extract problem
Message-Id: <m3iuhtolcb.fsf@joshua.panix.com>
molkiheg@sp.zrz.tu-berlin.de (Kay Molkenthin) writes:
> I have 40 of those HTML-adress-files in one directory named "adr.1"-"adr.40".
>
> I work under Linux.
>
> Thanks in advance...
If you'd show us the perl code that's giving you trouble, we'll be
better able to help you.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 9 Oct 1998 16:13:37 GMT
From: sitaram@iac.com (Sitaram Chamarty)
Subject: Re: IDE for Perl
Message-Id: <slrn71q1ei.e1.sitaram@diac.com>
On 7 Oct 1998 15:05:39 GMT, Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc,
> Anthony Clark <anthony.clark@adv.sonybpe.com> writes:
>:Sorry for the sense of humour failure, but I have great trouble convincing C++/MS
>:advocates of the benefits of perl and OO helpers could only help
>
>Why bother? Windows was created to keep the stoopid people away from Unix,
>you know. An "MS advocate" is already beneath contempt.
I bother when I see hopes of redemption. Wasn't it Tim O'Reilly
who once said something to that effect somewhere...?
If I could control every aspect of my working life, then I could
have the luxury of saying "why bother...beneath contempt" also.
As it is, many of us have to work with people - whether customers,
co-workers, or even pointy-haired bosses - who are MS advocates.
A well-timed demo of the power of Unix in general (and Linux in
particular - off-topic tho' it may be) works wonders compared to a
stand-offish attitude.
You may be lucky not to have to deal with this problem - not all
of us are so lucky. It would help if you didn't rub this fact in,
though! <grin>
------------------------------
Date: Fri, 09 Oct 1998 15:28:31 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: importing a file
Message-Id: <Pine.GSO.4.02A.9810090827430.4710-100000@user2.teleport.com>
On Thu, 8 Oct 1998, Jonghoon Lee wrote:
> Is there any way to import another file in a Perl program,
> so I can use functions in another file?
Yes; see the 'use' and 'require' entries in perlfunc, and related places
in the docs. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 09 Oct 1998 15:45:07 GMT
From: droby@copyright.com
Subject: Re: importing a file
Message-Id: <6vlb23$jup$1@nnrp1.dejanews.com>
In article <Pine.SGI.3.95.981008215005.26382B-100000@alexia.lis.uiuc.edu>,
Jonghoon Lee <jlee@alexia.lis.uiuc.edu> wrote:
>
> Is there any way to import another file in a Perl program,
> so I can use functions in another file?
>
There's more than one way to do it. You should look at the
documentation that came with Perl on 'require' and 'use' and
on modules.
perldoc -f require
perldoc -f use
perldoc perlmod
To not have learned that yet, you must be reasonably new to Perl.
I'd recommend also buying a good introductory book if you haven't already.
While I haven't read it myself, the consensus of the group seems to be
that the best introductory text is "Learning Perl" by Randal L. Schwartz
and Tom Christiansen, published by O'Reilly.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 09 Oct 1998 15:27:21 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: list representation
Message-Id: <Pine.GSO.4.02A.9810090826110.4710-100000@user2.teleport.com>
On Thu, 8 Oct 1998, Jonghoon Lee wrote:
> I was just curious about the internal representation of lists.
Start with the perlguts manpage, and you may also try reading the source.
Have fun!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 9 Oct 1998 16:25:07 +0200
From: "Christian Koch" <christian.koch@fuzzy-online.de>
Subject: Name from IP
Message-Id: <6vl6au$76u$1@black.news.nacamar.net>
How can I get the server- or domain-name of a IP with a perl-script or an
executable file??
Christian
------------------------------
Date: Fri, 09 Oct 1998 17:30:37 +0200
From: Sune Karlsson <Sune.Karlsson@hhs.se>
Subject: Re: NEEDED: A good perl programer to...
Message-Id: <361E2C1D.81E9B4CD@hhs.se>
droby@copyright.com wrote:
>
> In article <6vguob$bcm$7@marina.cinenet.net>,
> cberry@cinenet.net (Craig Berry) wrote:
> > David Formosa (dformosa@zeta.org.au) wrote:
> > : In <6vg9gv$o8l$1@news.interlog.com> dragnet@internalysis.com (Marc
> Bissonnette) writes:
> > :
> > : > I'll charge the $$,
> > :
> > : You charge based on PID?
> >
> > I find that adds to the excitement value of the whole process. You just
> > have to be careful to avoid working on a freshly booted machine.
> >
>
> Yet another reason to prefer Linux to NT. ;-)
Yes, but not for the reason you think. PIDs are not assigned
sequentially on NT. Don't know the algorithm, but they never get large.
> VMS can produce some wonderfully giant PIDs though, immediately upon boot.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
--
Sune Karlsson | stsk@hhs.se Fax: + 46 8 34 81 61
Stockholm School of Economics | Phone: + 46 8 736 92 39
Box 6501, 113 83 Stockholm, Sweden | http://www.hhs.se/personal/SuneK/
http://www.hhs.se/stat/ | http://swopec.hhs.se/
------------------------------
Date: Fri, 09 Oct 1998 15:22:44 GMT
From: neal@make-a-store.com
Subject: Re: Net::Whois for new Internic output?
Message-Id: <6vl9o4$i84$1@nnrp1.dejanews.com>
Forget this message. I modified Whois.pm. If anyone needs this, just let me
know.
In article <6vjebj$3n0$1@nnrp1.dejanews.com>,
neal@make-a-store.com wrote:
> The internic recently (I think) changed their whois output. Has anyone updated
> the Net::Whois module?
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 9 Oct 1998 15:58:23 +0100
From: Adrian Albin-Clark <adrian@pearl.demon.co.uk>
Subject: Newbie question RE: SSI and .cgi scripts on NT4
Message-Id: <KREh9CAPSiH2Ew49@pearl.demon.co.uk>
I have looked in many FAQs but have not been able to see answers to my
questions.
I have recently been experimenting with ActiveState's Win 32 perl
implementation on Windows NT Server.
I have had some some success using scripts with the .pl extension but
have not had any joy with any scripts that end in .cgi.
When required, I have tried inserting the lines into the calling web
pages (with the correct path to the script) like the following but this
has not worked:
<!--#exec cgi="/InetPub/scripts/lookwho.cgi" -->
Is this likely to work on an NT system with my setup?
Some scripts say they need SSI. What is SSI and can I enable/install it
on NT Server? If so, what would I need to do?
Help would be very much appreciated. Please refrain from offering
sarcastic/unhelpful comments or meaningless references to www.perl.com.
Thanks in advance!!!
--
Adrian Albin-Clark
------------------------------
Date: 9 Oct 1998 15:07:51 GMT
From: bhilton@tsg.adc.com (Brand Hilton)
Subject: Re: PERL in Business
Message-Id: <6vl8s7$7p117@mercury.adc.com>
In article <6vko82$os4$1@nnrp1.dejanews.com>, <andy.williams@clara.net> wrote:
>I have a bit of a problem, thankfully not code related.
>
>My boss requires justification for using PERL (running on NT with Tk) for a
>business database application. It's a fairly large application and he wants to
>know of any other big companies that use (or are developing) a similar
>application.
I'll email you some specific examples, but I wanted to let everyone
know that there's a mailing list where we discuss this kind of thing.
Visit
http://www.perl.org/cgi-bin/list-instructions?type=tpi&list=advocacy
for details on that list.
--
_____
|/// | Brand Hilton bhilton@adc.com
| ADC| ADC Telecommunications, ATM Transport Division
|_____| Richardson, Texas
------------------------------
Date: Fri, 09 Oct 1998 15:51:28 GMT
From: sztaylor@alaska.net (Simon Taylor)
Subject: Re: posix test fails: Perl 5.005_02, MSWin32-x86
Message-Id: <361e3040.85330078@news.alaska.net>
Apparently, the info below is reported in the "README.win32" file
located in the .../perl5.005_05 directory of the distribution. I
apologize for taking up space w/ that one!
I'm still looking into the failure of op/stat.t if anybody has any
ideas!
Simon Taylor
sztaylor@alaska.net
On Fri, 09 Oct 1998 05:04:20 GMT, sztaylor@alaska.net (Simon Taylor)
wrote:
>Hello,
>
>I'd REALLY appreciate any insight folks might have on this one.
>
>Test #2 in the posix.t test-suite of perl 5.005_02, MSWin32-x86 build
>fails on some win32 machines and not others. The problem seems to be
>with line 22:
>
> read($testfd, $buffer, 9)
>
>this reads the first 9 bytes of "posix.t", which are: "#!./perl\n"
>When it fails, instead of reading the tailing "\n" it seems to chop it
>off, and only returns 8 bytes. See code slice below.
>
>To make matters more confusing the machine that passes this test
>correctly fails one of the "op\stat.t" tests, while the machine that
>passes all op\stat.t tests fails the posix.t test above. I haven't
>had time to look at the stat.t test and figure out what's happening
>there, but any ideas on that would be appreciated also.
>
>
>from posix.t (starting on line 21)
><snip>
>$testfd = open("TEST", O_RDONLY, 0) and print "ok 1\n";
>$bytes = read($testfd, $buffer, 9) if $testfd > 2;
>print (($buffer eq "#!./perl\n") ? "ok 2\n" : "not ok 2\n");
><snip>
------------------------------
Date: Fri, 09 Oct 1998 12:53:49 GMT
From: droby@copyright.com
Subject: Re: Problems Using a Compare Subroutine with Sort
Message-Id: <6vl10u$4ri$1@nnrp1.dejanews.com>
In article <361CF980.4D27293D@min.net>,
John Porter <jdporter@min.net> wrote:
> droby@copyright.com wrote:
> >
> > John Porter <jdporter@min.net> wrote:
> > > 1. characters are the same size as octets;
> >
> > Which of course isn't quite true anymore.
>
> Exactly. It's a dangerous assumption.
>
> > Perhaps we need to look at something bigger than octets in IPv7. ;-)
>
> Hey, yeah; if we amend the address spec to be four *characters*,
> and four *Unicode* characters at that, then the resulting address
> space is blessedly huge.
>
> All IPv7 addresses are four-letter words. Neat!
>
Unfortunately, it's a step backward. After posting this silliness, I went
looking at RFCs. IPv6 addresses are 128 bits, and I'm sure you'll be happy to
know the text representation is described in RFC 1884 as:
<quote> The preferred form is x:x:x:x:x:x:x:x, where the 'x's are the
hexadecimal values of the eight 16-bit pieces of the address. </quote>
I guess we'll just have to be twice as vulgar.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 09 Oct 1998 10:50:43 -0500
From: Mark Rogers <Mark_Rogers@UManitoba.CA>
Subject: Proper Names and Mc etc.
Message-Id: <361E30D3.787DAFB0@UManitoba.CA>
Hi,
I am sure that I have seen messages suggesting that
someone might have done some work on the formatting
of mixed case names from, say, all upper names to
handle the McDonalds, deMoissacs etc. I have need
of such an algorithm or assistance in developing one.
I can do the upper lower part but can't seem to find
an appropriate way to do these examples ... short
of doing it the old fashioned way.
Mark
------------------------------
Date: 9 Oct 1998 15:28:15 GMT
From: echao@interaccess.com (Eisen Chao)
Subject: Q: Short-Circuit While ?
Message-Id: <6vla2f$qiu$2@supernews.com>
To All:
I know that in a foreach... loop, you can put
in a condition to skip to the next foreach:
foreach $sample(@sample) {
if ($sample = yada-yada) { blah-blah } or next;
}
according to an example given in O'Reilly's *very*
excellent 'Perl Cookbook', but is there a way to do
the same thing for a while loop:
while (such-n-such) {
blah-blah
}
without putting in big, fat, ugly, honking if..then else blocks ?
I always scr*w up and fail to match the {} braces properly!
Thanks,
Eisen
Chicago
------------------------------
Date: 9 Oct 1998 16:13:35 GMT
From: sitaram@iac.com (Sitaram Chamarty)
Subject: Re: read subdirectories
Message-Id: <slrn71q00c.e1.sitaram@diac.com>
On Wed, 07 Oct 1998 18:55:57 GMT, droby@copyright.com
<droby@copyright.com> wrote:
>In article <Y3wJ4PA$WlG2EwBS@connected.demon.co.uk>,
> Jerry Pank <jerryp.usenet@connected.demon.co.uk> wrote:
>> In <comp.lang.perl.misc>
>> John Porter <jdporter@min.net>, writes:
>> >Pete Ratzlaff wrote:
>> >>
>> >> Here's one I wrote up in a hurry which recursively prints all
>> >> subdirectories of a given directory. Modify to suit your own needs:
>> >
>> >I sure do wonder what people have against using standard, robust,
>> >portable modules like File::Find.
>> >
>> <PEDANT> It's not Taint friendly </PEDANT> :-)
>
>But you want to define %ENV yourself if you're using -T anyway, don't you?
Not enough. Last time I checked, it fails on the chdir itself
(approx line 181 of the version that came with Perl 5.00501),
IIRC. chdir is an internal function that is not related to %ENV.
------------------------------
Date: Fri, 09 Oct 1998 09:16:19 -0500
From: Eric Von Zee <evonzee@tritechnet.com>
Subject: Re: run a script Perl with a form
Message-Id: <361E1AB3.1947935B@tritechnet.com>
Gerard Jensen wrote:
<snip>
> b) Access rights might indeed be a problem. With your FTP program (or via
> Telnet in
> your directory using ls -l) check if your script is world readable and
> executable:
> the last three characters for your rights should read "r-x". I'd suggest to
> set
> them to "rwxr-xr-x" in total - and AFAIK an FTP client won't be able to do
> that, so
> you need to telnet to your box and do it via chmod yourself (chmod 759
> <yourscript>
> if I remember right - check the results before you leave it like that).
Well, if you're using Win NT, Isabella, you can use CuteFTP, which has chmod
functions and permission pick list instead of requiring the decimal
representation. Or, if you have a ftp client that will let you enter your own
custom commands, you can type SITE CHMOD xxx, which in this case should be (I
think) 755.
<snip>
> e) Best test of a script before calling it "live" from the web: telnet into
> your
> box, go to the directory that contains your script and call it via "perl
> <yourscript> <parameters>". Most of the problems that stem from an error in
> your
> Perl program yourself simply report as a "server misconfiguration" if you only
> go
> through the web browser.
I will definitely agree. Only time this hasn't solved my problems for me is
when I still used cgi-lib.pl and didn't (and still don't, unfortunately) know
how to pass form data from the command line (does it work the same way as
CGI.pm?) You also may want to try the -w and/or -c parameters (perl -w
script.pl) to use the perl syntax debugger and enable warnings.
HTH!
-Eric
--
Best Regards, | Psychotics are consistently
Tritech Marketing | inconsistent. The essence of
| sanity is to be inconsistently
Eric Von Zee | inconsistent.
Webmaster | -- Larry Wall
------------------------------
Date: Fri, 9 Oct 1998 06:40:12 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Search and replace across multiple directories
Message-Id: <smskv6.fdj.ln@flash.net>
kevin scott (kevscott_tx@yahoo.com) wrote:
: I manage a 600 + page web site. I am look for a PERL program that can
: search for a text string and replace it with another. In addition,
: it would like to be able to do this in multiple files and directories.
: Has anyone see any code that can do this ?
(UNTESTED)
perl -p -i -e 's/oldURL/newURL/g' `find . -name '*.html' -print`
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 9 Oct 1998 17:49:07 +0200
From: "Igor" <supra@ucentral.ml.org>
Subject: Re: select
Message-Id: <6vlhou$ije$1@news.netvision.net.il>
It gives no error messages.
Here is a book example that just doesn't do anything:
#!/usr/bin/perl
$wbits =0 ; $rbits = 0;
$ebits = 0;
vec($rbits,fileno(MYSOCKET),1) = 1; # read from socket.
vec($wbits,fileno(MYSOCKET),1) = 1; # enable write vector
vec($rbits,fileno(STDIN),1) = 1; # enable read vector
$ein = $rin | $win; # for both reading & writing on all handles
while(1) {
($theFile,$timeleft) = select($rbits, $wbits, $ebits, $timeout);
if ($timeleft == 0 ) {
&doIdleTasksHere();
}
&process($theFile);
}
Thanks, Igor.
Alastair wrote in message ...
>Igor <supra@ucentral.ml.org> wrote:
>>Hello!!!
>>
>>Please submit any working example for:
>>select ( $rbits, $wbits, $ebits, $timeout )
>>
>>I just can't make it work.
>
>Huh? What did you try and what errors did you see?
>
>--
>
>Alastair
>work : alastair@psoft.co.uk
>home : alastair@calliope.demon.co.uk
------------------------------
Date: Fri, 09 Oct 1998 08:53:22 -0500
From: Mark Kahn <mkahn@vbe.com>
Subject: Re: strange problem with shift()...
Message-Id: <361E1552.297442A@vbe.com>
How about:
my %hash;
while (<>) {
print $_ if (! $hash{$_});
$hash{$_}++;
}
--
Mark Kahn
mkahn@vbe.com
PGP Fingerprint20 = FEF0 1F3F 94C0 EE77 790B 45EA B1C0 262A D7E0 C865
------------------------------
Date: Fri, 9 Oct 1998 15:01:08 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: system command on Win32
Message-Id: <F0KF1w.FDy@world.std.com>
mahan@Intone.lkg.dec.com (Joe Mahan) writes:
>system ("my DOS command");
>Question is, when I remove the parentheses, what really happens?
There is no difference with or without the parenthesis, except for
some bizare constructs.
The parenthesis affects precedence, so
$unix_like_status = system("my DOS COMMAND") * 0x100;
would be different than
$unix_like_status = system "my DOS COMMAND" * 0x100;
(which will do the multiplication first, turning the string
"my DOS COMMAND" into its numerical equivlent of 0, and then trying to
run the program "0", which it probably won't be able to find.)
Parens also triggers Perl's "If it looks like a function, it is a
function" rule. I can't think of a good example for system(), but for
the function length(),
$hash{length()} = "....";
is different than
$hash{length} = ".....";
--
Andrew Langmead
------------------------------
Date: 09 Oct 1998 17:53:52 +0300
From: jari.aalto@poboxes.com (Jari Aalto+mail.perl)
Subject: use autouse problem in perl 5.004
Message-Id: <ptrsogx6b27.fsf@olkikukka.i-have-a-misconfigured-system-so-shoot-me>
[CC is fine too]
The "use autouse" documentation in perlmodlib is a bit sparse,
so I couldn't figure out what's wrong here:
BEGIN { require 5.004 }
use integer; # standard pragmas
use strict;
use autouse File::Basename => qw( fileparse basename dirname );
use autouse Text::Tabs => qw( expand );
print basename '/dir/this';
Bareword "File::Basename" not allowed while "strict subs" in use at /users/jaalto/tt.pl line 11.
If I take away the "use strict" the code works, but I don't want
to compromise that. Shouldn't => operator quote anytthing to the left,
so why does "strict" complain?
jari
------------------------------
Date: Fri, 09 Oct 1998 15:03:43 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: What perl modules do I have???????
Message-Id: <jBpT1.332$P12.1771731@news.shore.net>
Ken Williams (tekkin@hotmail.com) wrote:
: How do I find out what perl modules I have installed? Is there a switch or
: something? perl -v just tells me the version number. I running 5.004 on
: Linux 2.0.35.
You can tell the CPAN Shell (module) to 'autobundle'. This will
output the current version of a module installed on your system (or
none if it's not installed or if the module author hasn't added
$VERSION) and it'll also show you the latest version of the module on
CPAN (that is, if you're using updated index files from your favorite
CPAN mirror).
'autobundling' will leave a bundle file in your /base/.cpan/whatever
directory with a datestamp, if I recall.
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3936
**************************************
