[11687] in Perl-Users-Digest
Perl-Users Digest, Issue: 5287 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 2 19:05:03 1999
Date: Fri, 2 Apr 99 16:00:21 -0800
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, 2 Apr 1999 Volume: 8 Number: 5287
Today's topics:
Re: =~tr / / /; problem <sulakshan.shetty@mci.com>
Re: Alternative for Perl <cassell@mail.cor.epa.gov>
Re: Alternative for Perl <cassell@mail.cor.epa.gov>
Re: Alternative for Perl (I R A Aggie)
Apache::Registry <hojo@i-tel.com>
Re: book gathering was Re: Books seen on the CTA, Mar13 <Tbone@pimpdaddy.com>
Re: Can you return hashes in subroutines? (Krusty276)
Re: Can you return hashes in subroutines? (Krusty276)
Checking for a hung url <toryj@corp.sgi.com>
Re: LWP and Put on Windows NT (Bob Trieger)
Re: LWP and Put on Windows NT <cristenc@cnet.com>
Re: multi-d array (M.J.T. Guy)
Re: multi-d array (Larry Rosler)
Net::FTP testing.. <horizon@internetexpress.com.au>
Re: Number of hash entries... (Tad McClellan)
Perl 5.005.03 build fails on NextStep 4.2 with miniperl (jim brown)
Program to format Perl code (syntax indents)????? <kkwiatek@nist.gov>
Re: Program to format Perl code (syntax indents)????? <propart@mediaone.net>
Q: perl/fork()/system() problem on Solaris 2.6 (Arvind Srinivasan)
Re: RegEx question (Tad McClellan)
Re: Running CGI scripts OFFLINE (Larry Rosler)
Re: Running CGI scripts OFFLINE <kenny@larkrise.force9.co.uk>
Re: SQL help please (newbie question) <cassell@mail.cor.epa.gov>
test date <admin@itology.com>
Re: test date (Larry Rosler)
Testing Perl Scripts???? <somers@nucleus.com>
Re: Testing Perl Scripts???? <horizon@internetexpress.com.au>
Re: Text::Soundex for languages other than English? <cassell@mail.cor.epa.gov>
Re: Text::Soundex for languages other than English? (Jed Parsons)
Why does Perl do this? <propart@mediaone.net>
Re: Why does Perl do this? (brian d foy)
Win32/Perl/Apache Problem <bmaring@gte.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 02 Apr 1999 22:33:01 GMT
From: Sulakshan Shetty <sulakshan.shetty@mci.com>
Subject: Re: =~tr / / /; problem
Message-Id: <370545FA.F26F7F31@mci.com>
Andrea,
Use =~ s///g and that shud work.
> I write a program which allow visitor input data
> I would like to convert " to " in" by use =~ tr/\" /in/;
> but not successful
$STRING="this is a \" string with \" quotes in it";
$STRING =~ s/\"/\"in\"/g;
:)
Sulakshan
--
sulakshan.shetty@mci.com / f5-0521b / (719) 265 0162 / v622 0162
------------------------------
Date: Fri, 02 Apr 1999 13:58:59 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Alternative for Perl
Message-Id: <37053DA3.C737A26A@mail.cor.epa.gov>
David Delikat wrote:
> Frank de Bot wrote:
> >
> > Is there an other language to replace perl, which is much faster?
> > Currently I have a database and I think when It's grown bigger, it will
> > ask too much of my computers capicity.
> >
> > --
> > My Email : debot@xs4all.nl
> > Homepages : - http://www.debot.nl/ppi/
> > - http://www.searchy.net/
>
> someone could write a perl compiler.
There is one.. of a sort. But given its output, I wouldn't
vouch for significant speed gains from it.
> otherwise, there's C++, Java, Delphi...
I'm going to disagree with you here. Java will be *much*
*much* slower. C++ may not be any faster, and if it is
faster, the improvement may be minimal [see Kernighan and
Pike]. I haven't seen any evidence that Delphi would be
faster either. If he really needs to speed up the code,
he may have to resort to C, either for the bottlenecks or
_in_toto_. There are plenty of Perlites who code the
nasty computational bits of their programs in C, then use
XS to embed it in their Perl program.
Frank's best option may be profiling or algorithm work.
Is the problem the database or RDBMS or database-hack
he's using? Is it some chunk of code where he manipulates
results? Is it a regex which could be written to run
faster? I dunno. Net::ESP is still pre-alpha software. :-)
> or you could get a faster computer.
The *best* way to speed up the program. And think of
the 'computer envy' it would inspire in his co-workers.
[Or cow-orkers for Dilbert fans.] And it's not just my
opinion - it's in the FAQ. And in 'Practical C
Programming' by Oualline.
> -dav
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 02 Apr 1999 14:01:51 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Alternative for Perl
Message-Id: <37053E4F.30615D2D@mail.cor.epa.gov>
Frank wrote:
>
> Frank de Bot wrote in message <3705182F.22C91229@xs4all.nl>...
> >Is there an other language to replace perl, which is much faster?
> >Currently I have a database and I think when It's grown bigger, it will
> >ask too much of my computers capicity.
>
> If you are using Windows NT and IIS3/4 than use ASP. It's fast. It's easy...
> Frank.
But ASP does not cover the same solution space as Perl. You can
use ASP *and* PerlScript. Or not. But benchmarks recently
published in the win32-perl-users newsgroup suggest you might do
better in the NT/IIS case to switch to linux and apache, if you
just want to speed things up. Still, that does *not* address
the database issue.
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 2 Apr 1999 22:13:14 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Alternative for Perl
Message-Id: <slrn7gagcl.eeg.fl_aggie@stat.fsu.edu>
On Fri, 02 Apr 1999 13:58:59 -0800, David L. Cassell
<cassell@mail.cor.epa.gov> wrote:
+ David Delikat wrote:
+ > or you could get a faster computer.
+ The *best* way to speed up the program.
Nah. More memory. Swapping is hell.
James
------------------------------
Date: Fri, 02 Apr 1999 22:09:48 GMT
From: hojo <hojo@i-tel.com>
Subject: Apache::Registry
Message-Id: <7e3f75$69a$1@nnrp1.dejanews.com>
A few questions regarding Registry. I have been running all scripts. But,
when I finally put an index.html file, it tries to read it as a script. Is
there a setting for Registry that will enable it to read .html files as html
files?
Also, Is there any documentation and faq's about using frames and
Apache::Registry? We cannot seem to generate index files that build frames.
Thank You
=-=-=-=-=-=-=-=-=-=
David Hajoglou
Sys. Admin., Abbreviator
=-=-=-=-=-=-=-=-=-=
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 2 Apr 1999 15:27:20 -0600
From: Tushar Samant <Tbone@pimpdaddy.com>
Subject: Re: book gathering was Re: Books seen on the CTA, Mar13 - Mar19
Message-Id: <7e3cno$f26@masu.wwa.com>
Which also reminds me--just today I saw some guy get off the train
carrying "The Perl Journal". He disappeared before I could react.
In my opinion that's a sign of quite a high level of geek-lamosity.
I felt a bond of brotherhood and was verklempt for quite a while.
------------------------------
Date: 2 Apr 1999 21:43:05 GMT
From: krusty276@aol.com (Krusty276)
Subject: Re: Can you return hashes in subroutines?
Message-Id: <19990402164305.23430.00001619@ng12.aol.com>
>
>Now if what you are trying to do is manipulate multi-dimensional arrays,
>that is a whole different kettle of fish.
>
>
Yeah that's what I'm trying to do, should I just pass arrays, I'll try that.
Thanks
------------------------------
Date: 2 Apr 1999 21:52:13 GMT
From: krusty276@aol.com (Krusty276)
Subject: Re: Can you return hashes in subroutines?
Message-Id: <19990402165213.23430.00001627@ng12.aol.com>
Yeah , ok I tried it that was the problem, I though a multidemensional array
was a hash, this is my second week of Perl programming, sorta a C guy.
Thanks for your help
>Now if what you are trying to do is manipulate multi-dimensional arrays,
>that is a whole different kettle of fish.
>
------------------------------
Date: Fri, 02 Apr 1999 13:42:32 -0800
From: Tory Johnson <toryj@corp.sgi.com>
Subject: Checking for a hung url
Message-Id: <370539C7.AA51FD10@corp.sgi.com>
How can I check to see if a URL is hung or not. What I want to do is
have a cron job go out and check the Web Server to see if there are any
URL's that are being hung and if so go and restart the server.
--
Tory Johnson
------------------------------
Date: Fri, 02 Apr 1999 21:03:16 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: LWP and Put on Windows NT
Message-Id: <7e3b76$hmr$1@ash.prod.itd.earthlink.net>
Cristen Carvis <cristenc@cnet.com> wrote:
!>I'm having problems using the LWP module to PUT a file from my NT
!>machine onto a UNIX machine. I'm getting the ftp return code 553 - which
!>I've found to mean:
!>553 Requested action not taken.
!>File name not allowed.
!>
!>Here's what I'm doing:
!>my $ftpReq = new HTTP::Request PUT =>
Why not just use the Net::FTP module? PUT is a valid http method but I have
never seen any use it.
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: Fri, 02 Apr 1999 13:41:49 -0800
From: Cristen Carvis <cristenc@cnet.com>
Subject: Re: LWP and Put on Windows NT
Message-Id: <3705399C.409A7B5D@cnet.com>
I've solved my problem by using the Net::FTP module instead.
Wonderful!
~ Cristen
Cristen Carvis wrote:
> Hi ~
>
> I'm having problems using the LWP module to PUT a file from my NT
> machine onto a UNIX machine. I'm getting the ftp return code 553 - which
> I've found to mean:
> 553 Requested action not taken.
> File name not allowed.
>
> Here's what I'm doing:
> my $ftpReq = new HTTP::Request PUT =>
> 'ftp://username:password@machine.cnet.com//the directory/';
>
> $ftpReq->content('tip.txt');
>
> my $ftpRes = $ua->request($ftpReq);
>
> print $ftpRes->message();
>
> I've also tried this:
> $ftpReq->content('c:\WINNT\Profiles\cristenc\Desktop\tip.txt','tip.txt');
>
> but that doesn't seem to work either.
>
> Any suggestions?
>
> (I haven't been able to find detailed documentation on using PUT.)
>
> Thanks!
> ~ Cristen
------------------------------
Date: 2 Apr 1999 22:37:59 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: multi-d array
Message-Id: <7e3gs7$l1s$1@pegasus.csx.cam.ac.uk>
Larry Rosler <lr@hpl.hp.com> wrote:
>
>Actually, it's valid Perl 'baby-talk'. Here's the adult version:
>
>@Lol = ( [ ('happy') x $max ] ) x $max;
Adulthood is all very well, but beware the dangers of senility.
Are you sure you want all the elements of @Lol to be the *same*
anonymous array?
Mike Guy
------------------------------
Date: Fri, 2 Apr 1999 15:38:06 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: multi-d array
Message-Id: <MPG.116ef4b08fd670fb989820@nntp.hpl.hp.com>
In article <7e3gs7$l1s$1@pegasus.csx.cam.ac.uk> on 2 Apr 1999 22:37:59
GMT, M.J.T. Guy <mjtg@cus.cam.ac.uk >says...
> Larry Rosler <lr@hpl.hp.com> wrote:
> >
> >Actually, it's valid Perl 'baby-talk'. Here's the adult version:
> >
> >@Lol = ( [ ('happy') x $max ] ) x $max;
>
> Adulthood is all very well, but beware the dangers of senility.
>
> Are you sure you want all the elements of @Lol to be the *same*
> anonymous array?
Oop. Senile indeed! The previous version was:
@Lol = map { [ ('happy') x $max ] } 1 .. $max;
I should have stopped there. But I thought why bother with a map when
simple repetition will do? It won't.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 03 Apr 1999 09:36:37 +1000
From: Mick <horizon@internetexpress.com.au>
Subject: Net::FTP testing..
Message-Id: <37055485.F1C51203@internetexpress.com.au>
Hi...I'm using Net::FTP to get files from a remote machine(s).
Is it possible to test Net::FTP on a standalone box? - By using
localhost as the foriegn address??(Have Apache installed)
I'm only connected via modem, so to test my script could get quite
expensive!
#!C:\PERL\5.00502\BIN\MSWin32-x86-object\perl -w
use Net::FTP;
use File::Listing qw(parse_dir);
$remote_host = '127.0.0.1';
$remote_path = '/remote_doc';
$ftp = Net::FTP->new($remote_host, Timeout => 60) or
die "Cannot contact $remote_host: $!";
etc..
Net::FTP: Unknown error at download.pl line 31
Cannot contact 127.0.0.1: Bad file descriptor at download.pl line 31.
Or am I doomed to dialing-up to test?? :|
Thanks for any replies,
Mick
--
----------------------------------------------------------------
HORIZON Software Solutions
Visit Site - http://www.deakin.edu.au/~bellears/horizon/index.html
e-mail - mailto:horizon@internetexpress.com.au
----------------------------------------------------------------
------------------------------
Date: Fri, 2 Apr 1999 11:44:10 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Number of hash entries...
Message-Id: <q4s2e7.tgf.ln@magna.metronet.com>
Louis Zuckerman (louis@trapezoid.com) wrote:
: Is there a way to have Perl return how many key/value pairs are in a
: hash?
Perl FAQ, part 4:
"How can I know how many entries are in a hash?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 2 Apr 1999 16:30:27 -0500
From: jim@mango.rsmas.miami.edu (jim brown)
Subject: Perl 5.005.03 build fails on NextStep 4.2 with miniperl
Message-Id: <7e3ctj$5ml@mango.rsmas.miami.edu>
I get the following error with Perl 5.005.03 (and with previous 5.005
versions as well) while attempting to build Perl. The system is NextStep
4.2 with NextStep compiler cc 2.7.2.1 (a gcc variant). I compiled without
optimization.
DYLD_LIBRARY_PATH=/d1/jim/perl5.005_03: cc -dynamic -prebind -L/usr/local/lib
-o miniperl miniperlmain.o libperl.5.dylib
DYLD_LIBRARY_PATH=/d1/jim/perl5.005_03: ./miniperl -w -Ilib -MExporter -e 0 ||
make minitest
DYLD_LIBRARY_PATH=/d1/jim/perl5.005_03: ./miniperl configpm tmp
/^/: unmatched () in regexp at configpm line 355.
*** Exit 255
Stop.
Line 355 of configpm is:
s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
I have successfully built this version of Perl on DEC OSF and SGI IRIX
but have not been able to get any version of 5.005 to build on NextStep.
Any ideas what I should do now?
Jim Brown, jim@rrsl.rsmas.miami.edu
--
Jim Brown, University of Miami, RSMAS/MPO
[send mail to jim@lime.rsmas.miami.edu]
------------------------------
Date: Fri, 2 Apr 1999 18:02:20 +0100
From: "Keith Kwiatek" <kkwiatek@nist.gov>
Subject: Program to format Perl code (syntax indents)?????
Message-Id: <7e3d8e$nbd$1@news.nist.gov>
Hello,
Do you know of a program that will format existing perl programs so that the
code is indented nice and neat?
Thanks,
Please post or email me at kkwiatek@nist.gov
Keith
------------------------------
Date: Fri, 02 Apr 1999 16:58:42 -0500
From: PropART <propart@mediaone.net>
Subject: Re: Program to format Perl code (syntax indents)?????
Message-Id: <37053D91.8DC93373@mediaone.net>
I just happened to read this about 15 min. ago...
http://language.perl.com/newdocs/pod/perlfaq3.html#Is_there_a_pretty_printer_forma
Keith Kwiatek wrote:
> Hello,
>
> Do you know of a program that will format existing perl programs so that the
> code is indented nice and neat?
>
> Thanks,
>
> Please post or email me at kkwiatek@nist.gov
>
> Keith
------------------------------
Date: 2 Apr 1999 16:31:27 -0500
From: asriniva@newstand.syr.edu (Arvind Srinivasan)
Subject: Q: perl/fork()/system() problem on Solaris 2.6
Message-Id: <3705372f.0@news.syr.edu>
We are in the process of migrating from Solaris2.5.1 to 2.6 and have
encountered a problem in one of our scripts which uses fork() & system().
It appears that setting $SIG{CHLD} causes the return code from
system() to be -1. This happens only on Solaris 2.6.
-----
#!/usr/local/bin/perl
$child = fork();
# if this line is not commented, then $status = -1 in 2.6
$SIG{CHLD} = "IGNORE";
if ($child == 0)
{
$status = system("echo ChildProcess");
print "Child status = $status (errno = $!)\n";
exit;
}
sleep(5);
-----
Perl version: 5.004
On 2.5.1, the output is:
ChildProcess
Child status = 0 (errno = )
On 2.6, the output is:
ChildProcess
Child status = -1 (errno = No child processes)
-----
Patch 105210-19 didn't fix the problem.
Any suggestions to move us forward would be greatly appreciated.
Thanks,
Arvind
------------------------------
Date: Fri, 2 Apr 1999 11:33:22 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: RegEx question
Message-Id: <igr2e7.tgf.ln@magna.metronet.com>
Ketan Patel (ketanp@BLAHNOSPAMBLAHxwebdesign.com) wrote:
: How
: could I narrow it down to just the values inside the HTML tags?
use HTML::Parser;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 2 Apr 1999 13:00:53 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Running CGI scripts OFFLINE
Message-Id: <MPG.116ecfded2d4ce6498981e@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <Vm7N2.1561$04.1243@stones> on Fri, 2 Apr 1999 18:49:54
+0100, Matt <matt@gapps.co.uk >says...
> I was wondering if there was any software about that would let you run CGI
> scripts offline in a windows enviroment.
>
> This would be very useful as it would save a lot of online testing
The CGI.pm module makes all of that very easy, I'm told.
But I do it simply by using a small shell script to first set the
environment variables REQUEST_METHOD, QUERY_STRING, or whatever (which
are the interface from a server to a CGI program) and then invoke the
program. (STDIN is also an interface if the method is POST. This can
be piped in by the shell script also.)
> Please mail responses to :-
>
> matt@gapps.co.uk
Sure.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 2 Apr 1999 22:51:21 +0100
From: "Radiac" <kenny@larkrise.force9.co.uk>
Subject: Re: Running CGI scripts OFFLINE
Message-Id: <EebN2.1313$54.1191@wards>
I use tinyweb as my web server. it is literally tiny - less than 100k iirc.
I point that in the direction of a directory holding my website. in there i
have a directory called cgi-bin. Having installed perl v5 and associated .pl
files with perl.exe, all i have to do is go to, for eg,
http://127.0.0.1/cgi-bin/script.pl in ie. very simple.
------------------------------
Date: Fri, 02 Apr 1999 14:05:17 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: SQL help please (newbie question)
Message-Id: <37053F1D.F1C70CFD@mail.cor.epa.gov>
Eric Bohlman wrote:
>
> R&K <rnichols@airnet.net> wrote:
> : Could somebody please point me to some internet resources using perl with an
> : sql database. Tutorials preferably.
>
> Take a look at <URL:http://reference.perl.com/query.cgi?datadbase>.
Ahem. I think you meant s/datadbase/database/ there. I don't
mean to be insulting, but you type like me. Hmm, I guess that
*is* an insult. :-)
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 02 Apr 1999 22:33:48 GMT
From: David Cooper <admin@itology.com>
Subject: test date
Message-Id: <37054731.8D9E0E84@itology.com>
Hello I am using a perl script to input data into a mySQL table. Before
the data is submitted I want to test it's validity.
1) How do I test that the date is in the format yyyy-mm-dd?
2) How do I test that the date has not already past?
Thanks David
--
David Cooper, BA, CNA --- mailto:cooper@ITology.com
------------ http://www.itology.com --------------
------- Information Technology Developers --------
------------------------------
Date: Fri, 2 Apr 1999 15:29:24 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: test date
Message-Id: <MPG.116ef2a91df2113a98981f@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <37054731.8D9E0E84@itology.com> on Fri, 02 Apr 1999 22:33:48
GMT, David Cooper <admin@itology.com >says...
> Hello I am using a perl script to input data into a mySQL table. Before
> the data is submitted I want to test it's validity.
>
> 1) How do I test that the date is in the format yyyy-mm-dd?
perldoc perlre
> 2) How do I test that the date has not already past?
use Time::Local;
Use the timelocal() function from that module to convert the time
components that you have isolated using the regex in step 1 to time in
seconds since the Unix Epoch. (Warning: year - 1900; month - 1. Check
the documentation of the localtime() function.) Then compare that value
with the current time from the time() function.
comp.lang.perl and alt.perl removed.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 02 Apr 1999 16:26:12 -0800
From: Steve Somerville <somers@nucleus.com>
Subject: Testing Perl Scripts????
Message-Id: <37056023.F3139A07@nucleus.com>
I have Perl on my personal computer... running Windows 95, and I
need a way to test Perl scripts before I FTP them to my ISP.
Is there a way to have the output from Perl.exe go to my netscape or
IE browser? If not... then, how do you guys handle this situation?
This has been holding me up for three days now, and I think I've
read every FAQ online.
Appreciate the help in getting over this hurdle.
Please feel free to E-Mail me at somers@nucleus.com
Thanks Steve
------------------------------
Date: Sat, 03 Apr 1999 09:49:42 +1000
From: Mick <horizon@internetexpress.com.au>
Subject: Re: Testing Perl Scripts????
Message-Id: <37055795.37A70755@internetexpress.com.au>
Hi Steve....You need to have a Web Server installed on your computer.
I use Apache, but it's a personal choice - There are many out there.
Once you have the Web Server installed, you must configure it to
handle(execute) .pl scripts.
*NOTE* - You may find that Netscape and IE process forms in a slightly
different manner!
Hope this helps,
Mick
Steve Somerville wrote:
> I have Perl on my personal computer... running Windows 95, and I
> need a way to test Perl scripts before I FTP them to my ISP.
>
> Is there a way to have the output from Perl.exe go to my netscape or
> IE browser? If not... then, how do you guys handle this situation?
>
> This has been holding me up for three days now, and I think I've
> read every FAQ online.
>
> Appreciate the help in getting over this hurdle.
>
> Please feel free to E-Mail me at somers@nucleus.com
>
> Thanks Steve
--
----------------------------------------------------------------
HORIZON Software Solutions
Visit Site - http://www.deakin.edu.au/~bellears/horizon/index.html
e-mail - mailto:horizon@internetexpress.com.au
----------------------------------------------------------------
------------------------------
Date: Fri, 02 Apr 1999 13:44:31 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Text::Soundex for languages other than English?
Message-Id: <37053A3F.93F790BA@mail.cor.epa.gov>
Jed Parsons wrote:
>
> In article <3703D059.9618CF8E@mail.cor.epa.gov>,
> David L. Cassell <cassell@mail.cor.epa.gov> wrote:
>
> >You might want to start with the soundex algorithm in Knuth. It may not be
> >at all what you're hoping for. It doesn't 'match' words so much as hash all
> >words into a small space.
>
> Right, I know. Sorry if I was vague. The hash by the fuzzy sound-alike
> algorithm is exactly what I want. I think I will have to go to Knuth
> and adapt the code of Text::Soundex to suit my needs better.
That shouldn't be too awful, actually. Look at the code in Mike
Stok's Text::Soundex module, and you'll see that it is really
mostly a short subroutine you could cannibalize. You might want
to insert a regex to change words like 'aquarum' to 'aqua' to
get the fuzzy match you seek. since Latin is so much more regular
than English, you might be able to get away with half a dozen
regexes, to handle all the charming features like the genitive plural
and verb participle forms.. then run the results through the
soundex code in Mike's subroutine.
If you get it working, let people here know. There's a text
pluralization module that handles classical plurals.. so why
not a Latin soundex module?
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 2 Apr 1999 23:20:01 GMT
From: jed@socrates.berkeley.edu (Jed Parsons)
Subject: Re: Text::Soundex for languages other than English?
Message-Id: <7e3jb1$70q$1@agate.berkeley.edu>
In article <37053A3F.93F790BA@mail.cor.epa.gov>,
David L. Cassell <cassell@mail.cor.epa.gov> wrote:
>That shouldn't be too awful, actually. Look at the code in Mike
>Stok's Text::Soundex module, and you'll see that it is really
>mostly a short subroutine you could cannibalize.
I've done that, now. A few adjustments increased its sensitivity to Latin
tremendously. What a pretty little algorithm; I wasn't expecting it to
be that simple. :)
As you say, I think a few regexes will take care of most cases of
lengthy inflections that throw off the hash algorithm.
Thanks for the advice,
Jed
--
Jed Parsons: ``Lingua balbus, hebes ingenio
Harpsichordist, Classicist, Homebrewer. Viris doctis sermonem facio.''
mailto:jed@socrates.berkeley.edu -- Archipoeta
http://www.OCF.Berkeley.EDU/~jparsons/
------------------------------
Date: Fri, 02 Apr 1999 16:45:49 -0500
From: PropART <propart@mediaone.net>
Subject: Why does Perl do this?
Message-Id: <37053A8D.FE843864@mediaone.net>
What's up with this? Program 2 won't compile and gives me an error
message:
"in string, @foo must be written as \@foo at line.."
I thought all variables including variables in subroutines were global
in Perl unless localized with my or local. It seems weird to me that
Prog 1 works and Prog 2 doesn't. Also, if I assign @foo to another array
before the print statement, Prog 2 works.
# --- Prog 1 --- #
some_sub() ;
print @foo ; #prints 123 (as expected)
sub some_sub {
@foo = ( 1, 2, 3 ) ;
}
# --- Prog 2 --- #
some_sub() ;
# @goo = @foo ; # remove comment and prog 2 works
print "@foo" ; #does not print 1 2 3 (as expected)
sub some_sub {
@foo = ( 1, 2, 3 ) ;
}
------------------------------
Date: Fri, 02 Apr 1999 19:05:39 -0500
From: brian@pm.org (brian d foy)
Subject: Re: Why does Perl do this?
Message-Id: <brian-ya02408000R0204991905390001@news.panix.com>
In article <37053A8D.FE843864@mediaone.net>, PropART <propart@mediaone.net> posted:
> What's up with this? Program 2 won't compile and gives me an error
> message:
> "in string, @foo must be written as \@foo at line.."
see the perldiag man page for fuller explanations of perl
warnings.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Fri, 2 Apr 1999 17:18:03 -0500
From: "Blayne Maring" <bmaring@gte.net>
Subject: Win32/Perl/Apache Problem
Message-Id: <7e3e17$liq$1@news-1.news.gte.net>
This one has me stumped. Some guidance would be greatly appreciated.
I'm running the Apache 1.3.4, Perl 5.0.9, and IE5.0 on NT4(sp4).
Here is my HTML file (with detail omitted):
<html>
<head><title>Our Survey</title></head>
<h1>Language Survey</h1>
<body>
<form action=http://localhost/cgi-bin/OurSurvey.pl method=GET>
</body></html>
Here is my .pl file which is in C:\Program Files\Apache
Group\Apache\cgi-bin. Also, my ScriptAlias is
/cgi-bin/ "C:/Program Files/Apache Group/Apache/cgi-bin". This script works
fine from the command line, however, does not work from the browser.
#! C:/Perl/bin/perl.exe;
print "Content-type: text/html\n\n";
print<<EOM;
<html><head><title> Response </title></head>
<body>
<h1> This is a response </h1>
</body></html>
EOM
And finally, here is what got put in the error log:
Apache: [Fri Apr 02 16:40:28 1999] [error] [client 127.0.0.1] (2)The system
cannot find the file specified: could not run script interpreter:
C:/Perl/bin/perl.exe; "c:/program files/apache
group/apache/cgi-bin/oursurvey.pl"
Apache: [Fri Apr 02 16:40:28 1999] [error] [client 127.0.0.1] (2)No such
file or directory: couldn't spawn child process: c:/program files/apache
group/apache/cgi-bin/oursurvey.pl
--
Blayne Maring
Daugherty Systems
Ph: (770) 569-1904 x223
Cell: (678) 361-4138
maringb@daugherty.com
http://www.daugherty.com
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5287
**************************************
