[10888] in Perl-Users-Digest
Perl-Users Digest, Issue: 4489 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 23 19:07:23 1998
Date: Wed, 23 Dec 98 16:00:20 -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 Wed, 23 Dec 1998 Volume: 8 Number: 4489
Today's topics:
"IIS GET" hotfix buggy, causing PerlParse errors? iis c webmuse@my-dejanews.com
Re: $ troubles medi@cybershell.com
Re: $ENV{'REMOTE_HOST'} Problem on NT <davidk@cnct.com>
Apache server cannot be started because of PerlRequire <bageshpu@pa.dec.com>
Basic Perl DOS/Win95 + WWW + CGI course for Newbies , C <expert@friko.onet.pl>
Re: Closure and lexical scoping bug(?) in Perl (Matt Knecht)
Executing Program <mattfreeman@mcmail.com>
Re: Executing Program (Clay Irving)
Re: explain an hash assignment: $hash{'key'}++ <davidk@cnct.com>
Hiring --> CGI/PERL - Deathshift Webmaster -- Web Gr (Info)
Re: Hiring --> CGI/PERL - Deathshift Webmaster -- We (Info)
How to duplicate a list of lists (corrected email addre <lingminz@yahoo.com>
Re: How to duplicate a list of lists (corrected email a <Paul.Makepeace@POBox.com>
How to duplicate a list of lists <lzhu@yahoo.com>
Re: Is it possible with perl? <Paul.Makepeace@POBox.com>
Re: link checker help (Clay Irving)
Passing Path Info to script under IIS 4.0 (Cave Dweller)
perlcc w/ AS build 507 <carvdawg@patriot.net>
Re: recuper le Mime type d'un fichier - Content-type of <Paul.Makepeace@POBox.com>
Re: regular expression alternation (Larry Rosler)
Re: Retrospective on comp.lang.perl.moderated? <PROCURA_BV@CompuServe.com>
Re: Retrospective on comp.lang.perl.moderated? (Abigail)
Re: Running Perl for Win32 -- Beginner Question <expert@friko.onet.pl>
Re: sizeof() function? <Paul.Makepeace@POBox.com>
Re: sizeof() function? <uri@ibnets.com>
still need help <tech@aba-architects.com>
Re: Stock Quotes via CGI Scripts (Clay Irving)
Using Exec CGI in ASP <mattfreeman@mcmail.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 23 Dec 1998 22:41:38 GMT
From: webmuse@my-dejanews.com
To: iis-help@microsoft.com
Subject: "IIS GET" hotfix buggy, causing PerlParse errors? iis crashes?
Message-Id: <75rrj2$a22$1@nnrp1.dejanews.com>
Hello,
We're running NT4 Server, Serv. Pack 4 on a RAID5 dual xeon-400mhz machine.
We have ActiveState perl build 316 installed (perl.exe, ISAPI Perl,
PerlScript). We just recently installed this machine from scratch (because
there's no way to move an existing NT installation to new hardware!!
GROWL!!).
I got Microsoft's security alert regarding the "IIS GET" vulnerability just
the other day. More info on this alert is here:
http://www.microsoft.com/security/bulletins/ms98-019.asp
Not trusting their hotfixes, we were waiting to install it. The server had
been up for 6 days straight without once requiring a reboot (unfortunately,
that's almost a record since we've been using IIS). We thought everything was
going great on our new installation!
Then last night IIS went down. It wasn't pegging out any of the CPU's, just
not responding to requests. Attempts to restart IISADMIN service failed. As
usual. So we rebooted and hoped for the best. As usual.
Today the server went down again in the morning. At this point I suggested
that we apply the hotfix for the "IIS GET" vulnerability in case the server
was going down from an attack. BIG MISTAKE.
While installing the hotfix, the screen said everything was done and it was
going to reboot. At this point the entire desktop went blank as if it was
shutting down. Nothing happened for 15 minutes or so. Our services were still
up and running, but there was no taskbar, no desktop icons, nothing. At this
point we CTRL-ALT-DEL'ed and asked the system to reboot. It did. The server
started up like normal.
This was at around 12pm PST. Since that time, the server had gone down
constantly. We'd reboot the machine, and 10-15 minutes later it would go down
again! We checked the event logs and noticed that their were ISAPI Perl error
messages occurring right before the Dr. Watson errors (oh, did I forget to
mention we started getting Dr. Watson errors as well...?).
I check the ISAPI Perl log, and sure enough a ton of the following errors
began appearing directly AFTER the hot "fix" was installed:
*** 'D:\path\to\script\search.plx' error message at: 1998/12/23 12:21:45
INTERNAL ERROR: PerlParse did not exit clean!!!!
Does anyone know what this error message means? This is the main reason
I cross-posted to c.l.p.m ... I haven't been able to locate any info on
this error message elsewhere (even searching dejanews only turned up two
hits).
These errors were not happening in our regular perl.exe error logs, so I
switched all of our perl scripts over to use regular perl instead. Aside
from our server slowing down a little bit, this seems to have fixed the
IIS crashing problem. This is not ideal, of course. With the load we're
getting from perl.exe, we'll have zombie Perl processes coming out of our
ears in no time at all.
I need a hotfix for this hotfix!
Any pointers, ideas, hints, prayers, incantations, suggestions, words of
wisdom, advice, campfire stories, news of similar situations, good luck
charms, voodoo, etc. would be most appreciated!
Regards,
Thomas
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 23 Dec 1998 22:36:26 GMT
From: medi@cybershell.com
Subject: Re: $ troubles
Message-Id: <75rr9a$9n2$1@nnrp1.dejanews.com>
In article <75pepu$ad7$1@nnrp1.dejanews.com>,
bl968@my-dejanews.com wrote:
> I am reading in a file which terminates with a $ to show the proper end of
> file.
>
> I am trying to read the file to verify that the $ is in the file and thus is
> valid.
>
> The problem i get is that perl seems not to recognize the fast that the $ is
> what i am looking for.
>
Well...I'd say perl is not being told to recognize it...
here is one solutiion
while(<>)
{
print "This file checks ok\n" if ( /\$$/ );
}
> Any help is appreciated.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 23 Dec 1998 17:39:00 -0500
From: "Dave Kaufman" <davidk@cnct.com>
Subject: Re: $ENV{'REMOTE_HOST'} Problem on NT
Message-Id: <75rvvq$q0i$1@news2.cnct.com>
Bill wrote in message ...
>Does anybody know why, when I run $ENV{'REMOTE_HOST'}, do I always come up
>with an IP address instead of user123.blah.com or whatever?
because that's what you're supposed to get. it impacts server performance
for the webserver to do name lookups on every hit, so most servers are not
configured to do that. if you want the name you have to do the dns lookup
yourself. now, how to do that on NT i'll have to leave for someone else...
-dave
------------------------------
Date: Wed, 23 Dec 1998 14:00:57 -0800
From: Asha Bageshpura <bageshpu@pa.dec.com>
Subject: Apache server cannot be started because of PerlRequire in srm.conf file
Message-Id: <36816819.FD214841@pa.dec.com>
I have installed successfully the following modules.
- Apache 1.3.3 with mod-perl-1.16
- Perl 5.004 with
- libnet-1.0605
- libwww-perl-5.41
- DBI-1.02
- DBD-Oracle-0.54
I am trying to start the apache server and I get the following error
apachectl start
kill: 7035: no such process
Syntax error on line 25 of
/log/perlmodules/apache133/apache_1.3.3/etc/srm.conf:
Invalid command 'PerlRequire', perhaps mis-spelled or defined by a
module not inc
luded in the server configuration
apachectl start: httpd could not be started
Anything from the perl is required ??
Any ideas ?
Thanks
-Asha
------------------------------
Date: Wed, 23 Dec 1998 23:40:34 GMT
From: Expert <expert@friko.onet.pl>
Subject: Basic Perl DOS/Win95 + WWW + CGI course for Newbies , Christmas free offer .
Message-Id: <36817006.E6F@friko.onet.pl>
I would like to give basic Perl course for newbies.
Integration of CGI Perl scripts with WWW pages.
Setting up simple WIN95/ web server and setting up web pages + CGI
programs running on your PC , for testing purposes.
Hope this course to be free, interactive, mayby on shareware basis.
If some of you guys are interested I set up news group to move us
there.
regards,
Jack
------------------------------
Date: Wed, 23 Dec 1998 21:15:42 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: Closure and lexical scoping bug(?) in Perl
Message-Id: <24dg2.556$7P2.7337912@news2.voicenet.com>
Paul Makepeace <Paul.Makepeace@POBox.com> wrote:
>#!/usr/bin/perl -w
>use strict;
>
>{
> my $base = "Hello, ";
> sub msg {
> #print "Making a message starting with '$base'...\n";
> #$base=$base;
> my $what = shift ;
> sub {
> print "$base$what\n"
> }
> }
>}
>
>my $greeting = msg("world");
>&$greeting;
>
>:!perl funcbug.pl
>Use of uninitialized value at funcbug.pl line 10.
>world
>
>If the first debug print or $base=$base line is uncommented or the outer
>braces removed, it works producing the expected "Hello, world". This happens
>on both 5.004_04 and 5.005_02.
perlref says:
Anonymous subroutines act as closures with respect to
my() variables, that is, variables visible lexically
within the current scope.
I'm not exactly sure what language lawyers would have to say about
"visible lexically within the current scope", but here it obviously
means "variables defined with 'my' in the sub".
If you remove the brackets (As you've noticed) it works. Because "my
$base" is still exsists to anything that would try to access it (Whether
it's a closure or not).
If you uncomment either line that references $base within the sub
definiton, that brings $base into "lexical scope". The closure then
knows to hang onto this value.
The question here is, "What *exactly* does 'lexical scope' mean?"
I'm assuming that the definition of a sub is another lexical level.
I could be wrong though... I'm just a programmer, not a language lawyer. :)
--
Matt Knecht - <hex@voicenet.com>
------------------------------
Date: Wed, 23 Dec 1998 22:12:07 -0000
From: "Matty" <mattfreeman@mcmail.com>
Subject: Executing Program
Message-Id: <36816b00.0@news1.mcmail.com>
How can I execute a program and get's it return
value using perlscript?
Say I want to execute 'traceroute yahoo.com' and
get the value as $return = theoutput.
Any ideas.
------------------------------
Date: 23 Dec 1998 18:16:53 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Executing Program
Message-Id: <75rtl5$hvh@panix.com>
In <36816b00.0@news1.mcmail.com> "Matty" <mattfreeman@mcmail.com> writes:
>How can I execute a program and get's it return
>value using perlscript?
>Say I want to execute 'traceroute yahoo.com' and
>get the value as $return = theoutput.
>Any ideas.
Yes! The documentation! Whee!
See: perldoc -f system
perldoc perlop
For example,
This is *NOT* what you want to use to capture the output from a
command, for that you should use merely backticks or `qx//', as
described in the section on "`STRING`" in the perlop manpage.
--
Clay Irving
clay@panix.com
------------------------------
Date: Wed, 23 Dec 1998 17:33:20 -0500
From: "Dave Kaufman" <davidk@cnct.com>
Subject: Re: explain an hash assignment: $hash{'key'}++
Message-Id: <75rv6i$pu9$1@news2.cnct.com>
>Can anyone explain how constructs like $hh{'ss'}++ works? Here's an
example:
>
>$hh{'ss'}++;
it's not an assuagement; it's a increment operator.
and it doesn't really have much to do with the hash. it increments a
scalar, in this case, the scalar value in the key 'ss' of hash %hh, which,
in your example, the key ss wasn't defined yet, so perl decided it was 0 and
incremented it to 1
-dave
------------------------------
Date: Wed, 23 Dec 1998 23:41:20 GMT
From: info@luciddreams.com (Info)
Subject: Hiring --> CGI/PERL - Deathshift Webmaster -- Web Graphics Designer
Message-Id: <36847f75.40368245@news.nac.net>
Luciddreams NYC, Inc. is now hiring for the following positions:
1. CGI/PERL Programmer -- Linux
2. Deathshift Webmaster -- Linux/Unix
3. Web Graphics Designer -- Mac or PC or Linux
Sorry, no NT here!
Requirements:
Must be able to relocate to NYC (Thats New York City :P )
Must be highly experienced in whichever field you are applying for.
Schooling is NOT neccessary, just the ability to prove yourself.
Must be able to work 40 minimum per week, 60 hours max.
This is full time work, not temporary.
For more info, please drop an email to:
info@luciddreams.com
You may also send your resume to the same address.
Resumes sent in WORD format will be promptly put
in /dev/null as will phone calls.
Thank you!
------------------------------
Date: Wed, 23 Dec 1998 23:44:31 GMT
From: info@luciddreams.com (Info)
Subject: Re: Hiring --> CGI/PERL - Deathshift Webmaster -- Web Graphics Designer
Message-Id: <36858037.40562340@news.nac.net>
**Sigh** Shit, a thousand pardons for posting this here,
didn't catch it on the list when posting...
On Wed, 23 Dec 1998 23:41:20 GMT, info@luciddreams.com (Info) wrote:
>
>
>Luciddreams NYC, Inc. is now hiring for the following positions:
>
>1. CGI/PERL Programmer -- Linux
>2. Deathshift Webmaster -- Linux/Unix
>3. Web Graphics Designer -- Mac or PC or Linux
>
>Sorry, no NT here!
>
>Requirements:
>
>Must be able to relocate to NYC (Thats New York City :P )
>Must be highly experienced in whichever field you are applying for.
>Schooling is NOT neccessary, just the ability to prove yourself.
>Must be able to work 40 minimum per week, 60 hours max.
>This is full time work, not temporary.
>
>For more info, please drop an email to:
>info@luciddreams.com
>
>You may also send your resume to the same address.
>Resumes sent in WORD format will be promptly put
>in /dev/null as will phone calls.
>
>
>Thank you!
------------------------------
Date: Wed, 23 Dec 1998 14:58:19 -0800
From: LingMin Zhu <lingminz@yahoo.com>
Subject: How to duplicate a list of lists (corrected email address)
Message-Id: <3681758B.F613F9C0@yahoo.com>
(The message I posted last time has the wrong return email address.)
Hi,
I have a question about how to duplicate a list of lists without
traverse the entire lists myself.
This an example:
$a = [[1,[3,4],3],8];
$b = $a;
Now $b just simply point to $a. But what I want is a separate copy of
list.
Anyone know how to do this?
Thanks.
Lingmin
------------------------------
Date: Wed, 23 Dec 1998 23:43:50 -0000
From: "Paul Makepeace" <Paul.Makepeace@POBox.com>
Subject: Re: How to duplicate a list of lists (corrected email address)
Message-Id: <75rvcn$c1u$1@statler.server.colt.net>
[ Cc:'ed to author ]
LingMin Zhu wrote in message <3681758B.F613F9C0@yahoo.com>...
>(The message I posted last time has the wrong return email address.)
>
>Hi,
>
>I have a question about how to duplicate a list of lists without
>traverse the entire lists myself.
>
>This an example:
>
>$a = [[1,[3,4],3],8];
>$b = $a;
>
>Now $b just simply point to $a. But what I want is a separate copy of
>list.
>Anyone know how to do this?
Yes.
Check out the awesome Storable module. It will what's known as 'serialise'
your data structure, i.e. represent it as a string of data (in a scalar)
from which it can recreate your original data structure. It'll even bless it
properly if appropriate.
Now, you can imagine given that a scalar and the re-create function ('thaw')
you could copy a structure such as the one you've shown... Look at the
Storable::dclone function.
Have fun,
Paul
--
Paul Makepeace, Independent Thinkers Ltd (UK)
0171 377 8668 / 0973 800436
"People are all monkeys, and I am Captain Banana"
-- Vincent Gallo
------------------------------
Date: Wed, 23 Dec 1998 14:53:02 -0800
From: LingMin Zhu <lzhu@yahoo.com>
Subject: How to duplicate a list of lists
Message-Id: <3681744E.C0117BEE@yahoo.com>
Hi,
I have a question about how to duplicate a list of lists without
traverse the entire lists myself.
This an example:
$a = [[1,[3,4],3],8];
$b = $a;
Now $b just simply point to $a. But what I want is a separate copy of
list.
Anyone know how to do this?
Thanks.
Lingmin
------------------------------
Date: Wed, 23 Dec 1998 23:21:10 -0000
From: "Paul Makepeace" <Paul.Makepeace@POBox.com>
Subject: Re: Is it possible with perl?
Message-Id: <75ru42$boo$1@statler.server.colt.net>
[Cc: mailed to author]
Ys_Kim wrote ...
>Is it possible to submit a form to multiful cgi scripts at the same time
>and each script located in different places?
Yes. And now for a completely different solution.
Have your form use the GET method and then create generate a frameset with
five or more <Frame> tags. Pass this back to your browser and let it do the
work ;-)
my $frames = qq{<Frame Src="done.cgi?$ENV{QUERY_STRING}">};
my $stars = "";
foreach my $submission (@submission_programs) {
$frames .= qq{\t<Frame Src="$submission.cgi?$ENV{QUERY_STRING}">};
$stars .= ",*";
}
print <<HTML;
<Frameset cols="100%$stars"> <!-- or whatever -->
$frames
</Frameset>
HTML
That's straight off the top of my head, untested (both conceptually and
syntactically) and I've left out HTTP stuff like Content-type etc.
This assumes all your @submission_programs take the form variables in the
same format. If not you might need to preprocess them for which of course
you'll be using CGI.pm (and then you won't be restricted to GET).
[ An alternative of course is to use JavaScript (targetting (a) blank
frame(s)) ]
Paul
--
Paul Makepeace, Independent Thinkers Ltd (UK)
0171 377 8668 / 0973 800436
"People are all monkeys, and I am Captain Banana"
-- Vincent Gallo
------------------------------
Date: 23 Dec 1998 18:02:21 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: link checker help
Message-Id: <75rspt$gse@panix.com>
In <3681470F.C67BDFC0@melsud.res.ray.com> Mike Godfrey <mtg82814@melsud.res.ray.com> writes:
> I would like to use perl to check if an internet site exists or not,
>for a link checker. I really don't have any idea of how to do it.
>I believe I need to use sockets to accomplish this, but I can't seem to
>find any documentation on sockets that I can understand. All the
>documentation is so confusing, does anyone know of any sites that
>explain it from the beginning?
>Also, when doing the site checking I would like to check links within my
>web site and links outside of it. But to get outside I go through a
>proxy, and that makes it a little more confusing.
Perl Modules are your friend. It could be as simple as:
#!/usr/local/bin/perl -w
use LWP::Simple;
$url = "http://www.perl.com";
if(!head($url)) {
print "Bad URL: $url\n";
}
See http://www.linpro.no/lwp/ for additional information.
--
Clay Irving
clay@panix.com
------------------------------
Date: Wed, 23 Dec 1998 22:07:28 GMT
From: Swervin33@hotmail.com (Cave Dweller)
Subject: Passing Path Info to script under IIS 4.0
Message-Id: <75rpoj$m53$1@news.knight-hub.com>
I'm running IIS 4.0 on NT 4.0 SP3. I recently updated ActivePerl from build
502 to 507. When I did this, some scripts that required path info be passed
like the example:
whatever.pl/2/1
stopped working and IIS is treating the path info like part of the URL and
sending back a 404 -Not Found- Error.
I've used the adsutil to add AllowPathInfoForScriptMapping to the IIS
metabase with no help.
Anyone know what changed AP502 to AP507 and what needs to be set on IIS to
correct. I believe IIS is responsible for handling the passed path info and
forwarding the path to the CGI.
Any and all help greatly appreciated..
Posted to ActiveState lists as well.
Thanks and Happy Holidays
------------------------------
Date: Wed, 23 Dec 1998 16:48:35 +0000
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: perlcc w/ AS build 507
Message-Id: <36811EE3.4A0BB81B@patriot.net>
Has anyone tried using perlcc w/ AS build 507 or thereabouts?
I'm just curious to see if it will work...
C
------------------------------
Date: Wed, 23 Dec 1998 21:36:48 -0000
From: "Paul Makepeace" <Paul.Makepeace@POBox.com>
Subject: Re: recuper le Mime type d'un fichier - Content-type of file
Message-Id: <75rnud$a8i$1@statler.server.colt.net>
Edouard Ouin wrote in message <367FF76C.BEA93EC0@tinet.ie>...
>Hi,
Salut,
>Comment recuperer le Content-type d'un fichier stocke sur un disque dur,
>c'est a dire recupere son mime type, dont la liste se trouve dans le
>fichier mime.types pour ce qui est de la config d'un serveur web Apache.
!/usr/bin/perl -w
use strict;
(my $ext = shift) =~ s-.*\.(\w+)-\L$1-;
while(<>) {
s-\s*#.*$--; next unless m-\S-;
my ($type, $exts) = split ' ', $_, 2;
$exts =~ s-\s+-,-g;
if ($exts =~ /\b$ext\b/o) { print "Voil`! $type\n"; last }
}
$ ./mime.pl starwars.mov /etc/apache/mime.types
Voil`! video/quicktime
$
>Merci pour votre temps.
De rien ;-)
Paul
http://babelfish.altavista.digital.com/
--
Paul Makepeace, Independent Thinkers Ltd (UK)
0171 377 8668 / 0973 800436
"Les gens sont tous les singes, et je suis capitaine Banana"
-- Vincent Gallo
------------------------------
Date: Wed, 23 Dec 1998 15:30:45 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: regular expression alternation
Message-Id: <MPG.10eb1d00ce3f9ebe9898f2@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <3680C66C.E9953550@mistral.co.uk> on Wed, 23 Dec 1998
10:31:08 +0000, Stuart Hughes <sehughes@mistral.co.uk> says...
...
> ($a,$b) = /(.*)\(.*)/ or ($a, $b) = /(.*)/;
>
> I thought using alternation, would try the first alternative, and if
> that failed, try the second, and that would return the default in $1.
>
> Any ideas how it should be done using regular expression maching ????
>
> > : The following works for file.ext and file.more.ext,
> > : but it doesn't match file. I thought the alternation clause would
> > : catch it but it doesn't and so I'm confused ?? any ideas
> >
> > It does catch it. But it puts it in $3, which you do not
> > access...
> >
> > : ($name, $ext) = /(?:^(.*)\.(.*))|(^.*)/;
($name, $ext) = /^([^.]+(?:\.[^.]+)*?)(?:\.?([^.]*))$/;
Yuk. Let's try to make it comprehensible:
($name, $ext) =
/^( # start of $1 ($name)
[^.]+ # first filename (no dots allowed)
(?:\.[^.]+)*? # as few as possible .more's
) # end of $1 ($name)
(?:\.? # eat up last dot, if any
([^.]*) # extension, if any, in $2 ($ext)
)$/x; # phew! (I mean, foo!)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 23 Dec 1998 15:21:45 +0100
From: "H.M. Brand" <PROCURA_BV@CompuServe.com>
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <3680FC79.95D24E19@CompuServe.com>
Larry Rosler wrote:
> I have been little affected by ...moderated. I read it and ...misc (and
> ...announce and ...modules) assiduously, without filters, via a wide-
> band connection that I don't pay for. So I don't have the volume-of-
> information problems that others report.
I'll post once again. I do not have a bandwidth problem, all groups of
interrest are loaded automatically to a local server. My problem is the
time I allow myself to read the groups.
...misc is too much to browse (even though I've learned a lot out of that
group in the beginning and discussions sometimes raised to a TPJ level.
I've limited myself to skim ...moderated, ...tk and ...announce and reduced
...misc and ...modules (too much noise) to NOP's :-(. It's not that these
groups do not offer anything of interrest, but time l(e)acks
> I am very glad that the people who have the most breadth and depth of
> Perl wisdom (including TomC, Randal, MJD, TomP, bdf, Abigail, and others
> who I hope won't be offended by my forgetting to name them explicitly)
Skimming ...misc eventually started by only reading their answers, it _could_
lead into a new focus area for me :-)
> have continued to guide ...misc by correcting our most egregious
> mistakes. My most serious concern had been that they would abandon it,
> so I would have fewer people to learn from.
Agree 100%
> I am mystified by whether to post to ...misc or ...moderated or both,
> which has simply added the potential for more mistakes.
>
> So for me, ...moderated has been more-or-less a NOP, while the comments
Wrong answer
> in response to my inquiry have been mostly supportive of it, despite its
> still not having quite 'found its legs'. Laissez les bons temps rouler!
------------------------------
Date: 23 Dec 1998 17:44:47 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <75ra6f$ht4$2@client3.news.psi.net>
Larry Rosler (lr@hpl.hp.com) wrote on MCMXL September MCMXCIII in
<URL:news:MPG.10ea49a913f94da2989970@nntp.hpl.hp.com>:
++
++ I am very glad that the people who have the most breadth and depth of
++ Perl wisdom (including TomC, Randal, MJD, TomP, bdf, Abigail, and others
++ who I hope won't be offended by my forgetting to name them explicitly)
++ have continued to guide ...misc by correcting our most egregious
++ mistakes. My most serious concern had been that they would abandon it,
++ so I would have fewer people to learn from.
I have actually abandoned clp.moderated. If I spend time following up on
a post, answering the questions, and then get my posting rejected because
the posting isn't 100% pure perl and hence off-topic, the group has failed
in my opinion.
Abigail
------------------------------
Date: Wed, 23 Dec 1998 23:46:07 GMT
From: Expert <expert@friko.onet.pl>
Subject: Re: Running Perl for Win32 -- Beginner Question
Message-Id: <36817165.6C86@friko.onet.pl>
AJ wrote:
>
> It sounds like you're running in DOS mode when trying to execute Perl. Are
> you restarting in DOS mode first? If you start just a command prompt that
> does not emulate DOS mode, you should be able to run Win32 Perl. I usually
> use the DOS window from MSoffice and I can run Perl fine. You basically
> need a DOS shell created from \windows\command\command.com while in windows.
>
I open perl.pl scripts in win95 with perl.exe 16bit for DOS. Set up
simple webserver for WIN95 and it works nicely.
This way you can set up programmer's environment for testing CGI perl
scripts generating web pages on-the-fly.
To see how CGI works try open DOS mem.exe in NN.
regards,
Jack
------------------------------
Date: Wed, 23 Dec 1998 22:46:17 -0000
From: "Paul Makepeace" <Paul.Makepeace@POBox.com>
Subject: Re: sizeof() function?
Message-Id: <75rs0i$b88$1@statler.server.colt.net>
Abigail wrote in message <75rac2$ht4$3@client3.news.psi.net>...
> print $foo, "\n";
I see this construct a lot. What's the appeal?
print "$foo\n";
Paul, ambling off-topic...
------------------------------
Date: 23 Dec 1998 17:58:52 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: sizeof() function?
Message-Id: <39lnjy31oz.fsf@ibnets.com>
>>>>> "PM" == Paul Makepeace <Paul.Makepeace@POBox.com> writes:
PM> Abigail wrote in message <75rac2$ht4$3@client3.news.psi.net>...
>> print $foo, "\n";
PM> I see this construct a lot. What's the appeal?
PM> print "$foo\n";
the former is is actually faster. there is no interpolation and building
up a string before the printing occurs. but stylistically i like the
latter.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Wed, 23 Dec 1998 14:44:31 -0700
From: Shana Priwer <tech@aba-architects.com>
To: Tk Soh <r28629@email.sps.mot.com>
Subject: still need help
Message-Id: <3681643F.1311511D@aba-architects.com>
if there's a better list to post installation/set up questions to, please
let me know. In any event, I really do need assistance and would be grateful
for any provided.
Thanks-
Shana
---== http://www.newsfeeds.com - Largest Usenet Server In The World! ==---
---== http://www.newsfeeds.com - Largest Usenet Server In The World! ==---
------------------------------
Date: 23 Dec 1998 17:55:49 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Stock Quotes via CGI Scripts
Message-Id: <75rsdl$gid@panix.com>
In <36816C4B.28F73839@wdis.com> S Sharma <webmaster@wdis.com> writes:
>Hi,
>I am trying to set up a web page which displays a particular stock quote
>when that page is downloaded from the net. It is easy enough to link to
>somebody elses CGI-script and display their information in their format
>on my page, but I would like to only display the current value of the
>stock along with the amount it is up or down. (similar to the way intel
>does it at:
>http://www.intel.com/intel/finance/index.htm?iid={intelhome=IR} )
>Does anybody know how I could go about doing this using Perl? Is there
>a service out there that provides quotes to all those quote sites out
>there?
Like the Finance::YahooQuote module? :)
Finance::YahooQuote
http://www.padz.net/~djpadz/YahooQuote/
=head1 NAME
Finance::YahooQuote - Get a stock quote from Yahoo!
=head1 SYNOPSIS
use Finance::YahooQuote;
@quote = getonequote $symbol; # Get a quote for a single symbol
@quotes = getquote @symbols; # Get quotes for a bunch of symbols
=head1 DESCRIPTION
This module gets stock quotes from Yahoo! Finance. The B<getonequote>
function will return a quote for a single stock symbol, while the
B<getquote> function will return a quote for each of the stock symbols
passed to it. The return value of B<getonequote> is an array, with
the following elements:
0 Symbol
1 Company Name
2 Last Price
3 Last Trade Date
4 Last Trade Time
5 Change
6 Percent Change
7 Volume
8 Average Daily Vol
9 Bid
10 Ask
11 Previous Close
12 Today's Open
13 Day's Range
14 52-Week Range
15 Earnings per Share
16 P/E Ratio
17 Dividend Pay Date
18 Dividend per Share
19 Dividend Yield
20 Market Capitalization
The B<getquote> function returns an array of pointers to arrays with
the above structure.
=head1 COPYRIGHT
Copyright 1998, Dj Padzensky
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at
your option) any later version.
The information that you obtain with this library may be copyrighted
by Yahoo! Inc., and is governed by their usage license. See
http://www.yahoo.com/docs/info/gen_disclaimer.html for more
information.
=head1 AUTHOR
Dj Padzensky (C<djpadz@padz.net>), PadzNet, Inc.
The Finance::YahooQuote home page can be found at
http://www.padz.net/~djpadz/YahooQuote/
--
Clay Irving
clay@panix.com
------------------------------
Date: Wed, 23 Dec 1998 22:11:10 -0000
From: "Matty" <mattfreeman@mcmail.com>
Subject: Using Exec CGI in ASP
Message-Id: <36816ac3.0@news1.mcmail.com>
Hi,
Can anyone tell me how to use exec cgi in an page
with .asp as the extension. I usually insert a banner
system in my .shtml using the exec cgi server side
tag, however when a file is .asp it ignores the exec
cgi, but I don't want to change it to .html or .shtml
because it will ignore the asp script (<% ... %>)
What I'm asking is how can I use ASP and Perl on the
same page. I know I can use perlscript, but that's
different.
also, How can I execute a program and get's it return
value using perlscript?
------------------------------
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 4489
**************************************
