[8545] in Perl-Users-Digest
Perl-Users Digest, Issue: 2162 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 23 11:17:46 1998
Date: Mon, 23 Mar 98 08:00:42 -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 Mon, 23 Mar 1998 Volume: 8 Number: 2162
Today's topics:
Re: "Newbie" Crib Notes (Steve Linberg)
Re: "Newbie" Crib Notes (Ronald L. Parker)
- Limiting the length of a list on a page..... - <James@cydaps.nospam.co.uk>
Re: Bigfloat's representation of an object (Jason Gloudon)
Can this be done with Perl5 and NT4 <webmaster@jersey.net>
Re: Challenge your programming skill (Ronald L. Parker)
Re: Creating a unique id number? <qdtcall@esb.ericsson.se>
Re: Creating a unique id number? khaines@oshconsulting.com
Re: dis gotta be a easy one?!?!?! (Ronald L. Parker)
Re: Dynamically checking for existing functions <jdporter@min.net>
Re: getting random elements from a simple array (Mike Stok)
Re: getting random elements from a simple array <merlyn@stonehenge.com>
Help with registry.pm <dennis.kowalski@daytonoh.ncr.com>
Re: Is there a "Newsgroup" for Newbies to Perl? (Andrew M. Langmead)
Re: Is there a "Newsgroup" for Newbies to Perl? <jdf@pobox.com>
Lazy question.. (NIALL JAMES SELETZKY)
Make people read the docs, was: Re: PerlRing??? (Joergen W. Lang)
Perl/CGI for Apache 1.3b3 for Win95 <internetfusion@sympatico.ca>
Re: PerlScript question(s) <barnett@houston.Geco-Prakla.slb.com>
So what's the *right* way to pass function names and ca (David R. Throop)
Re: So what's the *right* way to pass function names an <mhh@nortel.ca>
splicing element of a LoL nick@contract.kent.edu
Re: splicing element of a LoL (Mike Stok)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Testing website PERL <jefpin@bergen.org>
Re: Wanted: email address gleaner <jp@glpbooks.BADMAIL.com>
Re: Wanted: email address gleaner <jp@glpbooks.BADMAIL.com>
Re: What does "UNIX" stand for.. <tegan@deltanet.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 23 Mar 1998 09:55:28 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: "Newbie" Crib Notes
Message-Id: <linberg-2303980955290001@projdirc.literacy.upenn.edu>
In article <6f48sp$dn$1@gaia.ns.utk.edu>, "Bob Gwynne"
<gwynne@utkux.utk.edu> wrote:
> So! Abigail can whine about newbies asking questions that anyone with an IQ
> above 60 can see the answer to or find in the FAQ right before their very
> eyes. However, if the newbies try to help themselves, she jumps on them like
> a courgar, screaming and tearing at their throats. Instead, she should be
> happy that people are trying to help each other. But nooooooo.
Abigail was pissed off for two entirely valid reasons: (1) Referring
newbies to incomplete, poorly-thought-out solutions instead of the
easy-to-find and painstakingly developed FAQ, and (2) illegal and
unethical appropriation of her work. I would be livid too. Just because
you're a newbie doesn't mean you can ignore common sense and common
courtesy, to say nothing of copyright law.
If you would get off your horse and read her innumerable posts to this
group, you would realize that Abigail knows more about Perl and
programming than 99% of the people here combined. I've got a binder full
of her posts. You could learn a lot from her if you didn't have that
two-by-four on your shoulder.
> BTW: that's "from whom," not "who". Error: Incorrect syntax.
BTW: that's "cougar," not "courgar." Error: throwing stones in glass
houses. Mellow out.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Mon, 23 Mar 1998 15:05:17 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: "Newbie" Crib Notes
Message-Id: <3519792d.6649120@10.0.2.33>
On Sun, 22 Mar 1998 19:03:03 -0500, "Bob Gwynne"
<gwynne@utkux.utk.edu> wrote:
>
>So! Abigail can whine about newbies asking questions that anyone with an IQ
>above 60 can see the answer to or find in the FAQ right before their very
>eyes. However, if the newbies try to help themselves, she jumps on them like
>a courgar, screaming and tearing at their throats. Instead, she should be
>happy that people are trying to help each other. But nooooooo.
The newbies should help themselves to the FAQ.
I've had a vision of what clpm will be when (not if) clp.mod passes,
and it's not pretty. Brush off those copyright notices, folks, and
don't forget to pay your intellectual property lawyer.
Abigail has every right to jump down this guy's throat. He wouldn't
plagiarize from the Camel, so why does he feel it's okay to do it from
another publication, just because it happens to be in an electronic
format?
------------------------------
Date: Mon, 23 Mar 1998 14:21:56 +0000
From: James <James@cydaps.nospam.co.uk>
Subject: - Limiting the length of a list on a page..... -
Message-Id: <zWAPiCAEAnF1Ewzm@cydaps.co.uk>
Hi
I was wondering whether anyone could help with a small perl related
problem I am having...
I have a script that pulls details of the jobs for a specific agency
from a database of several agencies. The results are then displayed in
list format on the web page, but often each agency can have several
hundred jobs, and I was wondering how I could limit the list of jobs per
page. It would need to work in a similar manor to altavista or yahoo etc
where you can click a link to view the next 10 matches etc... I have the
script working and the format sorted, but I have not yet managed to work
out how to display 10 or 20 matches etc at a time...
I have taken a look at websearch.pl which displays search results in the
manor I am trying to achieve, but it seems extremely complex and I am
not having much luck... :-(
Perhaps I could attach the script to an email for some to look at and
advise, and help would be greatly appreciated.... thanks!
James
james@cydaps.nospam.co.uk (please remove nospam. if emailing)
------------------------------
Date: Mon, 23 Mar 1998 14:39:22 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: Bigfloat's representation of an object
Message-Id: <slrn6hcsu9.8cr.jgloudon@manitoba.bbn.com>
Duncan Cameron <dcameron@nospam.bcs.org.uk> wrote:
<....
>use Math::BigFloat;
>$f1 = Math::BigFloat->new("123 456.789 012");
>print $f1, "\n";
>
>gives output of 123456.789012 whereas I would expect a reference to the
>value. The new function of Bigfloat is:
<...
>Another puzzle is that, using the debugger, I can see that $foo actually
>contains the normalised version of the number, i.e. 123456789012E-6 but
>that value is not being returned.
BigFloat makes use of operator overloading, as coded in BigFloat.pm
use overload
< more code >
'neg' => sub {new Math::BigFloat &fneg},
'abs' => sub {new Math::BigFloat &fabs},
"" stringify
the sub stringify is declared a few lines later.
When you try to print $f1, perl converts $f1 to a string using the overloaded
stringify, which generates the representation you see.
--
Jason Gloudon
------------------------------
Date: Mon, 23 Mar 1998 10:33:54 -0500
From: Josh Cook <webmaster@jersey.net>
Subject: Can this be done with Perl5 and NT4
Message-Id: <351680E2.38A3@jersey.net>
First and foremost, thanks to anyone who helps me out here. I'm new to
perl and of course have came up with a very hard issue (I think).
My application that I need to create involves a perl script, running as
a cgi program, to request a webpage from another site and then take the
contents from that page and re-format them into a new page for my site.
The webpage that I would be 'borrowing' this information has the page
setup so that all of the information that I need is between <pre> tags.
Can anyone help me in getting started with this??? If possible, please
respond via email. Once again, thanks!
Josh
------------------------------
Date: Mon, 23 Mar 1998 14:42:30 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: Challenge your programming skill
Message-Id: <3517723b.4870643@10.0.2.33>
On 21 Mar 98 00:52:54 GMT, "TomH" <beans@bedford.net> wrote:
>
>A fairly interesting problem, although it really has nothing to do with
>Perl.
>
[...]
>You might get better answers if you can find a cartography news group.
Might I suggest comp.graphics.algorithms or comp.infosystems.gis?
Though when I asked a similar question in comp.graphics.algorithms a
few years ago, they were singularly unhelpful. Apparently it tore
them away from their /tire(?:some|less)/ discussion of BSP trees and
3-d engines.
The only solution I got from that discussion was somewhat novel:
Assign each point a position on a Peano curve. The closest points can
then be found by exploring the points with the closest positions on
the Peano curve, though it's not true that the closest point will have
the closest position. No reference was given, so I never researched
this solution further.
Abigail's suggestion of Knuth is the best I've seen, though you might
want to convert from lat/long to a good equidistant projection first,
to account for the fact that 40 west and 60 west are closer together
at 75 north than are 40 west and 50 west at the equator (insert degree
symbols where needed).
------------------------------
Date: 23 Mar 1998 14:03:57 +0100
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Creating a unique id number?
Message-Id: <isbtuxbltu.fsf@godzilla.kiere.ericsson.se>
ml@gondwanaland.com (Mike Linksvayer) writes:
> You could use the process id and timestamp.
>
> my $id = $$.time;
This might cause collisions on a heavily loaded server (if the pids
wrap around within a single second). Also, it is easily predictable
which may cause security problems. I'd throw in a random number there
somewhere.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: Mon, 23 Mar 1998 08:39:09 -0600
From: khaines@oshconsulting.com
Subject: Re: Creating a unique id number?
Message-Id: <6f5s5k$5f$1@nnrp1.dejanews.com>
In article <6f4i5m$8ht$1@shell3.ba.best.com>,
ml@gondwanaland.com (Mike Linksvayer) wrote:
>
> In article <millers3-2203981659190001@d66.pm9.sonic.net>,
> Leonard Miller <millers3@sonic.net> wrote:
> >I'm developing a script that will return a different form depending on the
> >results of the preceeding submission. I'd like to create a unique id
> >number that the user will get when they first submit and can be passed
> >along with the next submitted form. Is there any info on the web
> >regarding this? A book?
>
> You could use the process id and timestamp.
>
> my $id = $$.time;
Seconded, though you might want to be a bit more elaborate than that.
my $id = time() . '0' x (5 - length($$)) . $$;
By putting time first, and then padding the PID to a constant length, you'll
have a unique ID (assuming you don't go through all of the available PIDs in a
single second) with a numerically increasing value as time passes.
You won't be able to determine with certainty which ID in a given second was
created before another, but all of the PIDS from a previous second will have a
lower numerical value than all of the PIDS from the current second.
Kirk Haines
OSH Consulting
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 23 Mar 1998 14:52:09 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: dis gotta be a easy one?!?!?!
Message-Id: <3518762a.5877891@10.0.2.33>
On Sat, 21 Mar 1998 01:50:58 GMT, jeff@yoak.com (Jeff Yoak) wrote:
>Unfortunately, on systems where this is done it is also common to have
>no way to change file permissions which makes webserver testing
>difficult.
This is getting kinda far from Perl, but
quote site chmod 755 myscript.cgi
even works in the Microsoft "FTP client." Other FTP clients make it
even easier. If that still doesn't work, get a copy of Apache for NT
(now available in beta form) or install a free Unix on an old 486.
------------------------------
Date: Mon, 23 Mar 1998 09:03:59 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Dynamically checking for existing functions
Message-Id: <35166BCF.3FC6@min.net>
Bart Lateur wrote:
>
> "James" is another (typical) butler name, though this particular sub was
> not defined.
I'm not saying you're wrong; but I think James is more usually
thought of as an archetypical chauffeur's name, not butler's.
John Porter
------------------------------
Date: 23 Mar 1998 13:57:35 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: getting random elements from a simple array
Message-Id: <6f5pof$m5p@news-central.tiac.net>
In article <35160942.5EDC@datahost.com>,
Michael Stearns <michael@datahost.com> wrote:
>I'd like to do something like this:
>
>#!usr/local/bin/perl
>$i=0;
>while ($i<6) {
>
>@array=("one","two","three","four");
>srand; # not needed for 5.004 and later
>$index = rand @array;
>$element = $array[$index];
>print "$element/n";
>$i++;
>}
>
>The only problem is, I would like to loop through this several times and
>generate several different random elements from the array. Each time I
>run the script, I get the same element over and over again.
>
>I found an entry in the faq, explaing this matter, but the link was
>broken.
You want to call srand once at the beginning of the code, and recent docs
suggest using
time ^ ($$ + ($$ << 15))
as a quick to compute seed. If you're calling srand each time around the
loop using the expression above or in an old perl whose default seed is
time then every time srand is called in a given second the random number
generator is reset to the same place.
Does this behave any better?
#!/usr/local/bin/perl -w
srand (time ^ ($$ + ($$ << 15)));
@array = ('one', 'two', 'three', 'four');
for ($i = 0; $i < 6; $i++) {
$element = $array[rand @array];
print "$element\n";
}
The random number generator used by rand is deterministic, if you seed it
with a known value on a particular machine it will produce a predictable
stream of "random" values. So you need to use a relatively unpredictable
seed to start the generator returning numbers from some relatively
unpredictable point in its sequence. (This is a quick & simplified
explanation, you might want to research the algorithm used by rand to see
what's really going on one place to start is Tom Phoenix's stuff at
http://www.perl.com/CPAN-local/doc/FMTEYEWTK/random ).
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 23 Mar 1998 08:30:44 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: michael@datahost.com
Subject: Re: getting random elements from a simple array
Message-Id: <8chg4po257.fsf@gadget.cscaper.com>
>>>>> "Michael" == Michael Stearns <michael@datahost.com> writes:
Michael> I'd like to do something like this:
Michael> #!usr/local/bin/perl
Michael> $i=0;
Michael> while ($i<6) {
Michael> @array=("one","two","three","four");
Michael> srand; # not needed for 5.004 and later
You really really don't want to do this any more than once per program.
In fact, as your comment indicates, it's *0* times per program in 5.004.
Michael> $index = rand @array;
Michael> $element = $array[$index];
Michael> print "$element/n";
Michael> $i++;
Michael> }
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 162 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 23 Mar 1998 10:29:27 -0500
From: Dennis Kowalski <dennis.kowalski@daytonoh.ncr.com>
Subject: Help with registry.pm
Message-Id: <35167FD7.4F6E@daytonoh.ncr.com>
I have been able to create an environmental variable in the registry
with the registry.pm module.
Now I am trying to change the value of it but it won't do it
Can anyone see what I am doing wrong OR just give me another way to
change the value of an existing value ??
Here is my code
The variable name I am trying to change is DMKVAR
use Win32::Registry;
$p =
"SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
$main::HKEY_LOCAL_MACHINE->Open($p, $Vars) ||
die "Open: $!";
$Vars->GetValues(\%vals);
$subkey = 'DMKVAR';
foreach $k (keys %vals)
{
$key = $vals{$k};
if (uc $$key[0] eq $subkey)
{
$oldval = $$key[2]; # save current value of DMKVAR
last;
}
}
0;
$newvalue = $oldval . ';D:\DIRA;D:\DIRB';
$Vars->Open($subkey, $skey) ||
die "Open: $!";
$Vars->SetValue($subkey,REG_SZ,$newvalue) ||
die "Set: $!";
$main::HKEY_LOCAL_MACHINE->Close() ||
die "Close: $!";
Thanks
------------------------------
Date: Mon, 23 Mar 1998 15:14:15 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <EqA2Br.K3M@world.std.com>
Tom Christiansen <tchrist@mox.perl.com> writes:
>Nonprogammers should not use any programming language. Period.
>Nonsurgeons should perform any surgical interventions. Period. This is
>a profession, you know. If you aren't a programmer, hire one.
How about viewing it closer to something like carpentry? There are be
amateur carpenters. People working in their basement on evenings and
weekends, making little objects and furniture that a pro wouldn't
consider selling. They also know when they are out of their level of
expertise and wouldn't consider building something more complex like a
house. Some amateurs may even get to a level of skill comparable to
a professional.
But somewhere along the way, someone has to decide that they want to
do carpentry at some level, either professionally or for fun. They
can't say "I'm not a carpenter, but I just want to create this dining
room set before my guests arrive in two weeks." At some point, someone
has to decide that they want to learn to be a programmer, and learn
the skills that it entails.
Computer programming is fascinating. I wouldn't want to disuade
someone from tinkering with it. But if someone wants to learn it, they
should realize what path they are undertaking. They should realize the
limits to their ability. They should realize that there are some
places where it is too dangerous for them to work. (like programs that
are being run on behalf of people who would otherwise have no access
the computer on which the program is run.) And by no means should
these people be accepting money for doing things they really don't
know how to do.
--
Andrew Langmead
------------------------------
Date: 23 Mar 1998 10:53:04 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <yay1jten.fsf@news.concentric.net>
Tom Christiansen <tchrist@mox.perl.com> accidentally writes:
> Nonsurgeons should perform any surgical interventions. Period.
^^^^^^ ^^^^^^^
Are you volunteering? For either end?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 23 Mar 1998 15:11:34 GMT
From: njh4@aber.ac.uk (NIALL JAMES SELETZKY)
Subject: Lazy question..
Message-Id: <6f5u36$989$1@infoserv.aber.ac.uk>
Keywords: PERL FILE IO
Hi,
I need to knock up a quick Perl script for my final year dissertation. I don't want to learn Perl, as I prefer Java script,
but for the scope of this project, Perl is neccesary.
I need to create log files (in a similar manner to UNIX mail, ie. 1.txt, 2.txt, etc......) and write a few name/ value pairs
to said file. I am aware that I need to open the file and use printf to write to it, like so:
#Experimental. Print to file?-----------------------
#This should open a file
#Would be handy to make filename a variable of form n.txt
open (FILE,">$filename") or die "Cannot open: $!\n";
#This code snippet culled form news should open OUTFILE and write the variable x to
#said file.
printf OUTFILE ("%02d", $x);
#Have added printf $filename. This might print to file (printf) variable name $filename?
printf $filename "Name: $FORM{name}\n";
printf $filename "Company: $FORM{companyname}\n";
printf $filename "Position: $FORM{position}\n";
printf $filename "Address: $FORM{address}\n";
printf $filename "City: $FORM{city}\n";
printf $filename "State: $FORM{state}\n";
printf $filename "Zip: $FORM{zip}\n";
My questions are can a file output routine exist in the same script, using the same data, with a routine that formats
and sends emails?
Can anyone point me to a complete (simple) Perl file IO routine, that will receive name value pairs and format them
into a logfile?
Thanks in advance.
Niall Seletzky.
------------------------------
Date: Mon, 23 Mar 1998 14:06:21 +0100
From: joergen.lang@schwaben.de (Joergen W. Lang)
Subject: Make people read the docs, was: Re: PerlRing???
Message-Id: <1d6cgm8.1sqf3nuxzyw00N@host037-206.seicom.net>
Ok, let me try a different approach.
### Scenario 1a: Perl on local machine, soft way: ###
- A slightly extended perl -v is made default. This will come up
everytime Perl is started unless disabled, like this:
# start quote #
This is perl, version 5.005
Copyright 1987-1998, Larry Wall
Information and help can be found in the documentation that came with
your version of perl, it should be located in the perldocs (# pod ?)
directory inside your perl directory.
# (or whereever the default location for docs on that person's
# machine is...)
# (maybe there's even a way to calculate and include the path
# to the docs, if -e docs...)
There's also an extensive online documentation that can be found under:
http://language.perl.com/info/documentation.html
To disable this message, please press the keys specified in the
FAQ-section of the documentation: "How do I disable the startup message
?"
# (rest of standard perl -v)
# end quote #
### Scenario 1b: Perl on local machine, hard way: ###
Perl just won't run, if there is no documentation on the user's machine.
Instead the user is presented with a message like this:
# start quote #
To start Perl, you need to install the perl documentation in the
perldocs (# pod ?) directory on your machine.
If you don't have access to the docs on your machine you can download a
version from: http://language.perl.com/info/documentation.html
# end quote #
### Scenario 2: Perl on ISP's machine: ###
The scripts will only run if a "Find help at..."-line is included, like
this:
#!/usr/bin/perl -w
#! Find help at http://language.perl.com/info/documentation.html
I'm not shure which way this could be implemented. If this is not
possible, writers of publically available scripts should be strongly
encouraged to include such a line.
Randal Schwartz <merlyn@stonehenge.com> wrote:
> >>>>> "Joergen" == Joergen W Lang <joergen.lang@schwaben.de> writes:
>
> Joergen> I was only wondering if it was a good idea to have a
> Joergen> standardized format of the docs coming with every
> Joergen> distribution of perl, which could be accessed in the same
> Joergen> manner on every machine.
>
> Not possible.
>
> Joergen> At the moment UNIXers go "perldoc", Mac users have Shuck and
> Joergen> BBedit, I don't know what DOS/Win users have to do...
>
> Joergen> Why not making a HTML or PDF Version of the docs part of the
> Joergen> distribution.
>
> I've used many a unix machine that wouldn't have the slightest idea
> what "HTML" or "PDF" means.
>
> Joergen> If people who have first time contact with their
> Joergen> distribution of Perl and find the docs in a format, they're familiar
> Joergen> with they might even make an effort to have a look at it.
>
> Right. "perldoc" seems to be working nearly everywhere now that has a
> command line. So, we're there.
>
> print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
> ## legal fund: $20,990.69 collected, $186,159.85 spent; just 162 more days
> ## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
-------------------------------------------------------------------
"Everything is possible - even sometimes the impossible"
HOELDERLIN EXPRESS - "Touch the void"
-------------------------------------------------------------------
------------------------------
Date: Mon, 23 Mar 1998 10:27:09 -0500
From: "Internet Fusion Ltd." <internetfusion@sympatico.ca>
Subject: Perl/CGI for Apache 1.3b3 for Win95
Message-Id: <35167F4D.6781874D@sympatico.ca>
Hello,
Does anyone know the easiest, no mess, no fuss (or the least possible)
way to install a flavor
of Perl/CGI on the Apache 1.3b3 Web Server for Win95 ?
After I installed it, it did create a CGI directory, which has a BIN
inside it. I don't think it's active though.
The instructions regarding Perl on the Apache web site are extremely
poor.
Any help/suggestions would be appreciated...
Thank You,
Barry O'Neill
Internet Fusion Ltd.
P.S. Please copy any responses to internetfusion@sympatico.ca
------------------------------
Date: Mon, 23 Mar 1998 08:55:52 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
To: bret@bellsouth.net
Subject: Re: PerlScript question(s)
Message-Id: <351677F8.D068CF91@houston.Geco-Prakla.slb.com>
[courtesy cc to cited author]
Bret deFranza wrote:
>
<snip a really extremely overly long line of stuff>
> Thanks,
> Bret
Bret,
I have absolutely no idea regarding your question, but a bit of advice:
set your news poster software to wrap at 72 (ish) characters so that it
is readable to most everyone in this newsgroup. You're likely to get
some rather upset respondents, if any at all.
Just a thought.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 23 Mar 1998 09:05:14 -0600
From: throop@cs.utexas.edu (David R. Throop)
Subject: So what's the *right* way to pass function names and call them?
Message-Id: <6f5tna$e0p$1@cascade.cs.utexas.edu>
> "Deprecated" is computer-speak for: "Don't use it. Your
>program will break under a future version of the language. There are
>better ways of doing it."
Ok. I have this complicated graph structure that I must traverse
repeatedly, in the same order. On the first pass I call one function
on each of the nodes, on subsequent passes I call other functions. I
have a single routine to do the traversal. I call it repeatedly,
passing the name of this traversal's function as an argument. When
the traversal routine gets to a node, it calls 'do' to apply the
function to the node.
(Yes, I used to program in LISP a lot.)
So I get an nastygram from the compiler when I run with the -w switch:
Use of "do" to call subroutines is deprecated at /h/throop/perl/useful
line 244 ...
What's the *preferred* way to do this now? 'eval'? or what? If
there is no other way, is there any way that I can turn off the snide
remarks from the compiler?
(was this in the FAQ somewhere? I couldn't find it, for sure.)
David Throop
------------------------------
Date: 23 Mar 1998 15:29:04 GMT
From: Mark Hollomon <mhh@nortel.ca>
Subject: Re: So what's the *right* way to pass function names and call them?
Message-Id: <6f5v40$666@nrtphba6.bnr.ca>
David R. Throop <throop@cs.utexas.edu> wrote:
> > "Deprecated" is computer-speak for: "Don't use it. Your
> >program will break under a future version of the language. There are
> >better ways of doing it."
> Ok. I have this complicated graph structure that I must traverse
> repeatedly, in the same order. On the first pass I call one function
> on each of the nodes, on subsequent passes I call other functions. I
> have a single routine to do the traversal. I call it repeatedly,
> passing the name of this traversal's function as an argument. When
> the traversal routine gets to a node, it calls 'do' to apply the
> function to the node.
> (Yes, I used to program in LISP a lot.)
> So I get an nastygram from the compiler when I run with the -w switch:
> Use of "do" to call subroutines is deprecated at /h/throop/perl/useful
> line 244 ...
> What's the *preferred* way to do this now? 'eval'? or what? If
> there is no other way, is there any way that I can turn off the snide
> remarks from the compiler?
$my_subroutine_reference->($parm1);
of course, you want to pass subroutine references, not subroutine names.
e.g.
dotraversal(\&passed_func);
not
dotraversal("passed_func");
(dregging up my Scheme memories) - The second one passes the
atom passed_func, the first passes the bound value.
Both forms will work with the indirect call, but the first
is 'use strict' clean. The second uses soft references and
so is not.
--------------------
Mark Hollomon
> (was this in the FAQ somewhere? I couldn't find it, for sure.)
> David Throop
------------------------------
Date: Mon, 23 Mar 1998 09:37:05 -0600
From: nick@contract.kent.edu
Subject: splicing element of a LoL
Message-Id: <6f5vef$4l4$1@nnrp1.dejanews.com>
I'm trying to remove from the list of lists @data records 0, 2 and 3 (1,a,A),
(3,c,C) and (4,d,D)...
@data = ([1,2,3,4],[a,b,c,d],[A,B,C,D]);
@items = (0,2,3);
foreach $item (@items){
splice @{$data[0]},$item,1;
splice @{$data[1]},$item,1;
splice @{$data[2]},$item,1;
}
foreach (@{$data[0]}){
print ">",$_,"\n";
}
This returns:
>1
>3
Does splice not work as I am expecting on a LoL?
-nick
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 23 Mar 1998 15:49:05 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: splicing element of a LoL
Message-Id: <6f609h$sjh@news-central.tiac.net>
In article <6f5vef$4l4$1@nnrp1.dejanews.com>, <nick@contract.kent.edu> wrote:
>I'm trying to remove from the list of lists @data records 0, 2 and 3 (1,a,A),
>(3,c,C) and (4,d,D)...
>
>@data = ([1,2,3,4],[a,b,c,d],[A,B,C,D]);
>@items = (0,2,3);
>
>foreach $item (@items){
> splice @{$data[0]},$item,1;
> splice @{$data[1]},$item,1;
> splice @{$data[2]},$item,1;
> }
>
>foreach (@{$data[0]}){
> print ">",$_,"\n";
> }
>
>This returns:
>
>>1
>>3
What version of perl are you using (try perl -v) 5.004_04
runninng cut & pasted code generates:
>2
>3
and some warnings about unquoted literals if you use -w.
One thing you might consider doing is having @list working "from the
right", as the splice to remove element 0 affects the indices of all the
following elements,
#!/usr/local/bin/perl -w
@data = ([1 .. 4],['a' .. 'd'],['A' .. 'D']);
@items = (3, 2, 0);
foreach $item (@items){
foreach $list (@data) {
splice @$list, $item, 1;
}
}
foreach (@{$data[0]}){
print ">",$_,"\n";
}
produces
>2
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 23 Mar 1998 15:44:04 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6f6004$5de$3@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 16 Mar 1998 15:33:14 GMT and ending at
23 Mar 1998 07:55:57 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 575
Articles: 1364 (471 with cutlined signatures)
Threads: 469
Volume generated: 2216.2 kb
- headers: 914.8 kb (18,823 lines)
- bodies: 1218.4 kb (38,957 lines)
- original: 842.6 kb (28,724 lines)
- signatures: 81.7 kb (1,704 lines)
Original Content Rating: 0.692
Averages
========
Posts per poster: 2.4
median: 1 post
mode: 1 post - 371 posters
s: 4.0 posts
Posts per thread: 2.9
median: 2 posts
mode: 1 post - 173 threads
s: 3.5 posts
Message size: 1663.8 bytes
- header: 686.8 bytes (13.8 lines)
- body: 914.7 bytes (28.6 lines)
- original: 632.5 bytes (21.1 lines)
- signature: 61.3 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
50 76.5 ( 40.0/ 36.5/ 16.0) sneaker@earthling.net
36 46.1 ( 24.0/ 21.8/ 12.1) jgloudon@manitoba.bbn.com (Jason Gloudon)
26 48.1 ( 19.6/ 21.6/ 12.2) rjk@coos.dartmouth.edu
24 45.4 ( 18.6/ 23.6/ 11.3) abigail@fnx.com
22 28.0 ( 11.2/ 16.4/ 11.1) aml@world.std.com (Andrew M. Langmead)
21 30.3 ( 14.3/ 15.4/ 10.3) Zenin <zenin@archive.rhps.org>
20 35.5 ( 13.5/ 17.7/ 17.6) fl_aggie@thepentagon.com (I R A Aggie)
20 33.2 ( 12.2/ 20.9/ 13.7) cberry@cinenet.net (Craig Berry)
19 24.8 ( 10.8/ 12.8/ 11.2) Quentin Fennessy <quentin@jihad.amd.com>
19 35.6 ( 11.3/ 18.5/ 8.5) Uri Guttman <uri@sysarch.com>
These posters accounted for 18.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
76.5 ( 40.0/ 36.5/ 16.0) 50 sneaker@earthling.net
48.1 ( 19.6/ 21.6/ 12.2) 26 rjk@coos.dartmouth.edu
46.9 ( 9.1/ 37.8/ 27.5) 11 Mark Stackhouse <stackhou@execpc.com>
46.1 ( 24.0/ 21.8/ 12.1) 36 jgloudon@manitoba.bbn.com (Jason Gloudon)
45.4 ( 18.6/ 23.6/ 11.3) 24 abigail@fnx.com
35.6 ( 11.3/ 18.5/ 8.5) 19 Uri Guttman <uri@sysarch.com>
35.5 ( 13.5/ 17.7/ 17.6) 20 fl_aggie@thepentagon.com (I R A Aggie)
33.2 ( 12.2/ 20.9/ 13.7) 20 cberry@cinenet.net (Craig Berry)
32.3 ( 4.3/ 28.0/ 27.7) 6 tyde@medtrodnet.cdom (Tye McQueen)
30.3 ( 14.3/ 15.4/ 10.3) 21 Zenin <zenin@archive.rhps.org>
These posters accounted for 19.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.6 / 1.6) 5 lihong@public1.guangzhou.gd.cn
1.000 ( 2.0 / 2.0) 5 "Doug Evans" <doug@ccinet.com>
1.000 ( 3.3 / 3.3) 5 gabor@vmunix.com (Gabor)
0.994 ( 17.6 / 17.7) 20 fl_aggie@thepentagon.com (I R A Aggie)
0.989 ( 27.7 / 28.0) 6 tyde@medtrodnet.cdom (Tye McQueen)
0.970 ( 4.4 / 4.5) 6 gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
0.932 ( 7.6 / 8.2) 6 bet@network.rahul.net (Bennett Todd)
0.872 ( 11.2 / 12.8) 19 Quentin Fennessy <quentin@jihad.amd.com>
0.834 ( 6.8 / 8.2) 5 doswald@xmission.com
0.801 ( 4.4 / 5.5) 6 harrison@pixi.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.477 ( 11.3 / 23.6) 24 abigail@fnx.com
0.473 ( 1.8 / 3.8) 6 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.465 ( 1.9 / 4.1) 5 "Creede Lambard" <fearless@io.com>
0.459 ( 8.5 / 18.5) 19 Uri Guttman <uri@sysarch.com>
0.456 ( 2.0 / 4.3) 6 mjtg@cus.cam.ac.uk (M.J.T. Guy)
0.438 ( 16.0 / 36.5) 50 sneaker@earthling.net
0.409 ( 3.3 / 8.1) 7 kucera@mindsrping.com ( Mark Kucera)
0.371 ( 2.8 / 7.6) 6 Michael Lepine <mlepine@bellsouth.net>
0.319 ( 1.3 / 4.0) 6 Bob Trieger <sowmaster@juicepigs.com>
0.303 ( 4.1 / 13.5) 18 Benjamin Holzman <bholzman@earthlink.net>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
33 Is there a "Newsgroup" for Newbies to Perl?
18 what is wrong with being a novice ??
17 Wanted: email address gleaner
15 Perl Daemons
15 Challenge your programming skill
14 compiling perl
14 PerlRing???
13 Using perl code as a config file syntax? (Or, can require return more then one value?)
13 Dynamically checking for existing functions
12 Illegal octal digit error?
These threads accounted for 12.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
77.2 ( 27.4/ 46.0/ 31.2) 33 Is there a "Newsgroup" for Newbies to Perl?
34.9 ( 12.2/ 22.0/ 17.1) 18 what is wrong with being a novice ??
34.1 ( 10.7/ 22.0/ 11.8) 15 Challenge your programming skill
31.2 ( 3.6/ 27.6/ 16.9) 5 "Newbie" Crib Notes
30.2 ( 13.2/ 15.3/ 10.1) 17 Wanted: email address gleaner
24.6 ( 9.4/ 13.2/ 9.3) 14 PerlRing???
22.6 ( 10.4/ 11.2/ 6.2) 15 Perl Daemons
22.5 ( 8.2/ 13.5/ 6.9) 12 Illegal octal digit error?
20.7 ( 10.6/ 9.4/ 6.0) 14 compiling perl
19.4 ( 1.3/ 18.1/ 17.9) 2 times function Unix, yes, NT, no -Perl NT
These threads accounted for 14.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.970 ( 1.6/ 1.6) 5 Posting to UseNet groups from Perl?
0.849 ( 3.9/ 4.6) 5 Help
0.811 ( 2.3/ 2.8) 5 chdir in win32
0.794 ( 4.0/ 5.1) 5 ? retrieve meta tag information from a HTML document with Perl ?
0.794 ( 6.4/ 8.0) 7 Fastest way to grep through a file?
0.784 ( 4.4/ 5.6) 9 stripping "special" characters from string
0.775 ( 17.1/ 22.0) 18 what is wrong with being a novice ??
0.770 ( 6.8/ 8.8) 10 Qui sera assez fort pour repondre a ca ??
0.767 ( 4.7/ 6.1) 7 building for perl 5.004_04 on NT
0.761 ( 4.6/ 6.0) 5 Im a dip so kill me ok!
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.500 ( 1.7 / 3.5) 5 Perl for WIN32 external system calls
0.488 ( 2.0 / 4.0) 6 ? Any Perl scripts already written to print out all of the field names on a form?
0.487 ( 3.1 / 6.3) 10 Date function - yyyymmdd format
0.480 ( 1.5 / 3.1) 7 Chicago Perl Mongers
0.471 ( 1.8 / 3.8) 5 Opening dirs in Win32
0.450 ( 5.2 / 11.5) 8 pattern matching dilemma
0.446 ( 1.7 / 3.9) 5 CGI script failing...asking for hint re: error msg
0.425 ( 1.8 / 4.2) 8 reset a array?
0.358 ( 1.5 / 4.1) 5 removing everything between < and >
0.268 ( 2.0 / 7.3) 5 How to use CPAN modules/no permission to install
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
36 comp.lang.perl.modules
19 comp.lang.perl
11 comp.unix.shell
6 comp.lang.tcl
6 comp.infosystems.www.servers.unix
5 comp.infosystems.www.servers.ms-windows
5 comp.lang.perl.tk
5 comp.os.linux.misc
4 comp.sys.amiga.advocacy
4 comp.unix.advocacy
Top 10 Crossposters
===================
Articles Address
-------- -------
21 jackson@usenix.org (Jackson Dodd)
12 Stephen Edwards <ja207030@primenet.com>
12 "Stan & Joan Skirvin" <jasskirv@netzone.com>
12 kstevens@mtu.edu (Karen E. Stevens)
11 bill@bilver.magicnet.net.REMOVETHIS (Bill Vermillion)
8 Stefaan.Eeckels@ecc.lu (Stefaan A. Eeckels)
7 daku@nortel.ca (Mark Daku)
7 "Trevor Hardcastle" <Trevor.Hardcastle@usa.net>
6 sneaker@earthling.net
6 agaski2 <agaski2@umbc.edu>
------------------------------
Date: Mon, 23 Mar 1998 10:07:08 -0500
From: "I have a life, and I can prove it!" <jefpin@bergen.org>
To: Progg <progg.mxf@poboxes.com>
Subject: Re: Testing website PERL
Message-Id: <Pine.SGI.3.95.980323100551.25082B-100000@vangogh.bergen.org>
>I need a way to test my website PERL scritps on my computer. I don't want
>to have to upload them to the server to find out they don't work. I think
>there may be a way to do this with MS Personal Web Server, but I'm not
>exactly sure. Can anyone help?
By far, the best PC webserver software I've found is OmniHTTPd. You can
find it at http://www.omnicron.ab.ca/httpd/.
--
| I only please one person a day, and today ain't your day...
| (tomorrow's not looking good either!)
Jeff Pinyan | http://users.bergen.org/~jefpin | jefpin@bergen.org
techmaster@bergen.org | techmaster@mindless.com
qw[jeff] on #perl,#javascript,#cgi on IRC
&jp('"($``','','$)EDF8```','$*52J4```','$+E1G4```','#J``@','#2__`');sub
jp{for$w(@_){$c=unpack('B48',unpack('u',$w));$c=~tr/10/# /;print "$c\n"}}
------------------------------
Date: Mon, 23 Mar 1998 09:55:24 +0000
From: Jeff Potter <jp@glpbooks.BADMAIL.com>
Subject: Re: Wanted: email address gleaner
Message-Id: <3516318C.4835@glpbooks.BADMAIL.com>
Ian Boys wrote:
>
> Jeff,
>
> I think, through no fault of your own, you have chosen the wrong
> newsgroup to post your question in. You have probably come from a
> background of friendly groups, populated by people who share a common
> interest, with a sense of community spirit and a desire to help each
> other.
Actually, I don't mind the tone. I'm just looking for the facts.
So far Stanley has seemed to be wrong, has omitted pertinent
facts. See my last post above if it ain't all too boring for you yet.
I'm willing to be convinced that my project is spammish, but they
haven't done it yet.
--
Jeff Potter jp@glpbooks.BADMAIL.com delete '.BADMAIL' to reply
***"Out Your Backdoor": Friendly Magazine of DIY Adventure and Culture
http://www.glpbooks.com/oyb ... with new bookstore & bulletin board
------------------------------
Date: Mon, 23 Mar 1998 09:59:44 +0000
From: Jeff Potter <jp@glpbooks.BADMAIL.com>
Subject: Re: Wanted: email address gleaner
Message-Id: <35163290.36B0@glpbooks.BADMAIL.com>
John Stanley wrote:
[]
> >I've had requests to reprint my NG posts in magazines.
>
> Goody for you. You are free to reprint what you have written. This is
> completely irrelevant to your desire to spam.
[]
> >nor have I felt like complaining when I've been approached similarly.
>
> Goody for you.
You misread. I wasn't the one doing the reprinting. I've had magazines send
me email asking to reprint my posts. I've given my permission happily.
Was that spam I received? I had no idea they were going to send it;
they are a commercial outfit. So it was unsolicited commercial email.
Should mags and other media or whoever never contact the authors
of posts they read for reprint or commercial purposes
IN REGARDS TO A POST THEY READ? Or even if the contact is
not about a post: what if someone read your vague
antispam posts here and wrote you *unsoliticed commercial
email* wanting to hire you as a propagandist? Is all that spam?
--
Jeff Potter jp@glpbooks.BADMAIL.com delete '.BADMAIL' to reply
***"Out Your Backdoor": Friendly Magazine of DIY Adventure and Culture
http://www.glpbooks.com/oyb ... with new bookstore & bulletin board
------------------------------
Date: Mon, 23 Mar 1998 05:50:49 -0800
From: "Phlip" <tegan@deltanet.com>
Subject: Re: What does "UNIX" stand for..
Message-Id: <6f5oit$99m$1@news01.deltanet.com>
M.Ranganathan wrote:
>On the other hand Windows has the well-deserved nick name of "Windoze".
>Recently, I lost a whole directory (I kid you not) merely by assuming
>my Windows NT box died (when it was merely dozing) and turning it off.
>( Incidentally does anybody know what the deuce it is doing when it is
>playing possum like that? )
Running a screen saver?
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 2162
**************************************
