[10377] in Perl-Users-Digest
Perl-Users Digest, Issue: 3970 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 14 08:08:18 1998
Date: Wed, 14 Oct 98 05:00:33 -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 Wed, 14 Oct 1998 Volume: 8 Number: 3970
Today's topics:
Re: Are there any "perl.newbie" group or forum? <ckc@dmi.dk>
Re: Continuing s/// from the last position. <erhmiru@erh.ericsson.se>
CreateObject doesn't work via my browser nicolaslecart@my-dejanews.com
Re: encryption (Sam Holden)
Re: encryption <qdtcall@esb.ericsson.se>
Re: exit code... (Sam Holden)
Re: Exporting environment variables to parent shell scott@softbase.com
Re: How do I use die? <steph@hotkey.net.au>
Re: Jiggers! It's Larry <mp@mkt2mkt.com>
Need help with the Safe Module <aturner@best.com>
Re: Need help with the Safe Module (M.J.T. Guy)
Re: Pack and Unpack (Tye McQueen)
Passing objects in Perl <stefanos@e-scape.net>
Re: Passing objects in Perl (brian d foy)
Re: Perl Cookbook - is this the best perl book? (Brand Hilton)
Re: Perl object - why does this fail? (Mark-Jason Dominus)
Perl under OS/2 ("Mark Morgan Lloyd ")
Re: Proper Names and Mc etc. (Mark-Jason Dominus)
Re: Q: How to Create Machines on the Domain? (Tye McQueen)
Question about PERL and Search Engines <mp@mkt2mkt.com>
Re: Rounding in Perl (Sam Holden)
Re: Statistics for comp.lang.perl.misc (Craig Berry)
Re: Trying to setup Perl locally: Software Error? <steph@hotkey.net.au>
Re: Variable From Forms (brian d foy)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 Oct 1998 09:40:28 +0100
From: Casper Kvan Clausen <ckc@dmi.dk>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <Pine.GSO.3.92.981014093732.12706E-100000@edb>
On 13 Oct 1998, Mike West wrote:
> In article <Pine.GSO.3.92.981013114406.12706g-100000@edb>
> Casper Kvan Clausen, ckc@dmi.dk writes:
>
> >ML, for instance, is very clear and suitable for learning programming.
>
> "ML" ? Microsoft Lingo ? Multi Level? Mini Lisp ? Macho Language ?
Well, SML, actually - Standard ML. ML stands for Meta Language, I think.
It's a strongly typed functional language with a much more forgiving
syntax than LISP. The most advanced ML compilers are almost up to the
speed of C++.
Kvan.
-------Casper Kvan Clausen------ | 'I haven't seen an Englishman take a
----------<ckc@dmi.dk>---------- | blow like that since Hugh Grant!
Lokal 544 |
I do not speak for DMI, just me. | - Football announcer.
------------------------------
Date: 14 Oct 1998 11:32:24 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: uri@camel.fastserv.com
Subject: Re: Continuing s/// from the last position.
Message-Id: <lak9238p5j.fsf@erh.ericsson.se>
Uri Guttman <uri@camel.fastserv.com> writes:
> well, you are right that /g and \G only work with m// and you want to
> use s///.
Where do you found that /g works only with m//??? You can look on the p.72
of the Camel book you see that s/// can use /g if you want. Even there
is an example on the next page with s///g. Please check your sources.
> how about using substr on the string. use pos, $& and m//g to locate the
> matches, assign the new text into the spot with substr, and continue on
> after setting the new pos. in effect this is all s/// does (but more
> efficiently). use \G to anchor the search to the position of tha last match.
It wont be perl anymore... It will be some C style.
Please consider this code:
$var = '123456789';
print "Before: $var\n";
$matches = $var =~ s/(\d)/chr($1+64)/eg;
print "After: $var\n";
print "Made $matches replacements\n";
Which gives:
Before: 123456789
After: ABCDEFGHI
Made 9 replacements
Oops, I forgot that you are the guy who dont like me and don't want
to learn something from me. OK Uri, YOU (but only YOU) cannot use /g
in s///;.
Regards,
Michal
>
> there may be other possibilities including using index if the strings
> are not regexes.
>
> hth,
>
> uri
>
> --
> Uri Guttman Fast Engines -- The Leader in Fast CGI Technology
> uri@fastengines.com http://www.fastengines.com
------------------------------
Date: Wed, 14 Oct 1998 08:34:55 GMT
From: nicolaslecart@my-dejanews.com
Subject: CreateObject doesn't work via my browser
Message-Id: <701nng$c7d$1@nnrp1.dejanews.com>
Hello,
i wrote a simple cgi script which just read the properties
of an Excel document.
When i run it under a dos window ("perl scipt.pl") it works very well;
But when i excute it via my browser, the function
CreateObject can't create an Excel object instance, and i don't know why :-(((
Note that my web server (NES3.5.1 on Windows NT 4.0) is able to run cgi script
(other cgi script ,without OLE functions, work very well)
my simple cgi script is:
#start
use OLE;
$| = 1;
print "HTTP/1.0 200 OK\nContent-type: text/plain\n\n";
#print "Content-type: text/html\n\n";
$excel=CreateObject OLE 'Excel.Application.8' or warn "Couldn't create new
instance of Excel App!!";
$excel->Workbooks->Open( 'c:\\perl\\test.xls' ) or warn "Couldn't open file";
print "<BR>";
print "AUTEUR " ;
print $excel->Workbooks(1)->Author;
print <BR>;
print "TITRE " ;
print $excel->Workbooks(1)->Title;
print <BR>;
print "SUJET " ;
print $excel->Workbooks(1)->Subject;
$excel->Workbooks->Close() or warn "impossible fermer";
$excel->Quit();
#end
What the cause of this trouble ?? are my browser or my web server
misconfigured?
Any help is welcome
Regards
Nicolas
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 14 Oct 1998 06:24:10 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: encryption
Message-Id: <slrn728gsa.9ao.sholden@pgrad.cs.usyd.edu.au>
On 13 Oct 1998 21:18:21 GMT, John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
>In article <MPG.108d59559cb3626989808@nntp.hpl.hp.com>,
>Larry Rosler <lr@hpl.hp.com> wrote:
>>In article <1dguxph.19aj5d81jj881qN@host036-210.seicom.net> on Tue, 13
>>Oct 1998 21:53:43 +0100, Joergen W. Lang <jwl@_munged_worldmusic.de>
>>says...
>>> Orlando Frooninckx <Frook@mail.dma.be> wrote:
>>> > does anyone have a nice encryption function example so I can crypt
>>> > sentences before writing them to a file?
>>>
>>> look for "crypt" in the "perlfunc" manpage;
>>>
>>> hth, Joergen
>>
>>That won't help. The 'crypt' function is useful only for encrypting
>>passwords. It is effective only for the first eight characters of the
>>input string.
>
>But it is damn effective on those first 8.
>
>You could always operate on the sentences 8 characters at a time.
Of course it would then be a little hard to decrypt the text afterwards...
--
Sam
Basically, avoid comments. If your code needs a comment to be
understood, it would be better to rewrite it so it's easier to
understand. --Rob Pike
------------------------------
Date: 14 Oct 1998 10:39:49 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: encryption
Message-Id: <isg1crzgdm.fsf@godzilla.kiere.ericsson.se>
Frook@mail.dma.be (Orlando Frooninckx) writes:
> does anyone have a nice encryption function example so I can crypt
> sentences before writing them to a file?
You can find a few Perl implementations of encryption alorithms at
http://www.tpj.com/tpj/obfusc-3-writeup
--
Calle Dybedahl, qdtcall@esavionics.se, http://www.lysator.liu.se/~calle/
Mediocre minds think alike.
------------------------------
Date: 14 Oct 1998 09:21:27 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: exit code...
Message-Id: <slrn728r8n.eti.sholden@pgrad.cs.usyd.edu.au>
On 14 Oct 1998 00:51:16 GMT, Alan Su <alsu@soda.CSUA.Berkeley.EDU> wrote:
<snip>
>
>basically, the exit codes are being scaled by a factor of 256. now i
>know i'm doing something stupid, but what is it? thanks!
You are not reading the documentation which is as you say a stupid thing
to do...
try : perldoc perlvar
--
Sam
Basically, avoid comments. If your code needs a comment to be
understood, it would be better to rewrite it so it's easier to
understand. --Rob Pike
------------------------------
Date: 14 Oct 1998 12:07:03 GMT
From: scott@softbase.com
Subject: Re: Exporting environment variables to parent shell
Message-Id: <362493e7.0@news.new-era.net>
Halfdan Ingvarsson (halfdan@no-junkmail.please.pison.com) wrote:
> Is there any way of exporting environment variables, set in a perl
> script, out to the parent environment. (I'm probably missing something
> amazingly obvious).
By itself, no, there is no way for a process to affect its caller's
environment. If both the caller and program cooperate, it becomes
possible.
You can do this under Windows with a batch file:
@echo off
perl someprogram.pl
call tmp.bat
del tmp.bat
echo %somevar%
Here, someprogram.pl generates a batch file called tmp.bat with the
environment settings, and the batch file calls (and cleans up)
this batch file. After the call, the batch file has the
environment settings.
tmp.bat would just be a lot of set commands:
set somevar=somevalue
set anothervar=anothervalue
This idiom is probably adaptable to UNIX shells using the
. or source commands.
Scott
------------------------------
Date: Wed, 14 Oct 1998 16:01:15 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: Re: How do I use die?
Message-Id: <36243E2B.20FD@hotkey.net.au>
Jonathan Stowe wrote:
>
> On 10 Oct 1998 17:32:11 +0100 Jonathan Stowe <gellyfish@btinternet.com> wrote:
> >
> > BEGIN
> > {
> > $SIG{__WARN__} = $SIG{__DIE__} = sub {
> > print "Content-type: text/html\n\n";
> > print <<EOBLAH;
> > <HTML><HEAD><TITLE>Error message</TITLE></HEAD>
> > <BODY>@_</HEAD>
> > EOBLAH
> > }
> >
> > }
>
> Finger slip there - that should of course be:
>
> BEGIN
> {
> $SIG{__WARN__} = $SIG{__DIE__} = sub {
> print "Content-type: text/html\n\n";
> print <<EOBLAH;
> <HTML><HEAD><TITLE>Error message</TITLE></HEAD>
> <BODY>@_</BODY></HTML>
> EOBLAH
> }
>
> }
>
> But of course the mistake was *only in the HTML* ;-P
>
> /J\
> --
> Jonathan Stowe <jns@btinternet.com>
> Some of your questions answered:
> <URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
redundant(?) use of the body tag :]
------------------------------
Date: Tue, 13 Oct 1998 23:19:05 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Re: Jiggers! It's Larry
Message-Id: <36245068.1BC22E45@mkt2mkt.com>
>
> I saw the Salon article and thought it was general and interesting
> enough for less than technical readers; thus I sent it to a local
> manager who had recently heard, and commented on some fluff on
> tcl vs. perl.
>
> I could not find the "devhead" article you mentioned. I looked around
> and found nothing, then tried a search on "larry wall" and found only
> references for articles in September. Were you referring to those?
>
Please see:
http://www.zdnet.com/devhead/stories/articles/0,4413,2133588,00.html
Though I don't know if this is a static url or not...
It's called
Gluing the Web Together: An Interview with Larry Wall
Otherwise click on CGI/Perl/Tcl and you should see another link with the
title of the article.
> --
> // Lee.Lindley@Bigfoot.com
> // Be nice. It isn't that hard to do and it
> // makes people happy.
--
------
madame philosophe
"I am not a troll!"
- Famous last words before
the
guillotine of comp.lang.perl.misc
She's here to save the world from herself...
------------------------------
Date: Tue, 13 Oct 1998 22:32:23 +0800
From: Aaron Turner <aturner@best.com>
Subject: Need help with the Safe Module
Message-Id: <36236477.E17F5F67@best.com>
I've got a Perl CGI script running suid via a C wrapper at my ISP, but
it won't execute due to the following error:
Insecure dependency in open while running setuid at ./somefile.pl line
125.
Line 125 is pretty basic:
open (SAVEFILE, ">$newfile");
If I replace $newfile with a constant (string) then it doesn't
complain. The reason I'm getting the error (I suppose) is because
$newfile is determined via scanning a directory via parse_dir() and
determining the next available filename.
Hence I wonder if it would be possible to use the Safe module to make
this a "secure dependancy"? I've never used the Safe module, and the
perldoc man page is confusing to me.
Any assistance would be greatly appreciated! Thanks!
--
Aaron Turner | Either which way, one half dozen or another.
aturner@pobox.com | Check out the RedHat Linux User's FAQ Online!
www.pobox.com/~aturner | http://www.pobox.com/~aturner/RedHat-FAQ/
------------------------------
Date: 14 Oct 1998 11:43:31 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Need help with the Safe Module
Message-Id: <7022p3$fd$1@pegasus.csx.cam.ac.uk>
Aaron Turner <aturner@pobox.com> wrote:
>I've got a Perl CGI script running suid via a C wrapper at my ISP, but
>it won't execute due to the following error:
>
>Insecure dependency in open while running setuid at ./somefile.pl line
>125.
>
>Line 125 is pretty basic:
>
>open (SAVEFILE, ">$newfile");
>
>If I replace $newfile with a constant (string) then it doesn't
>complain. The reason I'm getting the error (I suppose) is because
>$newfile is determined via scanning a directory via parse_dir() and
>determining the next available filename.
See the perldiag entry for this message, then perldoc perlsec.
In particular, see the discussion of how to "untaint" a variable, and
also why this should not be done lightly.
Mike Guy
------------------------------
Date: 14 Oct 1998 00:35:57 -0500
From: tye@fumnix.metronet.com (Tye McQueen)
Subject: Re: Pack and Unpack
Message-Id: <701d7t$8i0@fumnix.metronet.com>
nospamno_adms1@cts.com (Garrett Casey) writes:
) Do you know of any good tutorial or lesson that goes over the pack and
) unpack functions. I looked at perlfunc but I am still a bit unclear.
I don't know of any tutorials, but I understand what you mean
about perlfunc. Even though I'm very familiar with pack()
and unpack() already, after reading perlfunc I still usually
have to try a few test cases to clear up some things.
But you can ask questions here, especially if they are fairly
specific. There is a good chance you'll get an answer. You
can also search www.dejanews.com (or other) for past questions
and answers on this.
) Remove "nospamo_" To send me email.
Okay then, I'll post instead.
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: Wed, 14 Oct 1998 01:46:13 -0400
From: Stefanos Kiakas <stefanos@e-scape.net>
Subject: Passing objects in Perl
Message-Id: <36243AA5.347EF98F@e-scape.net>
Hello,
How do I pass objects as parameters to other objects in Perl, and have
the
passed object respond to methods? Is it possible to do this with Perl?
Where can I find sample code?
Stefanos
reply to : stefanos@e-scape.net
------------------------------
Date: Wed, 14 Oct 1998 03:25:38 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Passing objects in Perl
Message-Id: <comdog-ya02408000R1410980325380001@news.panix.com>
Keywords: from just another new york perl hacker
In article <36243AA5.347EF98F@e-scape.net>, Stefanos Kiakas <stefanos@e-scape.net> posted:
> How do I pass objects as parameters to other objects in Perl, and have
>the
>passed object respond to methods? Is it possible to do this with Perl?
probably not. Perl's pretty limited after all ;)
> Where can I find sample code?
keep reading...
#!/usr/bin/perl
package DontBeAfriadTryItAndFindOutYouWontBreakAnything;
sub new { my $c = shift; my $s = {}; bless $s, $c; $s }
sub p_ref { my ($s, $p) = @_; print ref $p, "\n"; $p->japm }
sub japm { print "just another perl monger" }
package main;
my $object = new DontBeAfriadTryItAndFindOutYouWontBreakAnything;
my $other_object = new DontBeAfriadTryItAndFindOutYouWontBreakAnything;
$object->p_ref($other_object)
__END__
outputs
DontBeAfriadTryItAndFindOutYouWontBreakAnything
just another perl monger
--
brian d foy <comdog@computerdog.com>
Kernel Steve Austin - stronger, faster, threaded
<URL:http://kernel.steve.austin.pm.org>
------------------------------
Date: 14 Oct 1998 05:40:34 GMT
From: bhilton@tsg.adc.com (Brand Hilton)
Subject: Re: Perl Cookbook - is this the best perl book?
Message-Id: <701dgi$7p121@mercury.adc.com>
In article <beUU1.1642$fS.4920016@news.itd.umich.edu>,
Sean McAfee <mcafee@battlezone.rs.itd.umich.edu> wrote:
>
>A large chunk of either routine's time is being spent constructing the huge
>array every time through. I've added two more variants that use a
>preexisting array, then put back what's removed when done:
Noooo, it doesn't. Them's regexes in there, and they result in 280
elements being removed. You're only putting one back. However, this
sure does highlight the advantage of splice over grep when you have
very few things to remove.
>use Benchmark;
>
>@array2 = (1..10000);
> timethese(100, {
> 'splice' => sub {
> @array = (1..10000);
> for ($index = $#array; $index >= $[; $index--) {
> if ($array[$index] =~ /22/) {
> splice @array, $index, 1;
> }
> }
> },
> 'grep' => sub {@array = (1..10000); @array = grep {!/22/} @array;},
> 'splice2' => sub {
> for ($index = $#array2; $index >= $[; $index--) {
> if ($array2[$index] =~ /22/) {
> splice @array2, $index, 1;
> }
> }
> splice(@array2, 22, 0, "22");
> },
> 'grep2' => sub { @array2 = grep {!/22/} @array2;
> splice(@array2, 22, 0, "22"); }
> })
>
>Benchmark: timing 100 iterations of grep, grep2, splice, splice2...
> grep: 30 wallclock secs (29.74 usr + 0.02 sys = 29.76 CPU)
> grep2: 16 wallclock secs (16.13 usr + 0.00 sys = 16.13 CPU)
> splice: 20 wallclock secs (20.02 usr + 0.00 sys = 20.02 CPU)
> splice2: 5 wallclock secs ( 4.76 usr + 0.00 sys = 4.76 CPU)
>
>Dramatic!
>
>--
>Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
> | K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
> | tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
--
_____
|/// | Brand Hilton bhilton@adc.com
| ADC| ADC Telecommunications, ATM Transport Division
|_____| Richardson, Texas
------------------------------
Date: 14 Oct 1998 01:16:32 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Perl object - why does this fail?
Message-Id: <701c3g$637$1@monet.op.net>
Mark-Jason Dominus <mjd@op.net> wrote:
>: 1. I guess you don't know what `strict' is for.
David L. Hawley <dlhawley@user2.teleport.com> wrote:
>I do understand what strict is for...
Oh, sorry. If I can make a suggestion here, it's that you avoid
generic questions like this one:
>: >#What is going on here?
Those questions always make it sound like you know absolutely nothing,
and substantially reduce the quality of the answers you get, because
someone answering your question is likely to conclude from it that you
know absolutely nothing.
I'd like to make a more constructive suggestion here about how you
could have phrased your question, but I can't because I still don't
know what it was.
>I tried making 3 files before posting - but didn't try the @dd:: prefix in
>the file (or removing the strict).
The other way to solve the `strict' problem is to write this:
use vars '@ISA';
That tells `strict' that `@ISA' is exceptional and that you mean to
use it as a global variable.
>bb came from b which is short for base, likewise dd started as derived....
Oh, sure. That makes more sense to me now. But I'd like to suggest
that you take my suggestion anyway. I'd still like to suggest that
it's easier to think about things that have descriptive names, and
it's hard to think about things that have names that sound similar.
>thanks a lot,
Glad to be of service.
------------------------------
Date: Wed, 14 Oct 1998 09:13:56 GMT
From: mark_tbu@cix.compulink.co.uk ("Mark Morgan Lloyd ")
Subject: Perl under OS/2
Message-Id: <F0t8B9.FBM@cix.compulink.co.uk>
Is there anybody here with experience of running Perl under OS/2?
After successfully implementing modem sharing under Linux using the
documented Perl 5-liner, I thought to amuse myself by seeing what could be
done with Perl under OS/2. Unfortunately, OS/2's inetd appears to fail to
duplicate the invoked server's STDIN and STDOUT handles to the socket
being listened to (as described in Net::DummyInetd) although it does pass
a parameter to the server corresponding to the number in the "spawnning"
(sic) message (e.g. 17, 19 etc... I can see these using netstat). Does
anybody know of a kludge to work around this?
Mark Morgan Lloyd
mark_tbu@cix.co.uk
[Opinions above are the author's, not those of his employers or
colleagues]
** Internet feed may be unreliable- please cc anything important by email
**
------------------------------
Date: 14 Oct 1998 02:04:15 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Proper Names and Mc etc.
Message-Id: <701esv$67i$1@monet.op.net>
In article <19981013.232919.3Z7.rnr.w164w@locutus.ofB.ORG>,
Russell Schulz <Russell_Schulz@locutus.ofB.ORG> wrote:
>mjd@op.net (Mark-Jason Dominus) writes:
>
>> Look in the phone book for a minute, and you'll see that you're going
>> to lose. If you have MACDONALD, there is no way to tell whether it
>> should be MacDonald or Macdonald.
>
>but you can be sure it isn't MACDONALD; either of those is better.
>... there is a good approximation. if your data is CASE SMASHED already,
>you might as well use it.
Yes, but that wasn't what the original author was asking for.
He specifically mentioned `McDonald' and `deMoissac'.
>I'm willing to bet a small amount of money that that's a phone book
>error, not how they want their names spelled. (not both of them, anyway.)
You're on. I'll bet you a nickel. Send me email if you accept.
------------------------------
Date: 14 Oct 1998 00:55:12 -0500
From: tye@fumnix.metronet.com (Tye McQueen)
Subject: Re: Q: How to Create Machines on the Domain?
Message-Id: <701ec0$ave@fumnix.metronet.com>
"John P. Scrimsher" <john_scrimsher@ex.cv.hp.com> writes:
) I have looked at the AdminMisc module and it appears to only administer the
) user accounts.... Does anyone know of a module that has a MachineCreate()
) function or other Server Manager routines?
)
) I need to create a script that will allow users to add and delete machines
) from and NT domain, without giving them acces to Server Manager.
)
) Any help is appreciated
I previously used UserCreate from one of the Win32::*Admin*
modules to add Computer accounts to a domain such that Server
Manager appeared to like them [search www.dejanews.com if you want
to see how for whatever perverse reasons]. Unfortunately, these
machine accounts are not good enough to let those machines join
the domain during a later unattended. Server manager appears to
use the undocumented [as far as I can tell] Sam*() APIs to add
machine accounts.
So what I resorted to was:
rcmd \\pdc-domain net computer \\nt-bozo /add
for non-BDCs and then faked keystrokes to Server Manager for
adding BDCs. And it even works!
So you could arrange a way for these users to be able to trigger
the running of "net computer" on the PDC.
Get the documentation for the Sam*() APIs and you can write
an XS to allow you to do in Perl what Server Manager does.
Sorry, not as helpful as I'd like.
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: Tue, 13 Oct 1998 23:39:03 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Question about PERL and Search Engines
Message-Id: <36245515.3DB1C5BD@mkt2mkt.com>
mp> Do the commercial SE's tend to be written in Perl? I would think
mp> so but would rather hear it from the masses.
what do you mean by commercial? one you have to pay to use or pay to
own?
No No No I mean ... oh never mind!
and do you know that search engine systems tend to have 3 major
components which can be very isolated and developed and written in
different languages and on different systems.
I didn't know that. Thanks
from my own experience (having written the crawler for a major search engine
Oh and what IS a major search engine? It wouldn't be commercial would it?
( Actually that's what I meant!!! )
system in C) perl is a poor choice for efficiency reasons. there are many
smaller systems using perl since it is easier to develop in but it
doesn't scale well up to the GB's a day needed to crawl the entire web.
Thank you again for answering my question!
I guess when you say that Perl is good for small searches you mean for a
single website's search engine, right? Or do you mean for searches in which
speed is not a critical factor?
Thanks in advance
mp
------------------------------
Date: 14 Oct 1998 07:11:12 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Rounding in Perl
Message-Id: <slrn728jkg.ahp.sholden@pgrad.cs.usyd.edu.au>
On Tue, 13 Oct 1998 21:45:40 GMT, brobinson1@my-dejanews.com
<brobinson1@my-dejanews.com> wrote:
>Does anybody know of a library or function that rounds numbers to a specified
>number of decimal places?
sprintf.
--
Sam
Just don't create a file called -rf. :-)
--Larry Wall
------------------------------
Date: 14 Oct 1998 05:14:45 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <701c06$2ea$1@marina.cinenet.net>
Bart Lateur (bart.mediamind@ping.be) wrote:
: Martien Verbruggen wrote:
: >> An interesting statistic would be the number of off-topic (= not
: >> immediately Perl related) posts. Unfortunately, that's something that
: >> cannot easily be automated...
: >
: >You can find these in the post entitled 'New posters to
: >comp.lang.perl.misc'.
:
: Not so. I recently found that some long time posters are more guilty of
: this kind of behaviour. For examples, looks at the recent "Many Jars
: Mystery", or the thread on how to get rid of your neighbours using Perl.
Or for that matter, this very thread, since the statistical autoposting.
: The difference is: long time posters don't get sneared at for doing it.
The reason being, these threads are humorous, blowing-off-steam posts from
people who also contribute real questions and answers. They're similar to
the joking around one hears before, after, and (often) during an
engineering meeting.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "Ripple in still water, when there is no pebble tossed,
nor wind to blow..."
------------------------------
Date: Wed, 14 Oct 1998 16:05:11 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: Re: Trying to setup Perl locally: Software Error?
Message-Id: <36243F17.7226@hotkey.net.au>
Brian Owen wrote:
>
> I found in some older postings ways of running Perl locally. I'm trying to
> be able and test scripts on my machine here before posting them. My machine
> is a P-2 266 OS: NT 4.0 Mem: 64, so I don't really see a problem with it so
> far. I've d/l'ed and installed the OmniHTTPd Professional Edition, but when
> I run a script I know works it returns a Software Error. I've adjusted the
> setting to try and match file locations, and believe things are set
> correctly. If anyone has had similar problems please let me know. The
> error that is occuring it is stating, "Can't tie AE Info at
> C:\httpd\cgi-bin\viewJO.pl line 47. " Is there any adjustments that need to
> made to the script as well?
>
> This is that part of the script:
>
> tie (%aeInfo, SDBM_File, $dataPath.$aeInfoName, O_RDONLY, 0660) || die
> ("Can't tie AE Info");
>
> Thanks In Advance,
>
> Brian
could be a path problem?.. try using $! in your die to se why it's
dieing :]
Steph
------------------------------
Date: Wed, 14 Oct 1998 03:28:42 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Variable From Forms
Message-Id: <comdog-ya02408000R1410980328420001@news.panix.com>
Keywords: from just another new york perl hacker
In article <362424E5.6CF63272@yahoo.com>, John <leotl@yahoo.com> posted:
>I want to take the content somebody enters into a text box and make it
>the contents of a variable so that I can use the variable in a Perl
>program to put into another page.
use CGI.pm; #rebuild your CGI program. make it better, stronger, faster.
--
brian d foy <comdog@computerdog.com>
Kernel Steve Austin - stronger, faster, threaded
<URL:http://kernel.steve.austin.pm.org>
------------------------------
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 3970
**************************************
