[9378] in Perl-Users-Digest
Perl-Users Digest, Issue: 2973 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 25 00:08:13 1998
Date: Wed, 24 Jun 98 21:00:25 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 24 Jun 1998 Volume: 8 Number: 2973
Today's topics:
Automatically rebuilding modules when recompiling perl? (Gabriel Moreno)
Re: Automatically rebuilding modules when recompiling p <merlyn@stonehenge.com>
Re: bizarre quote/backslash requirements (Ronald J Kimball)
Re: Can someone help me find a script? (-)
Re: Colored report entries in Perl? (AgentNo007)
Re: Curses module - need help <wsetzer@babylon5.unity.ncsu.edu>
Re: Deliver EXE File Via CGI <rootbeer@teleport.com>
Re: first language - last language (Ronald J Kimball)
Re: Flames.... (T. Ames)
Re: Flames.... (John Moreno)
Re: Flames.... (Ronald J Kimball)
Re: graphs for perl.. (Ronald J Kimball)
Re: Perl and Earth 2025 (David Adler)
s/\s//g - causing strange result <ckilburn@nbnet.nb.ca>
Re: Sending files via mail in perl (-)
Re: Sending mail in Perl (nobody)
Re: Testing perl knowledge <jdf@pobox.com>
Re: trying to run a unix prog with perl (Ronald J Kimball)
Usefulness of off-topic threads - split feelings birgitt@my-dejanews.com
Re: What a Crappy World (Patrick Timmins)
Re: What module to download a gif? (-)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Jun 1998 18:47:05 GMT
From: morenog@nt.com (Gabriel Moreno)
Subject: Automatically rebuilding modules when recompiling perl?
Message-Id: <6mrhj9$13i@nrchh52.rich.nt.com>
I want to know if there is a way to have modules which aren't part
of the standard Perl distribution automatically recompiled and
installed when perl itself is recompiled and installed.
Thanks.
---
Gabriel Moreno morenog@nt.com
------------------------------
Date: Thu, 25 Jun 1998 03:02:59 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Automatically rebuilding modules when recompiling perl?
Message-Id: <8c1zsexjxk.fsf@gadget.cscaper.com>
>>>>> "Gabriel" == Gabriel Moreno <morenog@nt.com> writes:
Gabriel> I want to know if there is a way to have modules which aren't part
Gabriel> of the standard Perl distribution automatically recompiled and
Gabriel> installed when perl itself is recompiled and installed.
You mean, besides the one in CPAN::Shell called "recompile"?
("perldoc CPAN" for details.)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 68 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Wed, 24 Jun 1998 23:40:57 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: bizarre quote/backslash requirements
Message-Id: <1db5dx0.12cj8xiy92x3cN@bay2-19.quincy.ziplink.net>
<persicom@my-dejanews.com> wrote:
> my $commonPart = "\@mptime output, \@mpdate output, @{[$self->opId()]\n";
>
> The problem is that the self-opId part doesn't get past the parser.
You're missing a closing curly brace. Is that the problem?
Other than that, I don't see why equivalent code does what you want in
one string assignment, but not in another. Perhaps you should post your
actual code?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 25 Jun 1998 03:07:05 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: Can someone help me find a script?
Message-Id: <3591bde0.27251735@news2.cais.com>
kjernigan@geocities.com Said this:
>Hello,
>
> I am working at http://www.totalconversions.com, and I am the CGI person
>there, and I have been unable to get a perl banner script working. It uses SSI
>to call it, and I can never get it to process the directive. Would anyone know
>of a Perl banner script that does NOT use SSI to call it? If so, could you
>please send me the link or the script. Thanks in Advance. I would prefer it if
>you would e-mail, but I will try and check this newsgroup out often in search
>for an answer. Also, would someone know of a Perl, counter that does NOT use
>SSI to call it? Oh, I would like it if it did NOT use another out side program
>for compiling the images. Thanks again!!
>
Hopefully totalconversions.com isn't PAYING you to write their CGI's,
since you are obviously only taking other people's scripts. I hope
you are at least respecting the authors' licensing, which often only
lets you use it for free for NON-commercial purposes. I'm pretty sure
a site called totalconversions.com isn't a personal page, but a
commercial page.
Take some time to actually learn perl, since you are the "cgi person",
that way you wouldn't need to search for the script, you could just
whip one up. Really, perl is quick and powerful. I wrote a complete
"shopping cart" and back end order processing (including charge card
processing, EDI/Fullfillment processing and order status notification)
set of programs in a weekend. And I'm not even half as good at perl
as some of the people on this list - it's really easy, LEARN IT!!!
------------------------------
Date: 25 Jun 1998 03:22:32 GMT
From: agentno007@aol.com (AgentNo007)
Subject: Re: Colored report entries in Perl?
Message-Id: <1998062503223200.XAA17844@ladder03.news.aol.com>
Thanks!!!!That is the answer I a looking for. I'll definitely give it a try.
-Jonathan Gines
------------------------------
Date: 24 Jun 1998 22:33:09 -0400
From: William P Setzer <wsetzer@babylon5.unity.ncsu.edu>
Subject: Re: Curses module - need help
Message-Id: <lzyn2b2fbx6.fsf@babylon5.unity.ncsu.edu>
Russ Allbery <rra@stanford.edu> writes:
: bgeer <bgeer@xmission.xmission.com> writes:
:
: > Perl getch() indeed returns numeric -1 when no input is available or the
: > next char when input is available.
:
: I think that's arguably a bug in the Curses module, as at least I'd find
: it a lot more intuitive if -1 in that context were converted to undef.
Ok, I'll argue. It seems to be vogue in this newsgroup now. :)
To be precise, getch() returns ERR under those conditions, which in
this particular case (SysV-ish curses, most likely) is -1. This
is very intuitive, as of the 120+ functions Curses defines, some
100+ of them return ERR when not successful. (Usually. :)
As I see it, there are three obvious proposals on changing the return
value context for perl.
*) Instead of returning the C values, do something like:
RETVAL == ERR ? sv_setsv(ST(0), &sv_undef)
: sv_setiv(ST(0), (IV)1);
The problem here is that it'd have to be special cased for getch()
and friends, and we'd have to figure out who the "friends" are.
For SysV and possibly other curses, most functions document to
return only "a value other than ERR" for success, so we're
potentially throwing away info.
*) Ok, instead of throwing away the return value, give it back:
RETVAL == ERR ? sv_setsv(ST(0), &sv_undef)
: sv_setiv(ST(0), (IV)RETVAL);
The big problem here is that in some curses, OK == 0, so
here we'd be returning `undef' or `0'. (Eek!)
*) Change just getch() and a few of the other obvious functions.
I have a social problem with this in that the new documents will
have to say, "return the values just like their C counterparts
except for these few cases", which to me is more confusing than
not. And given the subtle (and not subtle) differences between
various curses libraries, this could snowball rather quickly.
So there you go. Perhaps they're not the best arguments for the
current behavior, but they make me happy. :)
William
PS: To the original poster: getch() will (usually) return either
ERR, a string of the character you pressed, or an integer that is
the KEY_* value of the key you pressed. The best way to get around
warnings is probably to use `eq'/`ne' instead of `=='/`!=' even
though:
if ($key_value ne ERR) { last }
is kinda cheesy.
------------------------------
Date: Thu, 25 Jun 1998 03:47:07 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Deliver EXE File Via CGI
Message-Id: <Pine.GSO.3.96.980624202901.10802J-100000@user2.teleport.com>
On Thu, 25 Jun 1998 debel@bigfoot.com wrote:
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);
> foreach $pair(@pairs) {
You should really use some good code (such as that found in a well-written
module) to do this. It would not only be easier to use and more robust...
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $value =~ s/~!/ ~!/g;
> $FORM{$name} = $value;
> }
...but it could do it correctly, at no extra charge. :-) (That code may
seem to work fine with your current browser and server, but it's not
following the CGI protocal specification, so it won't necessarily work
properly with all servers and browsers.)
> foreach $key (keys(%FORM)) { # do nothing, just read }
If you didn't want that data, why did you load it in the first place? No
offense intended, but this smells like voodoo programming, in which you
use some code merely because it worked in another program, not because you
actually know what it does.
> open(IN,"$theMainDataPath");
Those double quotes aren't doing anything. And even when your script is
"just an example" (and perhaps especially in that case!) you should
_always_ check the return value after opening a file.
> Can anyone point me to a place where I can learn how to deliver an EXE
> file via CGI.
The docs, FAQs, and newsgroups about CGI and related issues (such as mime
types) should be helpful here. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 Jun 1998 23:41:03 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: first language - last language
Message-Id: <1db5e4r.si9d7417p13pwN@bay2-19.quincy.ziplink.net>
<birgitt@my-dejanews.com> wrote:
> What is the *last* language all you experts would ever want to
> deal with ? Don't say there isn't one.
Is this a trick question?
Perl, of course. After I started using Perl, I never wanted to deal
with any other language again. Therefore, Perl should be the last
language I ever deal with.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 25 Jun 1998 02:17:16 GMT
From: ames0009@tc.umn.edu (T. Ames)
Subject: Re: Flames....
Message-Id: <3591adf1.1088995@news.tc.umn.edu>
On Wed, 24 Jun 1998 18:54:58 -0500, tadmc@flash.net (Tad McClellan)
wrote:
>T. Ames (ames0009@tc.umn.edu) wrote:
>: On Wed, 24 Jun 1998 18:42:51 GMT, phenix@interpath.com (John Moreno)
>: wrote:
>
>: >That's probably because this isn't a help desk or even a simulation of
>: >it.
>: >
>: This is the biggest myth of all.
>
>
> You are exactly RIGHT!
>
> c.l.p.m *IS* a help desk.
>
>
>
I like your creative editing (leaving out the reasons I gave for this
being a myth).
> So now...
>
> Your subscription to Premium Perl Support Level CLPM has expired.
>
> Please remit $100 (US) ($200 for Platinum) to the Perl Institute.
>
> Then come back and bitch that what you get for free is not good enough
> for you.
>
You seem to imply that there are only two groups of people that use
this group: experts who only answer questions and newbies who only
ask them. (And also that the "experts" are all affiliated with the
Perl institute). While both of those groups do exist, I posit that
they make up the minority. Many people here (including you, I assume)
both answer AND ASK questions. So let's get over the idea that you
personally are out there providing a free service for everyone else,
and that everyone else should shut up and be grateful for it. The
whole idea is MUTUAL aid.
And if you are so expert that you never need any questions answered,
then why don't you do what A FEW people in your position have decided
to do: come here and insult people for asking simple questions -- and
then bitch about how much of your time it takes up to do this.
>
>
>: time to flame people, rather than just ignoring posts they think are
>: beneath them.
>
>
> You are in luck!
>
> Just hold on for a few short weeks and you will see **all kinds**
> of ignored (or wrongly answered) posts on c.l.p.misc...
>
> Then you will have your wish.
>
Good. Does it really need repeating? No one is forcing anyone to
answer questions: it is completely voluntary, I assure you. I'd
rather see ignored questions than flames, and flames OF flames, and so
on and so on.....
------------------------------
Date: Thu, 25 Jun 1998 02:39:17 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Flames....
Message-Id: <1db5fkm.xgp8nn1x510ymN@roxboro0-044.dyn.interpath.net>
Eric Bohlman <ebohlman@netcom.com> wrote:
> John Moreno <phenix@interpath.com> wrote:
> : I come here looking for interesting problems to solve, but I don't count
> : as "expert" except to people who don't know anything, so I guess I don't
> : count. And of course I'd really like to know what questions Tom C is
> : Randal Schwartz, Abigail, and Tom Phoenix are interested in having
> : answered.
>
> Ones about Perl's future, from what I've seen.
Not the same category of questions (unless you've got a time machine and
can give a definitive answer).
> : Yes, it's the way I want (how else - NOT they way I want?), but what I
> : want isn't that difficult, simply evidence that the person has attempted
> : to answer the question on his own and NOT just by trial and error.
> : Looked in the manual, looked in the FAQ.
>
> And that level of evidence allows you to reasonably assume that the
> person will actually understand your answer rather than just going "huh?"
Not at all - it just makes it almost certain that they will get polite
and informative answers (possibly including source code), and that
followup questions in the same thread will be answered likewise.
--
John Moreno
------------------------------
Date: Wed, 24 Jun 1998 23:41:04 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Flames....
Message-Id: <1db5emh.lc18opaxirgjN@bay2-19.quincy.ziplink.net>
nobody <ac1@fspc.netsys.itg.telecom.com.au> wrote:
> Are these roman dates correct? I read the following as:
> 1754 September 1993.
>
> The 1754 may be a time of day (rather than the day of month I
> expected), but the year is wrong, I beleive (should be
> MCMXCVIII ?).
I think it's time to add this question to the FAQ.
> Abigail (abigail@fnx.com) wrote:
> : T. Ames (ames0009@tc.umn.edu) wrote on MDCCLIV September MCMXCIII in
> : <URL: news:358c35a7.837222@news.tc.umn.edu>:
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 24 Jun 1998 23:41:05 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: graphs for perl..
Message-Id: <1db5esy.1jqmnpb4k2e8sN@bay2-19.quincy.ziplink.net>
Chris Dorr <chris@townnews.com> wrote:
> I'm new to Perl and wanted to know if there is a way to make graphs in
> perl and then display them on webpages.
http://www.tpj.com/tpj/rules/
Yup, looks like it's possible.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 25 Jun 1998 03:47:26 GMT
From: dha@panix.com (David Adler)
Subject: Re: Perl and Earth 2025
Message-Id: <6msh8e$2l0@news1.panix.com>
On 21 Jun 1998 18:26:35 GMT, Josh Kortbein <kortbein@iastate.edu> wrote:
>Poucarda (poucarda@concepts.nl) wrote:
>: Hello all.
>
>: I want to write a game like the webgame Earth 2025
>: (http://www.solarianet.com/earth/) in Perl.
>: However im not sure it's possible in Perl...
>: could one of you guys take a look at this game
>: and tell me if it is possible?
>
>It looks like it, but only if you use Java.
>And sockets. Yeah, sockets.
You forgot threads...
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
The perversity of the Universe tends towards a maximum.
------------------------------
Date: Wed, 24 Jun 1998 23:40:22 -0300
From: Colin Kilburn <ckilburn@nbnet.nb.ca>
Subject: s/\s//g - causing strange result
Message-Id: <3591B896.30D55904@nbnet.nb.ca>
I tried to reproduce this problem in aa small example
but it worked fine, of course.
So I printed out a little of the dubug to show the
values being clobbered.
My comments are marked with <<<<<<<<.
Why this happens is a mystry to me.
if (/^\*C\*\*\s+(\S.{7})(\S.{7})\s+(\S)?\s*(\S)?/)
{
$library_dest = $1;
$module_name = $2;
$module_type = $3;
#$module_mode = $4;
$library_dest =~ s/\s//g; # This kills $module_name and
$1, $2, $3 ....
$module_name =~ s/\s//g;
here is a dubugging snipit:
Customer::Decode::SYSTRANS(/scratch/hck-dev-setup/lib/Customer/Decode.pm:305):
305: $module_type = $3;
DB<17> p $1
GROUP1 <<<<<<< OK
DB<18> p $2
NDBTG001 <<<<<< OK
DB<19> n
Customer::Decode::SYSTRANS(/scratch/hck-dev-setup/lib/Customer/Decode.pm:308):
308: $library_dest =~ s/\s//g; <<<<<< do this
DB<19> n
Customer::Decode::SYSTRANS(/scratch/hck-dev-setup/lib/Customer/Decode.pm:309):
309: $module_name =~ s/\s//g;
DB<19> p $1 <<<<<< killed it
DB<20> p $2 <<<<<< see what I mean, dead.
DB<21> p $library_dest <<<<<< but this is still ok ?????
GROUP1
What is going on here?
Colin :
- Tired and frusterated - but still having fun
------------------------------
Date: Thu, 25 Jun 1998 02:51:23 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: Sending files via mail in perl
Message-Id: <3591b9f8.26252046@news2.cais.com>
John Porter <jdporter@min.net> Said this:
>John Stanley wrote:
>>
>> It is simply too much useless work to be forced to upgrade every machine
>> on a net to the latest version of sendmail every time a new security
>> hole is found in it. Run it as a daemon on one system and upgrade that when
>> needed. Let the others be daemon-less and you don't have to worry about
>> missing one system -- and learning too late that the spammers didn't
>> miss it.
>
>Maybe I'm just hopelessly behind the times, but -- people who exploit
>security holes in sendmail are called hackers (or rather, crackers),
>not spammers. Right?
>
Well, you are using the media-contrived definition of hacker. The
true definition of hacker (keeping with the current discussion, so
let's not worry about "a furniture maker or person who uses an axe",
we're talking about computers here) is a person who "hacks" at
programs and software - meaning he may not necessarily be a
"classically trained" programmer who sits down and charts out the
flow, goes through a "design process" and then creates the program,
rather he sits down and bangs on the keyboard, trying out the program
as he goes until it works as he expected. (I do that).
But to answer your question properly, what would a "hacker" need to
know about getting his mail through your mail server? Probably not
much, but a spammer would need to find a mail server that is not
properly protected (like, oh, I don't know, an Exchange or other MS
mail server???) so he can dump a couple hundred thousand messages
through it.
------------------------------
Date: 25 Jun 1998 03:11:17 GMT
From: ac1@fspc.netsys.itg.telecom.com.au (nobody)
Subject: Re: Sending mail in Perl
Message-Id: <6msf4l$p15@newsserver.trl.OZ.AU>
xholf03 (xholf03@vse.cz) wrote:
: Hello,
: week ago i've started to learn perl ... (so i don't know anything)
: I've got problem with sending mail. Please, could you tell me what's wrong
: with this?
: #!/usr/bin/perl -w
: $from = 'xholf03@sorry.vse.cz';
: $to = 'xholf03@vse.cz';
: open (Mail, "/usr/bin/sendmail");
: print Mail "To: $to\n";
: print Mail "From: $from\n";
: print Mail "Subject: send\n";
: print Mail ".\n";
: close (Mail);
: Thanks much.
: filip
I think you need to open "|/usr/bin/sendmail" rather than "/usr/bin/sendmail"
since you want to pipe data in to it rather than overwrite it.
Assuming that you haven't already overwritten the executable, that should
work. Adding an '|| die' clause to the open would be a good idea.
AC.
------------------------------
Date: 24 Jun 1998 23:58:36 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: tchrist@mox.perl.com (Tom Christiansen)
Subject: Re: Testing perl knowledge
Message-Id: <pvfyrsar.fsf@mailhost.panix.com>
Tom - may I repost that quiz on a mailing list, with full attribution
and no editing?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Wed, 24 Jun 1998 23:41:06 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: trying to run a unix prog with perl
Message-Id: <1db5gu8.1pit2mx6u9mixN@bay2-19.quincy.ziplink.net>
[posted and mailed]
Brand and Karina Hilton <bkhilton@netcom.com> wrote:
> Are you sure you mean the Expect module? I remember when that
> module was announced, but have yet to see it on CPAN. Is it
> available elsewhere?
Didn't see it in by-modules, but I found it by using the CPAN search
engine <http://theory.uwinnipeg.ca/search/cpan-search.html> and
searching for 'expect'.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 25 Jun 1998 02:14:42 GMT
From: birgitt@my-dejanews.com
Subject: Usefulness of off-topic threads - split feelings
Message-Id: <6msbqi$btq$1@nnrp1.dejanews.com>
I realize I can't make up my mind about something here in c.l.p.m.
I (newcomer/non programmer) lurk and read since four months.
>From depressed, bewildered, confused, upset, angry to curious,
amazed, amused, thankful, touched I am happy to say:
I got a lot out of your most flamy exchanges.
I learned so many things through threads like:
Is there a "Newsgroup" for newbies
New IDE for Perl
Does Perl have a IDE
Clearly define "free software"
GPL documentation == unspeakable evil
Are GPL terms binding
Have we got a good free manual
First language
Flames (hmm, even that one)
which I wouldn't want to miss and which I am very grateful
for. They all helped me make up my mind about things I wanted
to get more clarity about.
I certainly also don't want to continue to read about those, but
getting through them made me ready to go on and leave them behind.
Others might need a similar 'journey'.
These topics are *hellish off-topic and distracting* from the real
thing c.l.p.m should be for. What do you make out of that ?
Do you want to get rid of all those subjects ? Would
any such thread be imaginable in c.l.p.moderated ?
Birgitt Funk
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 25 Jun 1998 03:44:33 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: What a Crappy World
Message-Id: <6msh31$ip1$1@nnrp1.dejanews.com>
In article <ltvhpqbjmw.fsf@asfast.com>,
Lloyd Zusman <ljz@asfast.com> wrote:
>
> Consider this diagram:
>
> Encouraging people Providing lots of
> to go to the docs; free help to all
> encouraging self- who ask questions
> sufficiency
> +=================================================+
> Treating | |
> people with | [ A ] [ Me ] [ E ] |
> politeness | |
> and respect | |
> | |
> | |
> Insulting | |
> and berating | [ B ] [ C ] [ D ] |
> people | |
> +=================================================+
>
> Many people believe it's best to stay on the left-hand side of this
> diagram. To these people: I encourage you to try to stay in the
> upper-left-hand corner, and to not stray down towards the
> lower-left-hand corner.
>
> I like to try to stay, as much as possible, in the location depicted
> by "Me" in the above diagram. Certain other people are further to the
> left ("A" in the diagram ... this appears to me to be more or less
> where Tom Phoenix falls, for example).
>
> I am trying to address those people at positions "B", "C", and "D" and
> to encourage them to move their vertical positions higher in this
> diagram, while not changing their horizontal positions at all.
>
Let it be duly noted for the record that I am, in fact, an "S".
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 25 Jun 1998 03:01:13 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: What module to download a gif?
Message-Id: <3591bcb6.26953832@news2.cais.com>
zirconx@my-dejanews.com Said this:
>Hello. I have a need to download (but via http) a few
>gif files every couple of minutes. I've looked over the CPAN
>site, and I am unsure what to use. libwww wants a lot of other
>modules to be installed, and I looked at them, it doesn't look
>like they will retreive a gif. libnet does not support http transfers.
>Can someone point me in the right direction? I just need a simple
>module to retreive some gif files every couple of minutes. TIA
>for any help.
>
Are you watching some chick's webcam, while she takes her shirt
off???? :)
If you are NOT using a microsoft OS, you can just use lynx, like this
in perl:
$data = `lynx -source http://www.someurl.com/some/url.gif`;
open (OUT, ">nastychickpic.gif");
print OUT $data;
close OUT;
or use selena sol's Http-lib.pl library, and then you just require
http-lib.pl, and do this:
$data = &HTTPGet("/dir/path/file.gif", "www.someserver.com", 80);
open (OUT, ">nastychickpic.gif");
print OUT $data;
close OUT;
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2973
**************************************
