[13951] in Perl-Users-Digest
Perl-Users Digest, Issue: 1361 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 12 12:10:29 1999
Date: Fri, 12 Nov 1999 09:10: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: <942426617-v9-i1361@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 12 Nov 1999 Volume: 9 Number: 1361
Today's topics:
Problems with indexer.pl (Perlfect Search) Any suggesti (Kashmir)
Re: Removing leading zeros from a string? (Burt lewis)
Re: Running CGI as root (Kragen Sitaker)
Re: sorting withing multiple files (Tad McClellan)
Re: sorting withing multiple files <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Re: sorting withing multiple files (Tad McClellan)
Re: Style Sheets crash netscape <mryan@kc4.so-net.ne.jp>
Re: thanks all <newsposter@cthulhu.demon.nl>
Trying to combine a cgi perl script <words@syntes.com>
Re: Trying to combine a cgi perl script <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Re: Trying to combine a cgi perl script (Michel Dalle)
Re: Unicode Script (Kragen Sitaker)
Re: Unicode Script (Benjamin Franz)
Unload/reload modules? <Diemo.Schwarz@ircam.fr>
URGENT!!!!!!!!!!!!!! (Kragen Sitaker)
Re: URGENT!!!!!!!!!!!!!! <newsposter@cthulhu.demon.nl>
Re: URGENT!!!!!!!!!!!!!! <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Using Oracle DB's <Andrew_Longworth@bigfoot.com>
Re: Using Oracle DB's <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Nov 1999 09:40:44 -0600
From: kashmir@all-access-ent.com (Kashmir)
Subject: Problems with indexer.pl (Perlfect Search) Any suggestions?
Message-Id: <8E7C6BF04kashmirallaccessentc@208.155.7.134>
Hi my name is Erica Barber and I design websites and work for a local
internet service provider in the northwoods of Wisconsin. I'm developing this
website right now and they wanted a search engine (that only searches their
site) put up and I went to CGI Resources (www.cgi-resources.com) and looked
through their Perl scripts. I tried a few out and thought I found one that
looked fairly easy to setup and run. It's called Perlfect Search.
(www.perlfect.com) I uploaded it and ran the setup.pl and had no problems until
I ran the indexer.pl script.
The server here has Perl 5.005 and is a UNIX server but according to the
requirements it should work... except I came across this message when running
the indexer.pl
(This is how it ran)
moe.newnorth.net# ./indexer.pl
Deleting existing db files:
Loading 'no index' regular
expressions: - /home/info/tri-countycouncil.org/cgi-bin
Loading stopwords...Done. Starting crawler...
/home/info/tri-countycouncil.org/
/home/info/tri-countycouncil.org/www
1: /home/info/tri-countycouncil.org/www/index.html
2: /home/info/tri-countycouncil.org/www/main.html
sdbm store returned -1, errno 22, key "76" at ./indexer.pl line 140.
So I'm wondering if anyone could help me out. I understand it could be a
Perl script error in line 140... so not knowing a whole lot about Perl I first
counted down to line 140
print "|----|----|----|----|----|----|----|----|----|----|\n";
(is line 140 counting all lines)
$buffer =~ s/\b$_\b//gis;
(is line 140 counting no blank lines)
Does anyone have any ideas? I've emailed the Perlfect tech support to see
what they had to say about this but I haven't heard back from them yet.
Can someone either post a reply here or email me at webmaster@all-access-
ent.com
Erica
-----------== 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: Fri, 12 Nov 1999 14:05:59 GMT
From: burt@ici.net (Burt lewis)
Subject: Re: Removing leading zeros from a string?
Message-Id: <b9VW3.73$dq4.3777@ndnws01.ne.mediaone.net>
Thank you to all those that helped.
May the Lord strike me down for not finding my answer in the 6
Perl books I have, in the FAQ's or manpages.
------------------------------
Date: Fri, 12 Nov 1999 14:07:29 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Running CGI as root
Message-Id: <BaVW3.863$YI2.72456@typ11.nn.bcandid.com>
In article <382bfd86.123226119@news.pajo.com>,
Kazz Asher <kazz@ashernet.net> wrote:
>I need to restart apache and do some chown(ing) via a cgi program...
>is this possible without suexec?
Wrong newsgroup. And suEXEC won't help.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Fri, 12 Nov 1999 05:20:16 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: sorting withing multiple files
Message-Id: <slrn82nqf0.33.tadmc@magna.metronet.com>
On Thu, 11 Nov 1999 16:37:37 -0800, Makarand Kulkarni
<makkulka@cisco.com> wrote:
>"Steve ." wrote:
>
>> I have 100's of comma delimited files(all in the same directory and
>> all with the format *******s.log) that the third entry is an IP
>> address. That's the only field I'm interested in.
>
>write a script x.pl
No don't!
Use a name that conveys what the program does.
ip_from_csv.pl
or something.
> and use it like this.
^^^^^^
Errr, so that he can see compilation errors and use strict violations?
What "use" would that be?
I think he wanted to get a uniquified list of IPs, not get some
messages from perl...
>my $hash = {} ;
Why use a ref to anon hash when a vanilla hash will do?
>while ( <> )
>{
> my ( undef, undef, $ip_address ) = spit ( ',', $_); # read third
^^^^
Undefined subroutine &main::spit called at ...
my $ip_address = (split ',', $_)[2];
>column from each line by splitting on comma
> $ip_address =~s/(^\s+|\s+$)//g ; # remove white space.
> $hash -> {$ip } = 'x' ; # you could use a count here to find the
^^^
^^^
And where have you given this variable a value?
>number of occurences. !!
>}
>print " unique IP addresses found are \n" ;
>print join ( "\n", keys %$hash ) ;
Please test your code before you post it, or don't post.
We are trying to *reduce* confusion here, not the other way around...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 12 Nov 1999 07:59:48 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: sorting withing multiple files
Message-Id: <000b8d9b.e1bc50b0@usw-ex0101-006.remarq.com>
In article <slrn82nqf0.33.tadmc@magna.metronet.com>, tadmc@metronet.com
(Tad McClellan) wrote:
> Please test your code before you post it, or don't post.
What a good idea - you must be one of those GURUs I keep hearing about.
> We are trying to *reduce* confusion here, not the other way
> around...
Some of us are, at least.
* 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: Fri, 12 Nov 1999 06:52:49 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: sorting withing multiple files
Message-Id: <slrn82nvsh.mf.tadmc@magna.metronet.com>
On Fri, 12 Nov 1999 07:59:48 -0800, Mark Bluemel
<mark.bluemelNOmaSPAM@siemens.co.uk.invalid> wrote:
>In article <slrn82nqf0.33.tadmc@magna.metronet.com>, tadmc@metronet.com
>(Tad McClellan) wrote:
>> Please test your code before you post it, or don't post.
>
>What a good idea - you must be one of those GURUs I keep hearing about.
^^^^^^^^^^^^^^^^^^
Heavens no!
According to TomC's "Seven Levels of Perl Mastery" I am
merely "Expert", two levels shy of "Guru".
But I have aspirations...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 13 Nov 1999 01:25:21 +0900
From: Mike Ryan <mryan@kc4.so-net.ne.jp>
To: mgjv@comdyn.com.au
Subject: Re: Style Sheets crash netscape
Message-Id: <382C3F71.9B117A5C@kc4.so-net.ne.jp>
Well Im sorry if I was the cause of eyeball strain while you were reading
this BUT my initial question was about perl. I was having problems with
print $query->start_html(-title=>"Survey",
-meta=>{'keywords'=>'1,2,3,4,5'},
-style=>{-src=>'/style/style1.css'},
-bgcolor=>"#FF9933");
Oh what the hell why even bother try explaining myself....
have fun !
Martien Verbruggen wrote:
> On Fri, 12 Nov 1999 15:02:14 +0900,
> Mike Ryan <mryan@kc4.so-net.ne.jp> wrote:
> > OK please IGNORE this, I am idiot :)
>
> Nonono.. I think it is about high bloody time that _they_ got this perl
> thing worked out so ti doesn't crash Netscape anymore aith Style Sheets.
> No matter what your HTML said; Perl should just be able to deal with it
> and not crash Netscape. Especially not with Style Sheets.
>
> What, in any of these two posts, exactly, has anything at all to do with
> perl? Please, next time you post here, make sure it has something to do
> with Perl, and if it is about style sheets, HTML HTPP, web browsers, CGI
> or JavaScript, post to one of the comp.infosystems.www.* groups, and let
> us sleep.
>
> Thank you for your future cooperation.
>
> Martien
> --
> Martien Verbruggen |
> Interactive Media Division | In a world without fences, who needs
> Commercial Dynamics Pty. Ltd. | Gates?
> NSW, Australia |
------------------------------
Date: 12 Nov 1999 14:45:06 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: thanks all
Message-Id: <80h95i$fs4$2@internal-news.uu.net>
muhudin@my-deja.com wrote:
> Thanks to all who bothered to answer with the exception of one fellow,
> mark. He asked money for insignificant help. That is not really the way
> to help with a fellow would-be programmer........
You asked for:
My teacher gave me an assignment. And I really need help. Please help. I
want a simple CGI registration script
With that mentality I'd rather not have you as a fellow programmer
Erik
------------------------------
Date: Fri, 12 Nov 1999 09:07:52 -0700
From: Syntes <words@syntes.com>
Subject: Trying to combine a cgi perl script
Message-Id: <382C3B58.4422A69E@syntes.com>
I'm working on combining two cgi perl scripts. They are for form data
and uploading files. I have searched for a script for what I need and
have been having problems combining them. Any insight to my problem
would be greatly appreciated. I do have a script for a form. I also have
a script for uploading. I need both to work together for the same web
page.
------------------------------
Date: Fri, 12 Nov 1999 08:11:11 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: Trying to combine a cgi perl script
Message-Id: <000b8d9b.e4b3fa45@usw-ex0101-006.remarq.com>
With my distribution (ActiveState version) there was a directory of
examples (<perlhome>/eg/cgi) which, while small, seemed quite useful -
there is a form and file upload example there.
Drop me a mail (decode the mail address in the obvious way) if you
don't have this and I'll send you a copy.
HTH
--
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: Fri, 12 Nov 1999 16:25:02 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Trying to combine a cgi perl script
Message-Id: <80hf2l$b01$1@news.mch.sbs.de>
In article <382C3B58.4422A69E@syntes.com>, Syntes <words@syntes.com> wrote:
>I'm working on combining two cgi perl scripts. They are for form data
>and uploading files. I have searched for a script for what I need and
>have been having problems combining them. Any insight to my problem
>would be greatly appreciated. I do have a script for a form. I also have
>a script for uploading. I need both to work together for the same web
>page.
Here is what I guess would be the most efficient for you :
Easy :
Let them both run once, save the resulting HTML code for both of them, and
use any HTML editor to combine both into a single HTML page...
Note : you may have to adapt the ACTION part of both forms to point
to the correct CGI scripts.
Moderate :
Read up on using the CGI module and re-build from scratch.
Difficult :
Try to combine two Matt Wright scripts into a single monster. :-)
Michel.
------------------------------
Date: Fri, 12 Nov 1999 14:05:57 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Unicode Script
Message-Id: <99VW3.860$YI2.70672@typ11.nn.bcandid.com>
In article <80goqb$dsg$1@nnrp1.deja.com>, <mehkriakram@my-deja.com> wrote:
>Can any body who has worked on unicode pass me a copy of the entire
>script.
I don't understand your question.
>I have starting problems out here. What exactly i am looking is
>at how to understand incoming data string and parse it.
Is it UTF-8, UTF-16, or something else? And by 'parse', do you mean
'convert to UCS-2 or UCS-4', or do you mean something else?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Fri, 12 Nov 1999 14:33:34 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: Unicode Script
Message-Id: <2zVW3.1089$B_1.58971@typhoon01.swbell.net>
In article <80goqb$dsg$1@nnrp1.deja.com>, <mehkriakram@my-deja.com> wrote:
>Can any body who has worked on unicode pass me a copy of the entire
>script. I have starting problems out here. What exactly i am looking is
>at how to understand incoming data string and parse it.
>It would be really greatful of anybody who helps.
>Note: I am stuck with CJKV problem.
The Unicode Standard, Version 2.0
ISBN 0-201-48345-9
CJKV Information Processing
ISBN 1-56592-224-7
--
Benjamin Franz
------------------------------
Date: Fri, 12 Nov 1999 15:36:07 +0100
From: Diemo Schwarz <Diemo.Schwarz@ircam.fr>
Subject: Unload/reload modules?
Message-Id: <382C25D7.41C6@ircam.fr>
Hi, =
is it possible to unload and then reload a module from a running perl
program? =
This would be useful for programs with Tk, since it takes still some
time to start it up, and then you just forgot a line in a callback
routine, dang! Now wouldn't it be great to put the callbacks (or indeed
everything independent from the UI) into a module, which (by a callback)
could be dynamically reloaded, and there you are. =
Cheers...
...Diemo
--
Diemo Schwarz - schwarz@ircam.fr
IRCAM - Centre Georges-Pompidou - =C9quipe Analyse-Synth=E8se
http://www.ircam.fr/ - http://www.ircam.fr/equipes/analyse-synthese/
1, place Igor-Stravinsky - 75004 Paris - France
tel +33-1-4478 4824 - fax +33-1-4478 1540
------------------------------
Date: Fri, 12 Nov 1999 14:21:04 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: URGENT!!!!!!!!!!!!!!
Message-Id: <knVW3.876$YI2.74363@typ11.nn.bcandid.com>
In article <Arved_37-1211990710390001@dyip-59.chebucto.ns.ca>,
Arved Sandstrom <Arved_37@chebucto.ns.ca> wrote:
>In article <LvMW3.399$YI2.17761@typ11.nn.bcandid.com>, kragen@dnaco.net
>(Kragen Sitaker) wrote:
>> My PERL script doesn't work. What's wrong?
>
>Read ALL the manpages. :-)
What time is it??????
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 12 Nov 1999 15:52:58 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: URGENT!!!!!!!!!!!!!!
Message-Id: <80hd4q$i14$1@internal-news.uu.net>
Kragen Sitaker <kragen@dnaco.net> wrote:
> In article <Arved_37-1211990710390001@dyip-59.chebucto.ns.ca>,
> Arved Sandstrom <Arved_37@chebucto.ns.ca> wrote:
>>In article <LvMW3.399$YI2.17761@typ11.nn.bcandid.com>, kragen@dnaco.net
>>(Kragen Sitaker) wrote:
>>> My PERL script doesn't work. What's wrong?
>>
>>Read ALL the manpages. :-)
> What time is it??????
16:53:50 CET
Erik
------------------------------
Date: Fri, 12 Nov 1999 07:56:10 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: URGENT!!!!!!!!!!!!!!
Message-Id: <11f733ec.e0c93d23@usw-ex0101-006.remarq.com>
In article <80hd4q$i14$1@internal-news.uu.net>, Erik van Roode
<newsposter@cthulhu.demon.nl> wrote:
> Kragen Sitaker <kragen@dnaco.net> wrote:
> > In article <Arved_37-1211990710390001@dyip-59.chebucto.ns.ca>,
> > Arved Sandstrom <Arved_37@chebucto.ns.ca> wrote:
> >>In article <LvMW3.399$YI2.17761@typ11.nn.bcandid.com>,
> kragen@dnaco.net
> >>(Kragen Sitaker) wrote:
> >>> My PERL script doesn't work. What's wrong?
> >>
> >>Read ALL the manpages. :-)
> > What time is it??????
> 16:53:50 CET
I think your system clock is wrong.
It's 15:45:58 GMT
Regards
* 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: Fri, 12 Nov 1999 17:01:09 +0100
From: "Andrew Longworth" <Andrew_Longworth@bigfoot.com>
Subject: Using Oracle DB's
Message-Id: <382c39c8@isoit370.bbn.hp.com>
I wish to connect to an oracle db.... I know this can be done in perl but
how can I find out more. Can anyone shed any light on this for me??
------------------------------
Date: Fri, 12 Nov 1999 08:04:56 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: Using Oracle DB's
Message-Id: <000b8d9b.e3126ae3@usw-ex0101-006.remarq.com>
In article <382c39c8@isoit370.bbn.hp.com>, "Andrew Longworth"
<Andrew_Longworth@bigfoot.com> wrote:
> I wish to connect to an oracle db.... I know this can be done in
> perl but
> how can I find out more.
In the usual way - via the documentation. If you have Perl, you
_should_ have the documentation as its part of the distribution.
> Can anyone shed any light on this for me??
In the perlfaq8 document:-
How do I use an SQL database?
There are a number of excellent interfaces to SQL databases. See the
DBD::* modules available from
http://www.perl.com/CPAN/modules/dbperl/DBD . A lot of information
on this can be found at
http://www.hermetica.com/technologia/perl/DBI/index.html .
HTH
--
Mark
* 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: 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 1361
**************************************
