[21876] in Perl-Users-Digest
Perl-Users Digest, Issue: 4080 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 7 14:06:39 2002
Date: Thu, 7 Nov 2002 11:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 7 Nov 2002 Volume: 10 Number: 4080
Today's topics:
Re: A Unix guy moving to Windows 2000 (Bryan Castillo)
Re: How to copy some sections of a file that varies eve (Karen)
Re: How to guarantee process ID stays with web connecti (Bryan Castillo)
Re: How to locate Perl Interpreter (Bryan Castillo)
Re: How to locate Perl Interpreter nobull@mail.com
Re: Makefile.PL @INC PREFIX LIB nobull@mail.com
Re: Perfecting my Perl nobull@mail.com
Re: Perfecting my Perl <tassilo.parseval@post.rwth-aachen.de>
performance characteristics of embedded perl? <smurch@no.spam>
Re: performance characteristics of embedded perl? <tassilo.parseval@post.rwth-aachen.de>
Re: performance characteristics of embedded perl? (Alan Barclay)
perl ldap and MS-Active Directory or Netmeeting <Rainer.Scherg@t-online.de>
Re: seconds -> hours/min/secs <nospam@nospam.org>
Re: setuid script (David)
Re: Simple question - What is unicode? <bill.kemp@wire2.com>
Why not PERL? <ihave@noemail.com>
Re: Why not PERL? <pinyaj@rpi.edu>
Re: Why not PERL? (Tad McClellan)
Re: Why not PERL? <bill.kemp@wire2.com>
Re: Why not PERL? <ihave@noemail.com>
Re: Why not PERL? <cpryce@pryce.net>
Win32::OLE talking to IIS webserver (again) <nospam@nospam.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Nov 2002 08:53:06 -0800
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: A Unix guy moving to Windows 2000
Message-Id: <1bff1830.0211070853.26766e13@posting.google.com>
>
> To illustrate a little bit of what I want to achieve, I have prepared
> a small test program which works fine under a Cygwin window, but not
> when I try to run it via a Windows command window. I want to know
> how to adapt this program so that it runs under both environments
> so that I can schedule it via the Windows Task Scheduler.
>
> Here's the program:
>
> #!/usr/bin/perl -w
>
> print "Hello world!\n";
> system("date > date.output");
> system("ls /cygdrive/c/listserv/main/*.LIST > lists.stuff");
> system("pwd");
> system("df -k");
> print "Hello world again!\n";
>
> exit;
I had no problems running from a dos (window|session|whatever....)
[there has been enough flaming piles of **** thrown. no other comments]
C:\WINDOWS\Desktop>set PATH=C:\cygwin\bin;%PATH%
C:\WINDOWS\Desktop>perl test.pl
Hello world!
ls: /cygdrive/c/listserv/main/*.LIST: No such file or directory
/c/WINDOWS/Desktop
Filesystem 1k-blocks Used Available Use% Mounted on
C:\cygwin\bin 2096832 818848 1277984 40% /usr/bin
C:\cygwin\lib 2096832 818848 1277984 40% /usr/lib
C:\cygwin 2096832 818848 1277984 40% /
df: `/a': No such device
D: 2096832 0 2096832 0% /d
df: `/e': No such device
F: 477920 477920 0 100% /f
c: 2096832 818848 1277984 40% /c
Hello world again!
------------------------------
Date: 7 Nov 2002 10:45:05 -0800
From: kjbarahona@hotmail.com (Karen)
Subject: Re: How to copy some sections of a file that varies every month?
Message-Id: <ade6ec5e.0211071045.6c59f658@posting.google.com>
Hi Martien,
Martien Verbruggen <mgjv@tradingpost.com.au> wrote in message news:<slrnasgkem.3cr.mgjv@verbruggen.comdyn.com.au>...
> On 5 Nov 2002 14:10:20 -0800,
> Karen <kjbarahona@hotmail.com> wrote:
> > Hi Martien,
> >
> > Martien Verbruggen <mgjv@tradingpost.com.au> wrote in message news:<slrnase71m.2c3.mgjv@verbruggen.comdyn.com.au>...
> >> On 4 Nov 2002 15:31:02 -0800,
> >> Karen <kjbarahona@hotmail.com> wrote:
> >> > Hi everybody,
> >> >
> >> > I'm trying to modify a file with a perl script. I get a report once a
> >> > month (the report has 11 sections), I need to be able to run a script
> >> > that will make the report have only 5 sections. (It must be done
> >> > automatically, that's why I don't do it manually)
> >> >
> >> > This is part of the file I get originally (the one that needs to be
> >> > modified by the script):
> >> >
> >> > ################################################################
> >> > ### Section 1
> >> ><h3>The last Months Daily Availability</h3>
> >> ><p>Daily Average of svcs monitored and availability of svcs divided by
> >>
> >> [SNIP]
> >>
> >> Your file looks like HTML. You should probably have a look at the
> >> various HTML:: modules on CPAN. Maybe HTML::Tree would be useful.
> >> If your HTML is very clean, and is valid XML, maybe one of the
> >> XML::DOM modules could be of use.
> >
> > Ok, I used HTML::Tree, but I run into another problem, I don't know
> > why my code doesn't work:
> >
> > my $root = HTML::TreeBuilder->new;
> > $file=/opt/OpenNMS/share/reports/AVAIL-HTML-File-Servers20020729.html
>
> You should use quotes here. make sure to run perl with warnings and
> strict enabled.
Thanks, I included the following line at the beginning of the code:
use strict;
>
> > $root->parse_file($file);
> > $h=HTML::Element->new("table");
> > $h->delete();
>
> You should probably read the HTML::Tree::Scanning article that comes
> with the HTML::Tree distribution. It explains quite well how to do
> what you want to do.
>
I read the article, very well explained. Since I'm very new to HTML
modules and my deadline was today, I had to use a different method
(much longer than using just the tree style) but definetely I'll use
it next time.
Here is part of the code:
### more code before this
my $match1;
my $found1;
my $item1;
foreach $item1 (@file) {
if($item1 eq "<h3>Month To Date Daily Availability</h3>"){
$match1 = $item1;
last;
}
$found1++;
}
$fplus1=$found1 + 100;
$fplus2=$found1 + 97;
$fplus3=$found1 + 91;
## more code after this
($mon) = (localtime)[4];
if ($mon==0 || $mon==2 || $mon==4 || $mon==7 || $mon==9 || $mon==11){
for ($b=$found1; $b < $fplus1; $b++){
delete $file[$b];
}
for ($c=$found2; $c < $fplus4; $c++){
delete $file[$c];
}
> > I have 11 tables in the report, how do I declare each table as
> > different one: ex, table1, table2, table3....table11 so I can say
> > $table6->delete()
>
> I'd probably iterate over the tree, until I found a table. I would
> then remove that table, and insert the contents of the table in
> another one, which I'd have ready. Once finished, I'd re-insert the
> tables back into the original document and export it. It's hard to
> tell without knowing exactly what you're doing.
>
> Martien
Thanks for all the feedback!
-Karen-
------------------------------
Date: 7 Nov 2002 08:39:25 -0800
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: How to guarantee process ID stays with web connection
Message-Id: <1bff1830.0211070839.13d37eeb@posting.google.com>
> Every time I invoke a perl script from a web page, I get a different process
> ID (PID) and consequently different values for any variables. How can I
> make it so that each time I invoke my script from a given web session I get
> the same PID instead of a different one? Below is code I use to verify that
> I get different PIDs each time.
Teh's idea tested:
It worked on my system, but I won't tell you how long it took :)
#!/usr/bin/perl
use strict;
use warnings;
use Config;
use POSIX;
my $WantedPid = 11213;
print "Content-type: text/html\n\n";
print "<html><head><title>I want $WantedPid</title></head><body><pre>\n";
print "Starting: ", POSIX::strftime("%Y-%m-%d %H:%M:%S", localtime), "\n";
print "<!--\n";
while ($WantedPid != $$) {
if (fork == 0) {
if ($WantedPid == $$) {
print "-->\n";
print "Congratulations: $WantedPid == $$\n";
print "Ending: ", POSIX::strftime("%Y-%m-%d %H:%M:%S", localtime), "\n";
last;
}
else {
print "Too Badd: $WantedPid != $$\n";
}
}
else { exit 0; }
}
print "</pre></body></html>\n";
------------------------------
Date: 7 Nov 2002 09:36:47 -0800
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: How to locate Perl Interpreter
Message-Id: <1bff1830.0211070936.51b9f088@posting.google.com>
> Can anybody tel me how to locate Perl Interpreter (if installed the path)
> in a web server from a client.
[Im not exactly sure what you mean by "in a web server from a client"]
but.....
use Config;
print $Config{perlpath};
------------------------------
Date: 7 Nov 2002 10:17:00 -0800
From: nobull@mail.com
Subject: Re: How to locate Perl Interpreter
Message-Id: <4dafc536.0211071017.42f57cff@posting.google.com>
bansidhar <nospam@satyam.net.in> wrote in message news:<Xns92BF96B5C481Dbansidhar@202.54.1.25>...
> Can anybody tel me how to locate Perl Interpreter (if installed the path)
> in a web server from a client.
You have a serious problem partitioning problem.
Since you don't know where your Perl Interpreter is then the solution
to the problem cannot be related to Perl. The procedure would be
exactly the same for locating a python interpreter or any other
executable on the server.
Obviously you can only do this if there are scripts on the server that
will do it! (Unless you are taking about exploiting security bugs on
the server to allow you to execute arbitrary code).
Anyhow what use would the location of the Perl interpreter be to you
if you cannot put your own scripts on there?
If you can put your own CGI scripts on the server the question is now
something completely different. You are no longer trying to get at
this information from a client (probably impossible), you can try to
get at it from a program you've written and that is running on the
server (trivial)!
Simply write a CGI script in some language for which you do know the
interpreter location.
E.g.
#!/bin/sh
echo Content-type: text/plain
echo
which perl
So far none of this has the sightest thing to do with Perl.
See also the section in "perlrun" on writing Perl scripts that don't
need to know where the interpreter is located.
------------------------------
Date: 7 Nov 2002 10:19:03 -0800
From: nobull@mail.com
Subject: Re: Makefile.PL @INC PREFIX LIB
Message-Id: <4dafc536.0211071019.1c24dd74@posting.google.com>
Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com> wrote in message news:<newscache$2q975h$bx$1@news.emea.compuware.com>...
> perl Makefile.PL PREFIX=/usr/local/httpd/cgi-bin/upara_07/lib
> Warning: prerequisite HTML::Tagset failed to load: Can't locate
> HTML/Tagset.pm in @INC (@INC contains: /usr/lib/perl5/5.6.1/i586-linux
> /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i586-linux
> /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl .) at (eval 4)
> line 3
>
> As you see @INC keeps pointing to the default locations. How can I convince
> Makefile.PL to scan the local directory too? Using LIB i.s.o. PREFIX
> doesn't help.
Try setting the PERL5LIB environment variable.
------------------------------
Date: 7 Nov 2002 09:57:00 -0800
From: nobull@mail.com
Subject: Re: Perfecting my Perl
Message-Id: <4dafc536.0211070957.6460e9b6@posting.google.com>
"Gregory Toomey" <nobody@noplace.com> wrote in message news:<01c2864c$6cb47f00$88498a90@gmtoomey>...
> Subject: Perfecting my Perl
The subject line should have contained the phase "perl golf".
> Problem:
> Make as many words as possible with the letters a,a,c,c,e,i,n,t,v; each
> word must contain the letter c.
> I've come up with the following:
>
> while(<>) {
> if (/^[aceintv]*$/ && /c/) {
> my %hash;
> foreach (split //) {$hash{$_}++};
> print "$_" if $hash{v}<=1 && $hash{c}<=2 &&
> $hash{c}>=1 && $hash{i}<=1 && $hash{n}<=1 && $hash{t}<=1 && $hash{e}<=1;
> }
> }
>
> Does somebody have a more elegant solution?
That would, of course, depend on your elegance metric.
while (<>) {
print if /c/ && !/[^aceintv]/ && !/([eintv]).*\1/ && !/([ac]).*\1.*\1/;
}
(The outer loop can be replaced by invoking perl with the -n switch).
------------------------------
Date: 7 Nov 2002 18:06:06 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Perfecting my Perl
Message-Id: <aqea2e$fad$1@nets3.rz.RWTH-Aachen.DE>
Also sprach nobull@mail.com:
> "Gregory Toomey" <nobody@noplace.com> wrote in message news:<01c2864c$6cb47f00$88498a90@gmtoomey>...
>
>> Subject: Perfecting my Perl
>
> The subject line should have contained the phase "perl golf".
Not necessarily. I am not inclined to see every elegant Perl solution as a
piece of Perl golf. Sometimes more verbose code can have its own air of
elegance. See CPAN, hardly a golf parcours.
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: Thu, 07 Nov 2002 17:06:57 GMT
From: Stan Murch <smurch@no.spam>
Subject: performance characteristics of embedded perl?
Message-Id: <R4xy9.330$O71.11@rwcrnsc53>
I have some questions about embedded perl and speed. Perlembed doesn't
discuss performance other than implying (in the MORAL section) that one
embeds for reasons of speed.
Background: a few months ago I started writing a program in C because it
needs to run fast. Specifically, it will be started many times serially
and thus startup time is critical. But I soon decided to prototype it in
Perl, for all the usual reasons why Perl is a good prototyping language.
I don't regret that decision one bit because I had to change course a
number of times and Perl made it an order of magnitude easier.
The Perl prototype now works but, predictably, way too slow and it's
time to rewrite it in C. One strategy I'm considering is embedding Perl
into the new executable, at least as a transitional strategy. This
should in theory allow me to rewrite critical sections in C while
passing things that I'm not yet ready to handle myself, like funky RE's
or operations handled by modules, on to Perl. I can even imagine leaving
perl linked into the released binary even after it's entirely translated
to C in order to make hotfixes or prototyping of enhancements quicker.
But all this depends on how a perlembed-ed executable behaves.
Say I've rewritten all but 6 sections into C. So in 6 different places
I'd be running
perl_construct();/perl_parse();perl_run();perl_destruct();perl_free(),
right? In terms of speed, would this be the equivalent of using
"system(qw(perl ...))" six times, thus actually making my
startup-overhead problem worse? Can I just do one perl_construct() at
the beginning and one perl_free() at the end? And is that a lot faster?
Next, let's say I've translated all my code into C but want to leave
perl embedded. Will that run (nearly) as fast as if I stripped perl
right out? I guess I could always leave the hooks for Perl in and just
ifdef them out in release versions.
Has anyone else taken a similar gradual Perl->C transition route? And if
so, what's your experience been?
Thanks,
Stan
------------------------------
Date: 7 Nov 2002 17:52:33 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: performance characteristics of embedded perl?
Message-Id: <aqe991$ee4$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Stan Murch:
> I have some questions about embedded perl and speed. Perlembed doesn't
> discuss performance other than implying (in the MORAL section) that one
> embeds for reasons of speed.
>
> Background: a few months ago I started writing a program in C because it
> needs to run fast. Specifically, it will be started many times serially
> and thus startup time is critical. But I soon decided to prototype it in
> Perl, for all the usual reasons why Perl is a good prototyping language.
> I don't regret that decision one bit because I had to change course a
> number of times and Perl made it an order of magnitude easier.
>
> The Perl prototype now works but, predictably, way too slow and it's
> time to rewrite it in C. One strategy I'm considering is embedding Perl
> into the new executable, at least as a transitional strategy. This
> should in theory allow me to rewrite critical sections in C while
> passing things that I'm not yet ready to handle myself, like funky RE's
> or operations handled by modules, on to Perl. I can even imagine leaving
> perl linked into the released binary even after it's entirely translated
> to C in order to make hotfixes or prototyping of enhancements quicker.
> But all this depends on how a perlembed-ed executable behaves.
Since you have already a working Perl prototype, wouldn't the more
logical step be leaving the general skeleton in Perl and selectively
rewrite the slow parts in C? That would mean youId still have a Perl
application but this time with embedded C. Consequences would be that
you should be reading some different manpages: perlxs, perlxstut,
perlguts and perlapi.
A personal note: The above outline would be my approach since I already
have some experience with XS while I am not at all acquainted with
embedding perl. I found the XS part a little tricky to pick up but
overall not too complicated. It might be the cheaper solution for you.
Find out (for instance with the help of Devel::DProf) which subroutines
are slowing your program down and re-implement those or parts of those
in C. The advantage is that your global control-flow could remain pure
Perl.
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: 7 Nov 2002 17:50:43 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: performance characteristics of embedded perl?
Message-Id: <1036691442.460968@elaine.furryape.com>
In article <R4xy9.330$O71.11@rwcrnsc53>, Stan Murch <smurch@no.spam> wrote:
>Background: a few months ago I started writing a program in C because it
>needs to run fast. Specifically, it will be started many times serially
>and thus startup time is critical. But I soon decided to prototype it in
Are you sure that rewriting it is the best approach? If you can cut
down the apparent startup time, perhaps by doing some 'startup' work in
advance, then you might be able to make it fast enough.
For example, if you've got a CGI, then making it a mod_perl module will
avoid the fork(),exec(), giving much faster response times.
If you've got a program started by inetd, then making it a daemon will
also reduce the startup time.
For a regular command line program, you might want to approach splitting
it into two halfs, one half which runs as a daemon and does much of the work
and a second half which grabs the arguments and passes them onto the daemon.
------------------------------
Date: Thu, 07 Nov 2002 19:56:14 +0100
From: Rainer Scherg <Rainer.Scherg@t-online.de>
Subject: perl ldap and MS-Active Directory or Netmeeting
Message-Id: <3DCAB74E.A15C6BD7@t-online.de>
Hi,
has anyone experience in accessing Microsofts
Actiev Directory or Netmeeting (ils-Server) from perl
with perl-ldap (from unix)?
Trying to do so I always get bind error code 48 (InApprop.Auth)
Has anyone some sample code on this topic to spare,
or a pointer to this problem?
Any hint is appreciated...
cu
rainer
------------------------------
Date: Thu, 7 Nov 2002 11:18:27 -0500
From: "Christian Caron" <nospam@nospam.org>
Subject: Re: seconds -> hours/min/secs
Message-Id: <aqe3oj$r411@nrn2.NRCan.gc.ca>
"David" <perl-dvd@ldschat.com> wrote in message
news:Y3vy9.21741$46.8463@fe01...
> ##################################################
> use Date::Manip;
>
> my $expire_date = &ParseDateString("epoch $the_seconds");
> $expire_date = UnixDate($expire_date, "%m/%d/%Y");
> ##################################################
By the way, you should use "%Y-%m-%d" as specified by the International
Standard Date and Time Notation (ISO 8601).
Christian
------------------------------
Date: 7 Nov 2002 08:51:58 -0800
From: dmeans@bellsouth.net (David)
Subject: Re: setuid script
Message-Id: <c170b603.0211070851.3653e604@posting.google.com>
sholden@flexal.cs.usyd.edu.au (Sam Holden) wrote in message news:<slrnasjo1q.stl.sholden@flexal.cs.usyd.edu.au>...
> On Wed, 06 Nov 2002 21:58:35 -0500, David Means <dmeans@the-means.net> wrote:
> > On Wed, 06 Nov 2002 21:26:16 -0500, Sam Holden wrote:
> >
> >>
> >> On some system an almost one-line C program is required to exec the perl
> >> script, but that is also explained in the perlsec docs.
> >
> > Some *nix type systems will not allow a script to run setuid root. Doing
> > so can lead to compromise of a system.
>
> Hence the need for that C wrapper... Why else would you think I would
> mention it?
Of'course, you're correct. I posted to the wrong thread.
David
------------------------------
Date: Thu, 7 Nov 2002 17:49:31 -0000
From: "W K" <bill.kemp@wire2.com>
Subject: Re: Simple question - What is unicode?
Message-Id: <HKxy9.223$Xk3.1872@news.uk.colt.net>
Alan J. Flavell <flavell@mail.cern.ch> wrote in message
news:Pine.LNX.4.40.0211062016000.15931-100000@lxplus075.cern.ch...
> On Nov 6, W K inscribed on the eternal scroll:
>
> > Helgi Briem <helgi@decode.is> wrote
>
> > > Unicode is a scheme for encoding alphabets
>
> Not exactly. Unicode assigns numerical values to characters, but
> there are numerous ways (several of which are in active use) of
> actually encoding those numerical values to represent a character.
I was really meaning simple 2 byte UCS-2 ? is that utf 16 ?
anyway - that sounds like what hes got if it turns out like "#A#B#C", where
# is however the text editor shows a null.
------------------------------
Date: Thu, 07 Nov 2002 16:45:46 GMT
From: "TBN" <ihave@noemail.com>
Subject: Why not PERL?
Message-Id: <_Mwy9.2032$uwT2.34799672@news2.randori.com>
I've only been using Perl for a couple of months, so I'll admit to ignorance
here, but according to ActiveState, Perl stands for "Practical Extraction
and Report Language". If that's the case, it should be PERL. But if anyone
ever refers to it as PERL on this usenet group, they get chastised promptly
and harshly. Fortunately, I saw this "mistake" in others before posting
messages, so I didn't have to suffer any flames for it, but can someone
elaborate on why this is such a horrible thing to the point where some
people ignore the poster's question altogether just to correct their "PERL"?
Seems like time wasted, but I'm open to hearing some supporting arguments to
help me "see the light."
------------------------------
Date: Thu, 7 Nov 2002 12:14:27 -0500
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Subject: Re: Why not PERL?
Message-Id: <Pine.A41.3.96.1021107121118.27450C-100000@cortez.sss.rpi.edu>
On Thu, 7 Nov 2002, TBN wrote:
>I've only been using Perl for a couple of months, so I'll admit to ignorance
>here, but according to ActiveState, Perl stands for "Practical Extraction
>and Report Language". If that's the case, it should be PERL. But if anyone
>ever refers to it as PERL on this usenet group, they get chastised promptly
>and harshly. Fortunately, I saw this "mistake" in others before posting
>messages, so I didn't have to suffer any flames for it, but can someone
>elaborate on why this is such a horrible thing to the point where some
>people ignore the poster's question altogether just to correct their "PERL"?
>Seems like time wasted, but I'm open to hearing some supporting arguments to
>help me "see the light."
The name "perl" came first. AFTER THE FACT, "Practical Extraction and
Report Language" was devised. My name doesn't become an acronym just
because someone says I'm a "Jaunty Emigrant Finding Faults".
--
Jeff "japhy" Pinyan RPI Acacia Brother #734 2002 Acacia Senior Dean
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Thu, 7 Nov 2002 11:33:45 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Why not PERL?
Message-Id: <slrnasl8vp.3a4.tadmc@magna.augustmail.com>
TBN <ihave@noemail.com> wrote:
> ever refers to it as PERL on this usenet group, they get chastised promptly
> and harshly.
This has come up here before, see:
Subject: Perl is not PERL (was Re: Getting Leading Space in Script...
Message-Id: <slrnamskpt.3jc.tadmc@magna.augustmail.com>
> Fortunately, I saw this "mistake" in others before posting
> messages, so I didn't have to suffer any flames for it, but can someone
> elaborate on why this is such a horrible thing
Larry named it "Perl". We should call it by the name that Larry
wants it to be called by.
> to the point where some
> people ignore the poster's question altogether just to correct their "PERL"?
> Seems like time wasted, but I'm open to hearing some supporting arguments to
> help me "see the light."
The pragmatic reason, regardless of whether it is "right" or "wrong",
is that you might be ignored if you use PERL, so use Perl to get
the widest possible readership for your articles.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 7 Nov 2002 17:41:29 -0000
From: "W K" <bill.kemp@wire2.com>
Subject: Re: Why not PERL?
Message-Id: <9Dxy9.221$Xk3.1849@news.uk.colt.net>
Tad McClellan <tadmc@augustmail.com> wrote in message
news:slrnasl8vp.3a4.tadmc@magna.augustmail.com...
> The pragmatic reason, regardless of whether it is "right" or "wrong",
> is that you might be ignored if you use PERL, so use Perl to get
> the widest possible readership for your articles.
although some of us are case insensitive.
------------------------------
Date: Thu, 07 Nov 2002 18:18:35 GMT
From: "TBN" <ihave@noemail.com>
Subject: Re: Why not PERL?
Message-Id: <%7yy9.2038$uwT2.28639323@news2.randori.com>
"W K" <bill.kemp@wire2.com> wrote in message
news:9Dxy9.221$Xk3.1849@news.uk.colt.net...
>
> Tad McClellan <tadmc@augustmail.com> wrote in message
> news:slrnasl8vp.3a4.tadmc@magna.augustmail.com...
>
> > The pragmatic reason, regardless of whether it is "right" or "wrong",
> > is that you might be ignored if you use PERL, so use Perl to get
> > the widest possible readership for your articles.
>
> although some of us are case insensitive.
>
That's the smartest comment I've heard yet.
------------------------------
Date: Thu, 07 Nov 2002 12:36:02 -0600
From: cp <cpryce@pryce.net>
Subject: Re: Why not PERL?
Message-Id: <B9F00EB2.11993%cpryce@pryce.net>
in article _Mwy9.2032$uwT2.34799672@news2.randori.com, TBN at
ihave@noemail.com wrote on 11/7/02 10:45 AM:
> I've only been using Perl for a couple of months, so I'll admit to ignorance
> here, but according to ActiveState, Perl stands for "Practical Extraction
> and Report Language". If that's the case, it should be PERL. But if anyone
> ever refers to it as PERL on this usenet group, they get chastised promptly
> and harshly. Fortunately, I saw this "mistake" in others before posting
> messages, so I didn't have to suffer any flames for it, but can someone
> elaborate on why this is such a horrible thing to the point where some
> people ignore the poster's question altogether just to correct their "PERL"?
> Seems like time wasted, but I'm open to hearing some supporting arguments to
> help me "see the light."
In a way, you've answered your own question. You did what any one that posts
to this group should do: observed the culture, and then conformed to the
culture in your posts. You demonstrated good Usenet "manners" by lurking and
learning.
One reason (and I suspect that there are many) that posters that use the
term PERL get flamed, is that it is obvious that they haven't taken the time
to acquaint themselves with this newsgroup's conventions and culture.
Another reason for the flames is that the answer to your question is found
in the FAQs. And people that make the mistake of writing PERL demonstrate
that they haven't read those either.
cp
------------------------------
Date: Thu, 7 Nov 2002 13:48:29 -0500
From: "Christian Caron" <nospam@nospam.org>
Subject: Win32::OLE talking to IIS webserver (again)
Message-Id: <aqecht$r59@nrn2.NRCan.gc.ca>
Here's the code:
############################################################################
use Win32::OLE;
use OLE;
use strict;
my $websvc = Win32::OLE->GetObject("IIS://localhost/W3SVC/3") || print
Win32::OLE->LastError;
print $websvc->{"ServerComment"};
exit;
############################################################################
Here's the output:
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Win32::OLE(0.1403) error 0x80070005: "Access is denied"
after character 0 in "IIS://localhost/W3SVC/3"
The reason I'm posting here is because I use Perl to connect to the MMC. I
just hope somebody already came across a problem like this and may help me.
Thanks!
Christian
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 4080
***************************************
