[18360] in Perl-Users-Digest
Perl-Users Digest, Issue: 528 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 19 14:08:01 2001
Date: Mon, 19 Mar 2001 11:05:16 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <985028716-v10-i528@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 19 Mar 2001 Volume: 10 Number: 528
Today's topics:
Re: -w and use strict; (Anno Siegel)
Re: check a pop3 mailbox without using additional modul gls@byu.edu
Hallucinations of symrefs? (Eric Bohlman)
Help about SpreadsheetParseExcel <wstsoi@hongkong.com>
Re: how can I restart a regex within a substitution wit info@java.seite.net
How do/Can I ... A question on shared libraries. <blair_dean@hc-sc.gc.ca>
Re: HTTP Client Question (Glyndwr)
Re: HTTP Client Question <mischief@velma.motion.net>
Re: HTTP Client Question <joe+usenet@sunstarsys.com>
Re: HTTP Client Question <spohn@bigfoot.com>
Re: HTTP Client Question <callgirl@la.znet.com>
Re: HTTP Client Question <spohn@bigfoot.com>
more efficient way to build array of dirs ? <kimmfc@mydeja.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Problems running perl script with call to Win32::AdminM ("Wilburn, Bryan")
Quality Perl Books Was:Re: Why do "Learning Perl" Books (Tom Briles)
Re: readdir out of memory <tshoenfe@cisco.com>
reading location header from lwp <mail@ericmarques.net>
Re: reading location header from lwp <mail@ericmarques.net>
Re: reading location header from lwp (Randal L. Schwartz)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Sub question (Jon Bell)
Re: use Net::SMTP <graeme.m@which.net>
Re: write privilege for script. <edward.coates@sabre.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Mar 2001 17:05:37 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: -w and use strict;
Message-Id: <995e91$h5$1@mamenchi.zrz.TU-Berlin.DE>
According to Kevin Lacquement <klacquement@syscor.com>:
> >>>>> "LM" == Lou Moran <lmoran@wtsg.com> writes:
>
> [...]
>
> LM> My questions are:
>
> LM> Do you remove those once your script works as expected and is
> LM> unlikely to be changed?
> ^^^^^^^^^^^^^^^^^^^^^^
>
> Note that this is _completely_ different from 'never will be changed'.
> IMHO, any script that never changes is a dead project, a cheap hack,
> or a school assignment.
Well, some things just work after they're debugged. But there's a
different reason to keep warnings active in production: Even if the
program doesn't change, data will. When unexpected data is thrown at
a program, warnings will often occur. Usually I'd prefer that to a
program that silently dies (or, worse, DWIM and malfunctions).
[...]
Anno
------------------------------
Date: 19 Mar 2001 10:16:51 -0700
From: gls@byu.edu
Subject: Re: check a pop3 mailbox without using additional modules
Message-Id: <upufd7k70.fsf@SNOW.i-did-not-set--mail-host-address--so-shoot-me>
"Paul" <paulthomson@hotmail.com> writes:
> Hi,
>
> Does anyone know of a way to check a pop3 mailbox without using additional
> modules to the basic perl 5 installation? The reason I ask is my isp makes a
> hideous charge for installing modules :(
Check to see if the module that you want to use is straight Perl or
needs parts compiled (some modules with compiled parts also provide
Perl only versions). If you have a Perl only version of the module,
then you can copy and paste the whole thing (or just the parts you
need) into your script. That way you are reusing existing code (the
goal of modules) without needing your isp to install anything.
hope this helps,
--
Greg Snow, PhD Office: 223A TMCB
Department of Statistics Phone: (801) 378-7049
Brigham Young University Dept.: (801) 378-4505
Provo, UT 84602 email: gls@byu.edu
------------------------------
Date: 19 Mar 2001 18:12:16 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Hallucinations of symrefs?
Message-Id: <995i60$92h$1@bob.news.rcn.net>
The following is an excerpt of code from the latest (yet unreleased)
version of XML::TokeParser:
sub parsechunks {
my ($self)=@_;
my $buf='';
while (
(!@{$self->{output}} || $self->{output}[-1][0] eq 'T')
&& !$self->{EOF}) {
# if (defined($self->{src}) && ($self->{src_offset}<length(${$self->{src}}))) {
# $buf=substr(${$self->{src}},$self->{src_offset},4096);
# $self->{src_offset}+=4096;
# }
if (defined($self->{src})) {
if ($self->{src_offset}<length(${$self->{src}})) {
$buf=substr(${$self->{src}},$self->{src_offset},4096);
$self->{src_offset}+=4096;
}
}
else {
read($self->{srcfile},$buf,4096);
}
if (length($buf)==0) {
$self->{EOF}=1;
$self->{parser}->parse_done();
}
else {
$self->{parser}->parse_more($buf);
}
}
}
If I use the code in the commented-out if block rather than the one below
it, when the end of the string referenced by $self->{src} is reached I
get a fatal "can't use undefined value as symbol reference" error in the
if statement. A print statement reveals that both $self->{src} and
$self->{src_offset} are defined at this point. *Any* mention of
$self->{src_offset} in the if conditional causes this error. As you can
see, the commented-out code should do the exact same thing as the
replacement code below it. Where is perl getting the notion that there's
a symref anywhere (especially considering that I have strictures enabled).
perl is ActiveState build 522 (5.005_03).
------------------------------
Date: Tue, 20 Mar 2001 01:54:32 +0800
From: "Regent Linus" <wstsoi@hongkong.com>
Subject: Help about SpreadsheetParseExcel
Message-Id: <995ggd$1kd2@imsp212.netvigator.com>
I found It is rather slow for dumping a 1.5MB excel file.
It took about 2 minutes to finish the dumping for a 333MHz machine.
Any ways to speed up?
------------------------------
Date: 19 Mar 2001 18:42:14 GMT
From: info@java.seite.net
Subject: Re: how can I restart a regex within a substitution without leaving the
Message-Id: <995ju6$1i4$1@news.netmar.com>
In article <3AB2C9B4.69EABF12@home.com>, Rick Delaney
<rick.delaney@home.com> writes:
>[posted & mailed]
>
>Yes, look for "postponed" regular expression in perlre.
>
> $x=~ s/((??{"$c"}))/$1 eq "#" ? ($c="b|#", "#") : "*"/ge;
>
ah, i c...
does this have any speed drawbacks?
i mean, when the regex routine moves through the text, does it evaluate the
code every single char? or does it check if the code is sill unchanged since
the last time/chat (if possible at all)?
background is: i want to parse html-templates dynamically on a web-setrver (so
speed is a criteria) and change some new tags with something else. it
perfectly works with static defined tag names, but now i want to make it
possible to define new tags inside the same template....
>Note that you want the replacement to be "#" when you assign $c="b|#",
>so you can't just return the assignment as you have above.
sorry, it was just a quick hack...
>Rick Delaney
>rick.delaney@home.com
best regards,
christoph bergmann
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: Fri, 16 Mar 2001 17:24:34 GMT
From: Blair Dean <blair_dean@hc-sc.gc.ca>
Subject: How do/Can I ... A question on shared libraries.
Message-Id: <20010316.17243430@STATS-0112.HC-SC.GC.CA>
Can I find out if a Perl installation was built to use shared libraries =
and if so, where those libraries would reside?
--=20
Blair Dean E-mail: blair_dean@hc-sc.gc.ca
Ottawa, Ontario
Surf the web? Getting paid? Check here:=20
www.ncf.carleton.ca/~aa728/pay2surf.html
------------------------------
Date: Mon, 19 Mar 2001 16:23:08 GMT
From: glynFOOdwr@FSCKdeleteEmeD.co.uk (Glyndwr)
Subject: Re: HTTP Client Question
Message-Id: <Mnqt6.6813$pb.67272@news11-gui.server.ntli.net>
On Mon, 19 Mar 2001 08:02:11 -0800, Kira scribbled:
>Goodness Gracious. Such a stereotypical fascist cabal attitude.
>You wear glossy black jackboots to bed?
Sounds like Godwin to me.
--
-=G=-
Web: http://www.fscked.co.uk ICQ: 66545073
------------------------------
Date: Mon, 19 Mar 2001 16:52:53 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: HTTP Client Question
Message-Id: <tbceb5taet0b09@corp.supernews.com>
Dilworth <bactitech@hortonsbay.com> wrote:
> Gwyn Judd wrote:
>> >Anno Siegel wrote:
>> >>
>> >> Because it damages the thread it appears in. Posting style is
>> >> *not* a matter of personal preference.
>> >>
>> >> [rest of somewhat tiring argumentation snipped]
>> >>
>> >> Anno
>> >
>> >Life is too short to deal with folks like you however vast your
>> >knowledge and expertise.
>> >
>> >*plonk*
>>
>> Plonking Anno *and* Abigail in one thread. That takes out about %10 of
>> the total volume in clpm. Do you plan on plonking any of the other
>> regulars or will that suffice for one day?
> Well, I find them to be mean and nasty more often than not. They're
> allowed to "plonk" at will so I say they heck with them.
So are you saying you'd rather the other readers _not_ be able to
plonk at will? Perhaps you should tell us who we can and cannot plonk?
Chris
--
Christopher E. Stith
The purpose of a language is not to help you learn the
language, but to help you learn other things by using the
language. --Larry Wall, The Culture of Perl, August 1997
------------------------------
Date: 19 Mar 2001 12:29:40 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: HTTP Client Question
Message-Id: <m3zoeh3bwb.fsf@mumonkan.sunstarsys.com>
Al Spohn <spohn@bigfoot.com> writes:
> > Albert Spohn (spohn@bigfoot.com) wrote on MMDCCLV September MCMXCIII in
> > <URL:news:MPG.151c93bc5401d2989681@news.chartermi.com>:
> > `` flavell@mail.cern.ch says...
> > `` > On Fri, 16 Mar 2001, Tad McClellan wrote:
> > `` ...
> > `` >
> > `` > > Silently killfiling them for all time is *easier* than
> > '' > > announcing it.
> > `` >
> > `` > Right: I got sick of trying to protect them from their own ignorance,
> > `` > because of all the flak it caused. Usenet has far too many posts to
> > `` > be able to read them all - one has to apply some kind of criteria or
> > `` > one would never get time for real life (tm).
> > `` >
> > `` This is the best rationale for killfiling I've heard yet. If you're no
> > `` longer, or never were, in baby-sitting mode, then make the kill quietly
> > `` and move on. But there's no need for the public humiliation piece.
You still don't seem to get it. Being chided about one's behavior isn't
a big deal, and no one is going to reach through the wires and transform
an otherwise wonderful person into a raving asshole. You have to do
that all by yourself.
Usenet is a limited medium, and it is extremely unlikely that everyone
will react the same way to the same sequence of characters that appear
before them when they decide to read a post from an unrecognized source.
However, over time people do form opinions, mainly along the lines of
"Will I discover more about P/perl by thinking about this person's
message, or am I better off looking elsewhere?"
This is a heavily trafficked group, and a large percentage of the
traffic has little or nothing to do with the subject. If people are
curt with you while pointing out some error or faux pax, the reaction
is *far* more important over the long haul than the original goof.
A score file is a defensive measure, and having to filter messages based
on their content is painfully slow. To avoid downloading worthless
crap, people devise rules that are based on the header info. Personally
I don't want to eavesdrop on people bickering with each other about
personal conduct, and I certainly don't want to get involved in trying
to help somebody out that might drag me into one of these off-topic
tirades later on, so I look for ways to avoid that. I have a feeling
that many others do the same thing.
[...]
> In a nutshell, my public whine never would have been there had it not
> been preceeded by the *plonk* - you made your bed, now you
> (and everybody else unfortunately) can sleep in it.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
This is the real problem. While there's nothing wrong with defending
yourself (briefly) if you feel you've been wronged, you dragged the
entire group through your own little vendetta over what must be roughly
20 such posts.
In light of the original complaint-
"Your posting is completely Perl free",
how can you possibly feel that your best interests were served by your
actions?
(That's a rhetorical question- btw. I'm not interested in the answer.)
--
Joe Schaefer And today the great Yertle, that Marvelous he, Is King of the
Mud. That is all he can see.
-- Dr. Seuss
------------------------------
Date: Mon, 19 Mar 2001 11:30:35 -0600
From: Al Spohn <spohn@bigfoot.com>
Subject: Re: HTTP Client Question
Message-Id: <MPG.151ffd8b588cdbb298968c@mayonews>
In article <985014566.4402@itz.pp.sci.fi>, iltzu@sci.invalid says...
> In article <98qsge$5n4$1@tribune.mayo.edu>, Al Spohn wrote:
> >
> >Granted, the groups I'm thinking of don't approach the sheer volumes of
> >this one, which I acknowledge makes being Mr. Rogers more of a
> >strain... but in an environment where doing nothing doesn't cost you a
> >thing vs. going out of your way to be a little nasty, that smacks more
> >of a power trip than self-defense to me.
>
> Doing nothing would mean not reading this group. Reading this group
> costs time.
>
> There is also a second-order effect here you've missed. If all the
> regulars silently killfiled all the clueless, they wouldn't have to read
> their posts. But the clueless would not notice, would not learn, and
> would continue to spread their cluelessness. Newbies would come, see a
> group filled with garbage, and either dive into it or recoil in disgust.
I have to confess to not having thought out the long term evolutionary
effects. However one could also argue that newbies would remain equally
ignorant if they were repelled by the site based on what they believed
was an unjustifiable, unelaborated public plonk, e.g., with their first
(inadvertent or otherwise) jeopardy submission, as was the case with me
(with the meaning of jeopardy left to the victim's ingenuity or ability
to intelligently traverse FAQ info.) I think your argument holds water,
however, for those bothering to at least qualify the plonk in terms the
newby could be expected to grasp. For what it's worth, I would be
willing to accept that scenario as a fact of life given the nature of the
beast as you've explained it.
> If we did nothing to make this group more readable for everyone, not
> just for ourselves, we might as well just leave. We teach newbies how
> to behave here, so that other newbies would find a well-behaved group.
> When that doesn't help, a public plonk may serve as a warning that the
> plonked poster is not a reliable source of information, or generally
> worth listening to.
Again, fine if the education attempt in some form fails. But I don't
think failing to read an FAQ qualifies as a failed education attempt if
the poster had no idea such a creature exists - after having recieved the
one-liner notification from some thoughtful soul with a few seconds on
their hands, however, they should be considered imminently plonkable.
Bear in mind also that the poster may be basing his/her behavior on their
experience in several non-technical groups where, for example, de-
jeopardized postings are regrettably in the minority by *far*. Without
the education attempt or any elaborations on the part of the plonker,
in accepting the plonker's assessment of the plonkee you're at the mercy
of someone's judgement who might be imminently qualified in making
technical assessments but a dismal failure at assessing living organisms
and their potential to be valuable contributors.
> Yes, this does mean we have to decide what is proper behavior here. As
> the Perl experts, the very people that keep this group worth anything,
> we feel we do have the right to speak for the group. In any case, there
> is no Usenet government to take this responsibility from us.
I have no problem with that, and I'm actually greatful that these folks
are willing to take on this mantle in addition to graciously supplying
the technical feedback that makes this group what it is. We just have to
accept the fact that the enforcement of the recommended behavior can vary
drastically from expert to expert. Given human nature, that's not
surprising - but it doesn't mean that abuses should be tolerated.
> >And there are way too many knowledgeable regulars out there who don't
> >feel this compulsion to twist the knife for me to have much patience
> >with those that do.
>
> Ah, yes. Not all of us bother, or have the time to. I plonk clueless
> posters, delete my spam mail, and trust someone else to take care of the
> actual source of the noise.
>
> Most of the time, anyway.
>
I'm very grateful that you didn't in this case - thanks for the feedback
and the time you took putting it together.
--
Al Spohn
http://www.bigfoot.com/~spohn
------------------------------
Date: Mon, 19 Mar 2001 09:49:55 -0800
From: Kira <callgirl@la.znet.com>
Subject: Re: HTTP Client Question
Message-Id: <3AB646C3.474BC51D@la.znet.com>
Glyndwr wrote:
> > Ilmari Karonen wrote:
> Kira wrote:
> > > There is also a second-order effect here you've missed.
> > > If all the regulars silently killfiled all the clueless,
> > > they wouldn't have to read their posts.
> > > But the clueless would not notice....
> > > ...would continue to spread their cluelessness.
> > > We teach newbies how to behave here, so that other
> > > newbies would find a well-behaved group.
> > > a public plonk may serve as a warning that the plonked
> > > poster is not a reliable source of information,
> > > or generally worth listening to.
> > > ...we have to decide what is proper behavior here.
> > > ...we feel we do have the right to speak for the group.
> > > ...no Usenet government to take this responsibility from us.
> > Goodness Gracious. Such a stereotypical fascist cabal attitude.
> > You wear glossy black jackboots to bed?
> Sounds like Godwin to me.
Oh my. A lickspit bootlicker.
Godzilla!
------------------------------
Date: Mon, 19 Mar 2001 12:26:59 -0600
From: Al Spohn <spohn@bigfoot.com>
Subject: Re: HTTP Client Question
Message-Id: <MPG.15200b55c21f234898968d@mayonews>
In article <m3zoeh3bwb.fsf@mumonkan.sunstarsys.com>,
joe+usenet@sunstarsys.com says...
> Al Spohn <spohn@bigfoot.com> writes:
[...]
> You still don't seem to get it. Being chided about one's behavior isn't
> a big deal, and no one is going to reach through the wires and transform
> an otherwise wonderful person into a raving asshole. You have to do
> that all by yourself.
But to the extent that you're interested in participation from persons
that weren't concieved, raised and educated in this newsgroup, expecting
everyone to think being chided about their behavior isn't a big deal is a
bit of a stretch.
[...]
> This is a heavily trafficked group, and a large percentage of the
> traffic has little or nothing to do with the subject. If people are
> curt with you while pointing out some error or faux pax, the reaction
> is *far* more important over the long haul than the original goof.
So why bother with being curt (*not* to confused with *brief*?) Why not
design your response to minimize the possibility that a.) the person has
no clue what their offense was, and b.) they're less likely to generate a
thread from hell in expressing their grievances?
> A score file is a defensive measure, and having to filter messages based
> on their content is painfully slow. To avoid downloading worthless
> crap, people devise rules that are based on the header info. Personally
> I don't want to eavesdrop on people bickering with each other about
> personal conduct, and I certainly don't want to get involved in trying
> to help somebody out that might drag me into one of these off-topic
> tirades later on, so I look for ways to avoid that. I have a feeling
> that many others do the same thing.
Your perogative, as it should be.
> > In a nutshell, my public whine never would have been there had it not
> > been preceeded by the *plonk* - you made your bed, now you
> > (and everybody else unfortunately) can sleep in it.
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> This is the real problem. While there's nothing wrong with defending
> yourself (briefly) if you feel you've been wronged, you dragged the
> entire group through your own little vendetta over what must be roughly
> 20 such posts.
What does briefly mean? My initial defense *was* brief. Do you mean
arbitrarily ignoring posts at a certain point? Sorry, it takes 2 (or
more) to tango. Any part of this thread that went offline I kept there.
> In light of the original complaint-
>
> "Your posting is completely Perl free",
>
> how can you possibly feel that your best interests were served by your
> actions?
>
> (That's a rhetorical question- btw. I'm not interested in the answer.)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
I didn't think so, but it sure didn't stop you from getting your .02 in.
I guess we must be up to 21 posts now, right?
--
Al Spohn
http://www.bigfoot.com/~spohn
------------------------------
Date: Mon, 19 Mar 2001 18:48:14 GMT
From: Kim C <kimmfc@mydeja.com>
Subject: more efficient way to build array of dirs ?
Message-Id: <uskcbtscc2cgigeedrgovcdiehbpdcbpdu@4ax.com>
Hi
The included code builds an array of all directories in the current
directory. It works, but is there a more efficient/elegant/speedy way
of doing this?
foreach (glob ("*")) { push (@dirs , $_) if (-d) }
Thank you
Kim.
------------------------------
Date: Mon, 19 Mar 2001 17:36:22 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tbcgsmp4h5l2cd@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 12 Mar 2001 15:57:55 GMT and ending at
19 Mar 2001 14:23:31 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" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 118 (33.6% of all posters)
Articles: 219 (17.2% of all articles)
Volume generated: 372.2 kb (15.9% of total volume)
- headers: 178.6 kb (3,569 lines)
- bodies: 182.1 kb (6,369 lines)
- original: 123.7 kb (4,613 lines)
- signatures: 11.4 kb (384 lines)
Original Content Rating: 0.679
Averages
========
Posts per poster: 1.9
median: 1.0 post
mode: 1 post - 75 posters
s: 2.0 posts
Message size: 1740.4 bytes
- header: 834.9 bytes (16.3 lines)
- body: 851.4 bytes (29.1 lines)
- original: 578.5 bytes (21.1 lines)
- signature: 53.1 bytes (1.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
8 18.9 ( 6.4/ 12.4/ 5.9) "Al Spohn" <spohn@bigfoot.com>
8 11.3 ( 7.2/ 3.3/ 2.2) Ciaran McCreesh <ciaran.mccreesh@useaddressbelow.please>
7 13.2 ( 4.4/ 8.8/ 5.4) "David J. Marcus" <djmarcus@ex-pressnet.com>
7 9.9 ( 6.7/ 2.9/ 1.5) Benjamin Sugars <ben.sugars@home.com>
6 15.7 ( 5.6/ 10.1/ 4.8) Al Spohn <spohn@mayo.edu>
6 7.7 ( 3.7/ 3.9/ 2.3) "kellyboy" <kellyboy@nospanner>
6 8.8 ( 3.9/ 4.9/ 4.9) "The NewsBrowser" <nbr@newsbrowser.com>
6 9.2 ( 5.3/ 3.8/ 2.6) "S51" <sdfg@asd.g>
4 6.3 ( 4.7/ 1.6/ 0.6) Dilworth <bactitech@hortonsbay.com>
4 10.5 ( 3.8/ 6.6/ 3.4) Principle <principle@seekasonic.com>
These posters accounted for 4.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
18.9 ( 6.4/ 12.4/ 5.9) 8 "Al Spohn" <spohn@bigfoot.com>
15.7 ( 5.6/ 10.1/ 4.8) 6 Al Spohn <spohn@mayo.edu>
13.2 ( 4.4/ 8.8/ 5.4) 7 "David J. Marcus" <djmarcus@ex-pressnet.com>
13.2 ( 2.3/ 3.3/ 2.4) 3 "David L. Heim" <dlheim@collins.rockwell.com>
11.3 ( 7.2/ 3.3/ 2.2) 8 Ciaran McCreesh <ciaran.mccreesh@useaddressbelow.please>
10.5 ( 3.8/ 6.6/ 3.4) 4 Principle <principle@seekasonic.com>
9.9 ( 6.7/ 2.9/ 1.5) 7 Benjamin Sugars <ben.sugars@home.com>
9.2 ( 5.3/ 3.8/ 2.6) 6 "S51" <sdfg@asd.g>
8.8 ( 3.9/ 4.9/ 4.9) 6 "The NewsBrowser" <nbr@newsbrowser.com>
7.8 ( 2.2/ 5.6/ 4.3) 3 Nuet Lareton <phibeta@newsguy.com>
These posters accounted for 5.0% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 4.9 / 4.9) 6 "The NewsBrowser" <nbr@newsbrowser.com>
0.992 ( 1.9 / 1.9) 3 "lindaz" <lzcom.info@verizon.net>
0.948 ( 2.0 / 2.1) 3 Kevin Lacquement <klacquement@syscor.com>
0.936 ( 3.3 / 3.5) 3 "Radicator" <bankview1@[remove to send email]nucleus.com>
0.768 ( 4.3 / 5.6) 3 Nuet Lareton <phibeta@newsguy.com>
0.730 ( 1.3 / 1.8) 3 Zeljko Vrba <zvrba@inje.iskon.hr>
0.723 ( 2.4 / 3.3) 3 "David L. Heim" <dlheim@collins.rockwell.com>
0.702 ( 0.7 / 1.0) 3 "Paul" <paulthomson@hotmail.com>
0.684 ( 2.6 / 3.8) 6 "S51" <sdfg@asd.g>
0.670 ( 2.2 / 3.3) 8 Ciaran McCreesh <ciaran.mccreesh@useaddressbelow.please>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.550 ( 0.8 / 1.5) 3 Mr. M.J. Lush <mlush@hgmp.mrc.ac.uk>
0.542 ( 2.2 / 4.0) 4 "D. Sagnella" <dsagnell@junglesoft.com>
0.516 ( 3.4 / 6.6) 4 Principle <principle@seekasonic.com>
0.506 ( 1.5 / 2.9) 7 Benjamin Sugars <ben.sugars@home.com>
0.496 ( 1.5 / 3.0) 3 "Jambo" <edinburghguy21@yahoo.com>
0.481 ( 4.8 / 10.1) 6 Al Spohn <spohn@mayo.edu>
0.479 ( 5.9 / 12.4) 8 "Al Spohn" <spohn@bigfoot.com>
0.407 ( 0.6 / 1.6) 4 Dilworth <bactitech@hortonsbay.com>
0.301 ( 1.0 / 3.4) 3 "Kiwitter@qns.de" <kiwitter@qns.de>
0.254 ( 1.0 / 4.0) 3 "Tim Tracy" <ttracy@houston.rr.com>
25 posters (21%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
48 comp.lang.perl.modules
26 alt.perl
11 comp.lang.perl
5 comp.lang.perl.moderated
5 comp.lang.python
5 it.comp.www.cgi
5 comp.lang.tcl
4 comp.os.linux.misc
3 alt.php
3 comp.lang.java
Top 10 Crossposters
===================
Articles Address
-------- -------
6 Nuet Lareton <phibeta@newsguy.com>
6 "Jambo" <edinburghguy21@yahoo.com>
3 "Hamish Lawson" <hamish_lawson@yahoo.co.uk>
2 "Jack Thomas" <thomasj@europa.com>
2 Mark Mitchell <mm@are.ltd.uk>
2 Ilmari Karonen <usenet11394@itz.pp.sci.fi>
2 -@-
2 Claus Schotten <claus.schotten@epost.de>
2 "Lawrence Brodeur" <lbrodeur@NOSPAMwdconsulting.com>
1 Heiner Marxen <Heiner.Marxen@DrB.Insel.DE>
------------------------------
Date: Mon, 19 Mar 2001 18:55:55 +0000 (UTC)
From: bryan.wilburn@us.gambro.com ("Wilburn, Bryan")
Subject: Problems running perl script with call to Win32::AdminMisc
Message-Id: <27805335C7CAD31198E8009027D5EDEE0112897A@Rcexs2>
I installed ActiveState Active Perl and obtained the Roth Consulting
Win32::AdminMisc package. I've followed the directions provided in the
package and copied the AdminMisc.PM & DLL files to the required folders.
However each time I attempt to run the script, I get the message below.
Line 1 of the PerlDriveSpace script is as follows:
use Win32::AdminMisc;
I'm running on a Windows 2000 Professional platform. Any idea what I'm
doing wrong?
When I try to run the script:
D:\PScript\bin>perldrivespace.pl
Can't locate loadable object for module Win32::AdminMisc in @INC (@INC
contains:
D:/Perl/lib D:/Perl/site/lib .) at D:\PScript\bin\PerlDriveSpace.pl line 1
Compilation failed in require at D:\PScript\bin\PerlDriveSpace.pl line 1.
BEGIN failed--compilation aborted at D:\PScript\bin\PerlDriveSpace.pl line
1.
The Version of ActivePerl:
D:\PScript\bin>perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)
Copyright 1987-2000, Larry Wall
Binary build 624 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 13:01:23 Feb 6 2001
Please repsond to Bryan.Wilburn@us.gambro.com in addtion to the news group.
Thanks in advance, Bryan Wilburn
--
Posted from [198.233.64.13]
via Mailgate.ORG Server - http://www.Mailgate.ORG
------------------------------
Date: Mon, 19 Mar 2001 18:50:53 GMT
From: sariq@texas.net (Tom Briles)
Subject: Quality Perl Books Was:Re: Why do "Learning Perl" Books Do This? A Subroutine Question.
Message-Id: <3ab652fb.249330718@news.texas.net>
On 19 Mar 2001 09:21:21 GMT, abigail@foad.org (Abigail) wrote:
>Tad McClellan (tadmc@augustmail.com) wrote on MMDCCLVII September
>MCMXCIII in <URL:news:slrn9bara9.2ju.tadmc@tadmc26.august.net>:
>:) Michael Carman <mjcarman@home.com> wrote:
>:) >Abigail wrote:
>:) >>
>:) >> Michael Carman (mjcarman@home.com) wrote:
>:) >> || The general consensus here for Perl books is don't buy
>:) >> || anything that doesn't say O'Reilly on it.
>:) >>
>:) >> That's not the general consensus at all.
>:) >
>:) >Well, my observations of this newgroup have been that Learning Perl et
>:) >al. published by O'Reilly are well-respected. Every other book I've seen
>:) ^^^^^^^^^^^^^^^^
>:) >mentioned here has been chastised (with good reason).
>:)
>:)
>:) So then you must have missed the articles mentioning:
>:)
>:) "Object Oriented Perl" Damian Conway (Manning)
>:) "Elements of Programming with Perl" Andrew Johnson (Manning)
>:) "Effective Perl Programming" Joseph Hall (Addison-Wesley)
>:) "Perl: The Programmer's Companion" Nigel Chapman (John Wiley and Sons)
>
>Don't forget: "Learn Perl in 24 Hours" by Clinton Pierce (SAMS)
Is there a consensus on:
"Beginning Perl" Simon Cozens w/Peter Wainwright (wrox)
I have some coworkers that need a good beginner's text for
non-programmers. I'll likely go with Andrew Johnson's book.
- Tom
------------------------------
Date: Mon, 19 Mar 2001 09:42:43 -0800
From: Todd Shoenfelt <tshoenfe@cisco.com>
Subject: Re: readdir out of memory
Message-Id: <3AB64513.F609D3AC@cisco.com>
Hi Mike,
I'm not much of an expert on the subject, but your disparate results are
likely due to the difference in filesystems. Linux uses ext2fs and
Solaris uses UFS. UFS is much more efficient for large directories.
Todd
> > perl -e 'opendir (SCF_DIR, "_SCF"); @scf_files=(readdir(SCF_DIR)); print @scf_files;'
> results in:
> Out of memory!
>
> (watching top I see that is takes up about 1GB of RAM before it finally dies)
> BUT only on our Linux (2.2.14) machines.
>
> Our Solaris (2.6) and SGI versions run fine. We compiled the linux version with
> the 64 bit flags (gcc -D_LARGEFILE64_SOURCE=1 -D_FILE_OFFSET_BITS=64) as
> we did with Solaris.
> Thanks,
> Mike
--
Todd Shoenfelt
Cisco Systems, Inc.
EMAN (Enterprise Management)
Web Developer
Bldg. 12, First Floor, Cube A5-13
408-527-8958
------------------------------
Date: Mon, 19 Mar 2001 16:22:32 GMT
From: "Eric" <mail@ericmarques.net>
Subject: reading location header from lwp
Message-Id: <cnqt6.19444$PF4.24639@news.iol.ie>
I done this before but i lost the script :(
I make a POST request with lwp
the server i make the request to will then redirect me to another location
with a Location: header
how do i read the location header from lwp
i tried this one but it doesnt work
print $res->headers->location;
--
Eric Marques
mail@ericmarques.net
------------------------------
Date: Mon, 19 Mar 2001 16:31:30 GMT
From: "Eric" <mail@ericmarques.net>
Subject: Re: reading location header from lwp
Message-Id: <Cvqt6.19447$PF4.24831@news.iol.ie>
doesnt matter i found it
print $res->header('Location');
"Eric" <mail@ericmarques.net> wrote in message
news:cnqt6.19444$PF4.24639@news.iol.ie...
> I done this before but i lost the script :(
>
> I make a POST request with lwp
> the server i make the request to will then redirect me to another location
> with a Location: header
> how do i read the location header from lwp
> i tried this one but it doesnt work
> print $res->headers->location;
>
>
> --
> Eric Marques
> mail@ericmarques.net
>
>
------------------------------
Date: 19 Mar 2001 08:33:29 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: reading location header from lwp
Message-Id: <m1k85liuqu.fsf@halfdome.holdit.com>
>>>>> "Eric" == Eric <mail@ericmarques.net> writes:
Eric> I done this before but i lost the script :(
Eric> I make a POST request with lwp
Eric> the server i make the request to will then redirect me to another location
Eric> with a Location: header
Eric> how do i read the location header from lwp
Eric> i tried this one but it doesnt work
Eric> print $res->headers->location;
If you're using ->request rather than ->simple_request, you'll never
see the Location: header, as LWP transparently performs the operation
for you.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 19 Mar 2001 17:36:16 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tbcgsgnfle7ic5@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 12 Mar 2001 15:57:55 GMT and ending at
19 Mar 2001 14:23:31 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" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 351
Articles: 1272 (543 with cutlined signatures)
Threads: 314
Volume generated: 2346.1 kb
- headers: 1065.8 kb (20,432 lines)
- bodies: 1196.8 kb (39,766 lines)
- original: 771.4 kb (28,093 lines)
- signatures: 82.2 kb (2,029 lines)
Original Content Rating: 0.645
Averages
========
Posts per poster: 3.6
median: 1 post
mode: 1 post - 180 posters
s: 6.8 posts
Posts per thread: 4.1
median: 3.0 posts
mode: 1 post - 82 threads
s: 5.4 posts
Message size: 1888.7 bytes
- header: 858.0 bytes (16.1 lines)
- body: 963.5 bytes (31.3 lines)
- original: 621.0 bytes (22.1 lines)
- signature: 66.2 bytes (1.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
54 78.5 ( 50.4/ 27.7/ 17.0) Bart Lateur <bart.lateur@skynet.be>
50 121.8 ( 52.7/ 62.2/ 36.0) tadmc@augustmail.com
46 99.9 ( 44.3/ 49.5/ 45.0) abigail@foad.org
45 78.1 ( 34.2/ 40.4/ 25.5) nobull@mail.com
45 101.3 ( 43.0/ 45.0/ 22.8) Uri Guttman <uri@sysarch.com>
31 52.8 ( 23.6/ 29.1/ 13.3) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
28 55.4 ( 22.5/ 32.9/ 22.4) Michael Carman <mjcarman@home.com>
27 53.3 ( 17.2/ 32.2/ 13.9) Chris Stith <mischief@velma.motion.net>
24 45.6 ( 22.6/ 22.6/ 14.4) "Godzilla!" <godzilla@stomp.stomp.tokyo>
19 40.1 ( 16.9/ 19.3/ 12.0) mgjv@tradingpost.com.au
These posters accounted for 29.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
121.8 ( 52.7/ 62.2/ 36.0) 50 tadmc@augustmail.com
101.3 ( 43.0/ 45.0/ 22.8) 45 Uri Guttman <uri@sysarch.com>
99.9 ( 44.3/ 49.5/ 45.0) 46 abigail@foad.org
78.5 ( 50.4/ 27.7/ 17.0) 54 Bart Lateur <bart.lateur@skynet.be>
78.1 ( 34.2/ 40.4/ 25.5) 45 nobull@mail.com
55.4 ( 22.5/ 32.9/ 22.4) 28 Michael Carman <mjcarman@home.com>
53.3 ( 17.2/ 32.2/ 13.9) 27 Chris Stith <mischief@velma.motion.net>
52.8 ( 23.6/ 29.1/ 13.3) 31 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
45.6 ( 22.6/ 22.6/ 14.4) 24 "Godzilla!" <godzilla@stomp.stomp.tokyo>
42.1 ( 14.3/ 24.6/ 14.0) 17 Joe Schaefer <joe+usenet@sunstarsys.com>
These posters accounted for 31.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 4.9 / 4.9) 6 "The NewsBrowser" <nbr@newsbrowser.com>
1.000 ( 1.9 / 1.9) 6 "Kalle Anka" <kalle@tvettsvamp.a.se>
0.970 ( 15.3 / 15.8) 17 "Scott R. Godin" <webmaster@webdragon.munge.net>
0.960 ( 17.8 / 18.6) 5 Greg Bacon <gbacon@cs.uah.edu>
0.909 ( 45.0 / 49.5) 46 abigail@foad.org
0.909 ( 5.9 / 6.5) 6 jtjohnston <jtjohnston@courrier.usherb.ca>
0.890 ( 9.1 / 10.3) 9 "Milliwave" <milliwave@rfengineering.freeserve.co.uk>
0.824 ( 7.3 / 8.8) 13 BUCK NAKED1 <dennis100@webtv.net>
0.809 ( 4.8 / 5.9) 7 Lou Moran <lmoran@wtsg.com>
0.786 ( 4.2 / 5.3) 7 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.458 ( 2.1 / 4.7) 6 Paul Boardman <peb@bms.umist.ac.uk>
0.456 ( 13.3 / 29.1) 31 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.449 ( 3.7 / 8.2) 9 Chris Fedde <cfedde@fedde.littleton.co.us>
0.433 ( 13.9 / 32.2) 27 Chris Stith <mischief@velma.motion.net>
0.427 ( 5.0 / 11.7) 18 Randal L. Schwartz <merlyn@stonehenge.com>
0.390 ( 1.9 / 4.9) 7 "John W. Krahn" <krahnj@acm.org>
0.378 ( 2.0 / 5.2) 6 "Richard" <rworth5@home.com>
0.355 ( 2.0 / 5.6) 9 "Peter Sundstrom" <peter.sundstrom-eds@eds.com>
0.342 ( 1.1 / 3.1) 5 "Todd Smith" <todd@designsouth.net>
0.303 ( 2.0 / 6.7) 7 Shane McDaniel <shanem@ll.mit.edu>
68 posters (19%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
56 HTTP Client Question
38 Why do "Learning Perl" Books Do This? A Subroutine Question.
29 -w and use strict;
24 "uninitiatlized value" errors?
22 FAQ 7.12: What's a closure?
22 Print own "die" message
20 Is there a shorter way for this?
19 binary files
18 Subroutine in separate files
15 converting text to hex?
These threads accounted for 20.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
122.3 ( 52.3/ 67.0/ 38.7) 56 HTTP Client Question
81.3 ( 36.4/ 40.8/ 24.7) 38 Why do "Learning Perl" Books Do This? A Subroutine Question.
65.0 ( 21.9/ 41.7/ 20.0) 24 "uninitiatlized value" errors?
57.3 ( 28.6/ 25.7/ 15.5) 29 -w and use strict;
54.2 ( 22.1/ 29.5/ 22.6) 22 FAQ 7.12: What's a closure?
41.0 ( 19.8/ 19.9/ 11.6) 22 Print own "die" message
37.5 ( 15.1/ 20.9/ 13.5) 18 Subroutine in separate files
32.8 ( 15.8/ 15.9/ 9.5) 20 Is there a shorter way for this?
32.8 ( 16.4/ 14.5/ 9.2) 19 binary files
30.8 ( 11.6/ 18.3/ 10.5) 13 Formatting HTML using Perl
These threads accounted for 23.7% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.867 ( 2.0/ 2.3) 5 Perl And CGI
0.861 ( 5.8/ 6.7) 6 Using the 'use' directive, and page reloading in a perl script
0.856 ( 2.6/ 3.1) 5 recursive subroutine call
0.815 ( 3.5/ 4.3) 5 Memory and Perl
0.768 ( 22.6/ 29.5) 22 FAQ 7.12: What's a closure?
0.764 ( 3.9/ 5.1) 6 Help to Install Perl
0.762 ( 2.5/ 3.3) 9 reg exp question
0.762 ( 6.3/ 8.3) 7 2-dimensional arrays
0.754 ( 4.6/ 6.1) 5 many "used only once, possible typo" warnings in CGI.pm using import_names("UT");
0.745 ( 6.3/ 8.4) 5 Distributive -> and indirect slices
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.479 ( 20.0 / 41.7) 24 "uninitiatlized value" errors?
0.477 ( 1.7 / 3.5) 5 about cgi
0.475 ( 6.9 / 14.5) 8 CGI module on file upload
0.459 ( 1.6 / 3.4) 5 Typeglob assignment confusion
0.456 ( 2.0 / 4.4) 5 Why glob doesn't take a list?
0.446 ( 2.6 / 5.9) 8 $ENV{'HTTP_REFERER'}
0.439 ( 2.7 / 6.2) 7 new user
0.415 ( 3.5 / 8.4) 8 Does Perl have an un-getc
0.396 ( 2.3 / 5.9) 7 Can't combine > and $
0.388 ( 3.7 / 9.5) 9 LWP problem
78 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
48 comp.lang.perl.modules
26 alt.perl
11 comp.lang.perl
5 comp.lang.perl.moderated
5 comp.lang.python
5 it.comp.www.cgi
5 comp.lang.tcl
4 comp.os.linux.misc
3 alt.php
3 comp.lang.java
Top 10 Crossposters
===================
Articles Address
-------- -------
6 "Jambo" <edinburghguy21@yahoo.com>
6 Nuet Lareton <phibeta@newsguy.com>
6 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
6 brichards@cda.com
6 ydzhang@iastate.edu
4 msouth@fulcrum.org
4 "Michael D. Kirkpatrick" <wizard@psychodad.com>
4 Randal L. Schwartz <merlyn@stonehenge.com>
3 Chris Fedde <cfedde@fedde.littleton.co.us>
3 mgjv@tradingpost.com.au
------------------------------
Date: Mon, 19 Mar 2001 15:58:46 GMT
From: jtbell@presby.edu (Jon Bell)
Subject: Re: Sub question
Message-Id: <GAGCDy.1p6@presby.edu>
In article <x7u24q4c50.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "MM" == Michael McPherson <hafateltec@hotmail.com> writes:
>
> MM> sub common_query {
> MM> my $id = $_[0];
>
>first, use of $_[0] is not typical unless you need the speedup. it is
>much more common and clearer to use:
>
> my $id = shift ;
>or
> my( $id ) = @_ ;
The OP should note in particular that the second form generalizes easily
if you have more than one argument:
my ($id, $name, $address) = @_;
This has the added benefit of collecting all your arguments together in
one place where you can see them easily when you're looking at the
subroutine later and trying to remember what arguments it takes.
--
Jon Bell <jtbell@presby.edu> Presbyterian College
Dept. of Physics and Computer Science Clinton, South Carolina USA
------------------------------
Date: Mon, 19 Mar 2001 16:16:38 -0000
From: "Graeme Miller" <graeme.m@which.net>
Subject: Re: use Net::SMTP
Message-Id: <995bb2$1ee$1@yarrow.open.ac.uk>
Your line
> $smtp->to('$email');
doesn't look right. I think you meant to use double quotes so that $email
would interpolate.
Here's one I did earlier....... Note that some mailservers insist you give
the date.
use Net::SMTP;
sub SendMyMail {
my $from = shift(@_);
my $to = shift(@_);
my $subject = shift(@_);
my $message = shift(@_);
# Create date in SMTP friendly format
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);
my $year +=1900;
my $aday = (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $wday ];
my $amon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov
Dec))[ $mon ];
my $smtpdate = "$aday, $mday $amon $year $hour:$min:$sec GMT";
$smtp = Net::SMTP->new('smtpmailserver');
$smtp->mail("$from\n");
$smtp->to("$to\n");
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Date: $smtpdate\n");
$smtp->datasend("Subject: $subject\n\n");
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit;
}
------------------------------
Date: Mon, 19 Mar 2001 11:57:43 -0600
From: Edward Coates <edward.coates@sabre.com>
Subject: Re: write privilege for script.
Message-Id: <3AB64897.B9E60E35@sabre.com>
This is a multi-part message in MIME format.
--------------81E5D5AB7C0223DD52A0C74F
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
It seems to me that you might just make the files writeable by the
groupid of the web process, and then password protect your admin page to
let only trusted users access to write the scripts.
Ed
AmSkape wrote:
>
> What would I do in the webpage/script to make the make the server recognize
> that the script has the privileges to write to a directory which cannot
> otherwise be written to by ordinary web users. In other words, I am looking
> for advice on a user authentication solution that will acquire write
> privileges for my perl script. Your question suggests to me that it can
> perhaps be accomplished outside the script. Am I right? I am a newbie. Please
> bear with the ignorance.
>
> Tad McClellan wrote:
>
> > AmSkape <amskape@ev1.net> wrote:
> > >I have a perl script that is accessed from a web interface. It was
> > >written to allow a site administrator to make changes on certain web
> > >pages. But the web pages are in a directory that does not allow regular
> > >web users write priveleges. How can allow the script write priveleges to
> > >the directory without leaving the directory writable for everyone? By
> > >the way, I'm using a IIS4.0 server.
> >
> > What is your Perl question?
> >
> > --
> > Tad McClellan SGML consulting
> > tadmc@augustmail.com Perl programming
> > Fort Worth, Texas
--------------81E5D5AB7C0223DD52A0C74F
Content-Type: text/x-vcard; charset=us-ascii;
name="edward.coates.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Edward Coates
Content-Disposition: attachment;
filename="edward.coates.vcf"
begin:vcard
n:Coates;Edward
tel;work:(817) 931-1939
x-mozilla-html:TRUE
org:Sabre;Unix Engineering
adr:;;;;;;
version:2.1
email;internet:Edward.Coates@sabre.com
fn:Edward Coates
end:vcard
--------------81E5D5AB7C0223DD52A0C74F--
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 528
**************************************
