[17692] in Perl-Users-Digest
Perl-Users Digest, Issue: 5112 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 14 14:10:36 2000
Date: Thu, 14 Dec 2000 11:10:18 -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: <976821018-v9-i5112@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 14 Dec 2000 Volume: 9 Number: 5112
Today's topics:
How do I get the last day of a month?? <clarencehj@yahoo.com>
Re: How do I get the last day of a month?? <jeffp@crusoe.net>
Re: How do I get the last day of a month?? <mgjd@unb.ca>
Re: How do I get the last day of a month?? <b_nospam_ill.kemp@wire2.com>
Re: How do I get the last day of a month?? <jeffp@crusoe.net>
How to identify Windows platform from within a Perl pro <sg@loralskynet.com>
Re: How to make LWP::UserAgent "frame enabled" (Peter Scott)
IMAP modules. hroces@my-deja.com
looking for a script <srmiller@interbel.net>
Re: looking for a script <sanderman@dexrix.NS.com>
Memory in perlXS <eric.kort@vai.org>
Re: Multiply the actual number of letters entered in a (Abigail)
Re: Multiply the actual number of letters entered in a <pubic.hairsphil.latio@f-in-stupid.co.uk>
Re: Multiply the actual number of letters entered in a nobull@mail.com
Re: My first JAPH.... (Randal L. Schwartz)
Re: My first JAPH.... <jeff_robertson@yahoo.com>
Outputting Multiple Images johndankey@my-deja.com
Re: Outputting Multiple Images <tony_curtis32@yahoo.com>
Re: Outputting Multiple Images <steve@see-signature.com>
Parsing files backwards eggrock@my-deja.com
Re: perlcrt <randy@theoryx5.uwinnipeg.ca>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <bart.lateur@skynet.be>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Tom Christiansen)
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <bart.lateur@skynet.be>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (John Stanley)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 14 Dec 2000 16:12:05 GMT
From: Coolc <clarencehj@yahoo.com>
Subject: How do I get the last day of a month??
Message-Id: <91argd$ums$1@nnrp1.deja.com>
I have a simple question...
How do you get perl to return the last VALID numerical day of a
particular month?
I can obtain the numerical day by entering :
$thisday =(localtime)[3];
print $thisday;
Hmmnnn
CoolC
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 14 Dec 2000 11:40:01 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: How do I get the last day of a month??
Message-Id: <Pine.GSO.4.21.0012141136330.4213-100000@crusoe.crusoe.net>
[posted & mailed]
On Dec 14, Coolc said:
(NOTE: comp.lang.perl dissolved 5 years ago, and is not officially
supported.)
>How do you get perl to return the last VALID numerical day of a
>particular month?
>
>I can obtain the numerical day by entering :
>
>$thisday =(localtime)[3];
You can also get the month and the year, and do a calculation. Or, use
the Time::Local module:
use Time::Local;
($mon,$year) = (localtime)[4,5];
if (++$mon == 12) { $mon = 0; $year++; }
$next_month = timelocal(0,0,0, 1, $mon, 1900+$year);
$last_day_this_month = (localtime($next_month-1))[3];
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: Thu, 14 Dec 2000 13:40:22 -0400
From: Michael Jewett <mgjd@unb.ca>
Subject: Re: How do I get the last day of a month??
Message-Id: <3A390606.94C6D13@unb.ca>
This is how I did it once:
## Find end of the month
my ($sec, $min, $hour, $day, $mon, $year, $wkday) = localtime(time);
if ($mon >= 11) {
#This is a fix for December
$mon = -1;
$year = $year+1;
}
my $end = timelocal(0,0,5,1,$mon+1,$year); # get the first day of the
next month
#subtract the number of seconds in a day to go back a day getting the
last day of the month
$end -= 86400;
($sec, $min, $hour, $lastdayofmonth, $mon, $year, $wkday) =
localtime($end);
Hope this helps.
Michael
Coolc wrote:
>
> I have a simple question...
> How do you get perl to return the last VALID numerical day of a
> particular month?
>
> I can obtain the numerical day by entering :
>
> $thisday =(localtime)[3];
> print $thisday;
>
> Hmmnnn
>
> CoolC
>
> Sent via Deja.com
> http://www.deja.com/
------------------------------
Date: Thu, 14 Dec 2000 18:20:58 -0000
From: "W K" <b_nospam_ill.kemp@wire2.com>
Subject: Re: How do I get the last day of a month??
Message-Id: <976818087.17590.0.nnrp-02.c3ad6974@news.demon.co.uk>
Coolc wrote in message <91argd$ums$1@nnrp1.deja.com>...
>I have a simple question...
>How do you get perl to return the last VALID numerical day of a
>particular month?
>
>
>I can obtain the numerical day by entering :
>
>
>$thisday =(localtime)[3];
>print $thisday;
a suggestion, not very serious:
$a=time;$b=(localtime $a)[4];until($b!=(localtime ($a+=86400))[4]){}
print ((localtime $a-86400)[3]);
------------------------------
Date: Thu, 14 Dec 2000 13:33:42 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: How do I get the last day of a month??
Message-Id: <Pine.GSO.4.21.0012141333080.4213-100000@crusoe.crusoe.net>
[posted & mailed]
On Dec 14, Jeff Pinyan said:
> use Time::Local;
> ($mon,$year) = (localtime)[4,5];
> if (++$mon == 12) { $mon = 0; $year++; }
> $next_month = timelocal(0,0,0, 1, $mon, 1900+$year);
Scratch that 1900+ there
$next_month = timelocal(0,0,0, 1, $mon, $year);
> $last_day_this_month = (localtime($next_month-1))[3];
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: Thu, 14 Dec 2000 12:55:03 -0500
From: Stephan Gross <sg@loralskynet.com>
Subject: How to identify Windows platform from within a Perl program?
Message-Id: <u52i3t86iir953017ud7rrft7hrgtqsc4b@4ax.com>
I'm writing a program that will run off a network but save a copy of a
file to a user's PC. I figured I would save it to the user's Desktop.
However, the Desktop folder is in different places depending on the OS
- Win98, Windows NT or Win 2000. Is there a way/module to identify
exactly which OS is running? Environment variables only work on
Windows NT.
TIA,
Steve
================================================================
Stephan Gross Loral Skynet sg@loralskynet.com
Senior Software Engineer 908-470-2388
------------------------------
Date: Thu, 14 Dec 2000 18:02:59 GMT
From: peter@PSDT.com (Peter Scott)
Subject: Re: How to make LWP::UserAgent "frame enabled"
Message-Id: <nX7_5.40277$3j.4113010@news1.gvcl1.bc.home.com>
In article <3a38596f$0$15828$7f31c96c@news01.syd.optusnet.com.au>,
"Carl Wu" <carlywu@yahoo.com> writes:
>Hi Tony,
>
>Yes the document I got back has been processed by the server locally, it
>return a page tell me how to upgrade my browser with links to Microsfot and
>Netscape.
>I did try to call $ua->agent("Mozilla 5.0") and various agent ID(s) but it
>didn't help.
>Is it possible that the server didn't rely on the UserAgent Id but because
>it detects the client is not capable of understanding frames during the
>conversation between the server and the client?
No. The only way it is likely to infer such ability is through the value of the
UserAgent header.
Almost certainly you are not looking at the entire content that is being returned.
It is traditional for framesets to also include the text you are seeing;
browsers that don't understand frames will display that text; browsers that do,
display the frames.
And this has nothing to do with Perl... followups altered.
--
Peter Scott
------------------------------
Date: Thu, 14 Dec 2000 18:38:11 GMT
From: hroces@my-deja.com
Subject: IMAP modules.
Message-Id: <91b42i$6mv$1@nnrp1.deja.com>
Hello,
I´m programming in Perl, using Active Perl 5.5, and I use PPM program
for managing my Perl modules.
I need to work with IMAP protocol, and I´ve found two modules about
IMAP: IMAP-Admin by Eric Estabrooks, and Mail-IMAPClient by David J.
Kernen , but I don´t find the *.ppd files of these modules.
Do you know any url where are these *.ppd?
Thanks for the help.
Hugo Roces.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 14 Dec 2000 09:30:24 -0700
From: "Scott Miller" <srmiller@interbel.net>
Subject: looking for a script
Message-Id: <91asbc$2daa$1@news3.infoave.net>
I need a script, and have not been able
to find one that will do what I need. It's basically an orderstatus
script. My client (the website owner) needs a script that the people who
order from his site, can view the status of their order. He wants the
customer to first have a screen to enter their order number, then it will
show them the status of their order. He also needs something that he can
input the order status into a database. The simpler the better, and he
prefers something web-based. We only need three fields, Order Number,
Order Status, and Date. I might not be explaining this properly, so if
there is any other information needed, please feel free to ask.
Thanks,
Scott Miller
------------------------------
Date: Fri, 15 Dec 2000 03:50:45 -0800
From: "Sanderman" <sanderman@dexrix.NS.com>
Subject: Re: looking for a script
Message-Id: <3a3909f3$0$15629$7f31c96c@news01.syd.optusnet.com.au>
How much are you willing to pay?
Scott Miller <srmiller@interbel.net> wrote in message
news:91asbc$2daa$1@news3.infoave.net...
> I need a script, and have not been able
> to find one that will do what I need. It's basically an orderstatus
> script. My client (the website owner) needs a script that the people who
> order from his site, can view the status of their order. He wants the
> customer to first have a screen to enter their order number, then it will
> show them the status of their order. He also needs something that he can
> input the order status into a database. The simpler the better, and he
> prefers something web-based. We only need three fields, Order Number,
> Order Status, and Date. I might not be explaining this properly, so if
> there is any other information needed, please feel free to ask.
>
> Thanks,
> Scott Miller
>
>
------------------------------
Date: Thu, 14 Dec 2000 11:55:56 -0500
From: "Eric" <eric.kort@vai.org>
Subject: Memory in perlXS
Message-Id: <91atpl$17k0$1@msunews.cl.msu.edu>
I have a question about how memory is allocated. Consider the script
provided below, which is silly in itself but represents events that occur in
my much longer application.
I believe that by the end of the run there are 7 variables floating around.
One is $newVariable. The other six are the SV's created each time newVar is
run, but that have no label in perl space. So, if I have thousands of
iterations, I will quickly fill memory with junk.
If my thinking is wrong, please advise how the memory is really allocated
and de-allocated in this process. If it is correct, how do I get rid of the
SV's other than the one represented by $newVariable at any given moment?
Thanks,
Eric
----8<---code snippet follows--------------------------------
#!/usr/bin/perl -w
use strict;
my $x;
my $newVariable;
for ($x=1;$x<=6;$x++)
{
$newVariable = newVar(); // perform very complex math, or, in this case,
just retrieve the number 12
print "Your new variable has the value $newVariable"; // just make sure
we have it.
}
}
exit;
use Inline C => <<'END_OF_C_CODE';
SV* newVar()
{
SV* svPtr_arrayRef; sv_setiv(svPtr_arrayRef, 12);
return svPtr_arrayRef;
} // end sub
END_OF_C_CODE
------------------------------
Date: 14 Dec 2000 16:05:06 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Multiply the actual number of letters entered in a form field
Message-Id: <slrn93hrti.elk.abigail@tsathoggua.rlyeh.net>
On Thu, 14 Dec 2000 13:59:33 -0000, Phil Latio (pubic.hairsphil.latio@f-in-stupid.co.uk) wrote in comp.lang.perl.misc <URL: news:<se4_5.14852$I5.167922@stones>>:
++ The first field is for entering text and the second is to enter a number.
++ The calculation is to simply multiply the number of letters in field one by
++ the value entered in field two.
++
++ I am wondering if this can be done in Perl or should I consider a javascript
++ solution (OK I know wrong newsgroup for javascript) as I am trying to
++ incorporate this function within an existing Perl shopping cart. However I
++ would still like to know how to do this with Perl hence my post here.
Yes, one can multiply in Perl, and one can find the lenght of a string
as well.
Details are left as an exercise to the reader.
Abigail
------------------------------
Date: Thu, 14 Dec 2000 17:05:42 -0000
From: "Phil Latio" <pubic.hairsphil.latio@f-in-stupid.co.uk>
Subject: Re: Multiply the actual number of letters entered in a form field
Message-Id: <9Z6_5.14898$I5.169534@stones>
"Abigail" <abigail@foad.org> wrote in message
news:slrn93hrti.elk.abigail@tsathoggua.rlyeh.net...
> On Thu, 14 Dec 2000 13:59:33 -0000, Phil Latio
(pubic.hairsphil.latio@f-in-stupid.co.uk) wrote in comp.lang.perl.misc <URL:
news:<se4_5.14852$I5.167922@stones>>:
> ++ The first field is for entering text and the second is to enter a
number.
> ++ The calculation is to simply multiply the number of letters in field
one by
> ++ the value entered in field two.
> ++
> ++ I am wondering if this can be done in Perl or should I consider a
javascript
> ++ solution (OK I know wrong newsgroup for javascript) as I am trying to
> ++ incorporate this function within an existing Perl shopping cart.
However I
> ++ would still like to know how to do this with Perl hence my post here.
>
> Yes, one can multiply in Perl, and one can find the lenght of a string
> as well.
>
> Details are left as an exercise to the reader.
Exercise, me, in the park, football, o'reily manuals for goalposts,
marvellous.
--
Ron Perl Monger
The man who put the f in stupid
shave pubic.hairs before replying
------------------------------
Date: 14 Dec 2000 18:15:59 +0000
From: nobull@mail.com
Subject: Re: Multiply the actual number of letters entered in a form field
Message-Id: <u9hf466f8g.fsf@wcl-l.bham.ac.uk>
"Phil Latio" <pubic.hairsphil.latio@f-in-stupid.co.uk> writes:
> I want to put a two field form on a webpage which returns a calculated
> figure when submitted.
>
> The first field is for entering text and the second is to enter a number.
> The calculation is to simply multiply the number of letters in field one by
> the value entered in field two.
( $field_one =~ tr/A-Za-z// ) * $field_two
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 14 Dec 2000 08:33:37 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: My first JAPH....
Message-Id: <m1snnrt126.fsf@halfdome.holdit.com>
>>>>> "Richard" == Richard Zilavec <rzilavec@tcn.net> writes:
Richard> My understanding is that Just another Perl hacker is correct, the
Richard> comma is optional, but only the first and third word start with
Richard> capital letters.
Well, every one *I* have ever done is 25 letters consisting exactly as
the output of this would generate:
print "Just another Perl hacker,"
So, if you want the real thing, ask the source. :)
--
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: Thu, 14 Dec 2000 18:53:54 GMT
From: Jeff Robertson <jeff_robertson@yahoo.com>
Subject: Re: My first JAPH....
Message-Id: <91b4vv$7j7$1@nnrp1.deja.com>
In article <eli$0012131725@qz.little-neck.ny.us>,
Eli the Bearded <elijah@workspot.net> wrote:
> > I thought it was supposed to end with a comma?
>
> While that is Randal's rule, many others don't follow it.
>
Personally I like to mess with the definition of what a "japh" is:
@q=split '',"|/\\_ \n";print map{$q[($r=ord($_)-32)/10].
$q[ $r %10] } split '', q'ABLLLLLCHLIB>BH>KLB>B#LBLC4#$'
.q;.HLHH$ >HL$ -HUARA$BLB$L#$KLKH.KLKRLH-HL$L$$-$#H8!B%;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 14 Dec 2000 17:13:11 GMT
From: johndankey@my-deja.com
Subject: Outputting Multiple Images
Message-Id: <91av2t$276$1@nnrp1.deja.com>
I want to write a program that will yield three jpegs when called as
the source in an <img> tag. So what I need is to be able to combine
jpegs into one, or find a way to get three to display as one source.
I started out with this snippet which I found posted earlier,
# Begin snippet;
if (!(open JPEG, "</home/~johndankey/image.jpg")) {
print header, start_html,'file not found', end_html;exit;
}
undef $/;
my ($image) = <JPEG>;
close JPEG;
print header(-type => "image/JPEG"), $image;
# End snippet;
This will print the image, but no amount of finagling (that my
admittedly limited knowledge can come up with) will make it cough up
even two.
I explored GD, but even if that would do the trick, it's only 8-bit,
which would posterize (read, 'mess up') the image.
Any ideas? Thank you.
Dan
--
Try the Craft Supply Exchange, http://craftsupplyexchange.com, to buy,
sell or trade craft supplies!
Come to Creative Now (http://www.creativenow.com/1976)for Gifts, Art &
Crafts!
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 14 Dec 2000 11:38:01 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Outputting Multiple Images
Message-Id: <87wvd2q4xy.fsf@limey.hpcc.uh.edu>
>> On Thu, 14 Dec 2000 17:13:11 GMT,
>> johndankey@my-deja.com said:
> I want to write a program that will yield three jpegs when called as
> the source in an <img> tag. So what I need is to be able to combine
> jpegs into one, or find a way to get three to display as one source.
That won't work I'm afraid. An <img> specifies an image, not multiple
images.
> I started out with this snippet which I found posted earlier,
> # Begin snippet; if (!(open JPEG, "</home/~johndankey/image.jpg")) {
> print header, start_html,'file not found', end_html;exit; } undef
> $/; my ($image) = <JPEG>; close JPEG; print header(-type =>
> "image/JPEG"), $image; # End snippet;
That's different from an HTML stream with <img> tags in it. You're
just outputting an image/jpeg stream, which displays (presumably,
depends on the browser settings) the image in the browser.
> This will print the image, but no amount of finagling (that my
> admittedly limited knowledge can come up with) will make it cough up
> even two.
You need to output text/html with multiple <img> tags suitably
marked-up.
This doesn't really have anything to do with perl though, follow-up
set to HTML newsgroup. The solution is identical in any programming
language.
hth
t
--
Eih bennek, eih blavek.
------------------------------
Date: Thu, 14 Dec 2000 12:00:47 -0700
From: "Steve Wolfe" <steve@see-signature.com>
Subject: Re: Outputting Multiple Images
Message-Id: <059b19.c79.ln@helix>
> I want to write a program that will yield three jpegs when called as
> the source in an <img> tag. So what I need is to be able to combine
> jpegs into one, or find a way to get three to display as one source.
>
> I started out with this snippet which I found posted earlier,
Have your CGI application generate the HTML, with image tags such as
these:
<img src="/makepics.cgi?item=5223&account=2673">
<img src="/makepics.cgi?item=5263&account=2673">
<img src="/makepics.cgi?item=59883&account=2673">
Then have the "makepics.cgi" look at what is passed to it, and spit out
the appropriate image.
steve
------------------------------
Date: Thu, 14 Dec 2000 17:50:37 GMT
From: eggrock@my-deja.com
Subject: Parsing files backwards
Message-Id: <91b199$43e$1@nnrp1.deja.com>
This is my first attempt at this. Please tell me if this is totally
dumb.
#!/usr/bin/perl -w
#Number of lines to read from file (last # of lines)
my $max = 3;
#File to read from
my $file = 'data';
open(FILE, $file) or die "$!";
$count = -2; # Make sure we don't get the last newline (if there is one)
while(1) {
seek FILE, $count, 2; #Go to EOF - offset ($count)
sysread FILE, $char, 1, 0; #Read 1 byte into $char
$char = ord($char); #change to ASCII value
if($char == 10) { #10 is ASCII for newline
$count++;
seek FILE, $count, 2;
$line = <FILE>;
unshift @data, $line;
$count -= 2;
$lc = @data;
if($lc >= $max) { last; }
} else {
$count--; #I see a potential problem here. What if I get to
#the beginning of the file?
}
}
foreach(@data) {
print "$_";
}
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 14 Dec 2000 17:48:23 GMT
From: Randy Kobes <randy@theoryx5.uwinnipeg.ca>
Subject: Re: perlcrt
Message-Id: <91b157$jd9$1@canopus.cc.umanitoba.ca>
In comp.lang.perl.misc, gheiss@my-deja.com wrote:
> How can i get perlcrt.dll for nt4 or perlcrt.lib source ?
http://www.cpan.org/CPAN/authors/id/D/DO/DOUGL/
best regards,
randy kobes
------------------------------
Date: Thu, 14 Dec 2000 16:01:43 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <rjrh3tsn8n41opb8mnh33e0giov9vs44lf@4ax.com>
Tom Christiansen wrote:
>Get a real newsreader.
Yeah, one that can properly handle HTML.
Look, your kind of junk is something that provided primitive formatting
for printout on PAPER. This is an electronic medium. Terminals aren't
even supposed to be able to overwrite characters on top of each other,
so that you can see both.
Plain text means no formatting. None. And definitely not this kind of
junk.
--
Bart.
------------------------------
Date: 14 Dec 2000 10:12:47 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <3a38ff8f$1@cs.colorado.edu>
In article <rjrh3tsn8n41opb8mnh33e0giov9vs44lf@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
:>Get a real newsreader.
:Yeah, one that can properly handle HTML.
Take off, hoser. USENET is not HTML land.
:Plain text means no formatting. None. And definitely not this kind of
:junk.
I am simply following _t_r_a_d_i_t_i_o_n_a_l USENET standards. If you're
MS-Crapware can't handle it, perhaps you should upgrade. But you
certainly shouldn't tell those of us who have been posting using
those standards for the last couple decades to conform to _y_o_u_r
broken software.
We shall, quite rightly, simply ignore you. If you don't like it,
well, that's why we have embedded perl-based hooks for killfiles.
Well, for certain values of "we".
It works in _m_or_e_(1). It works in _r_n(1). It always has. If the
MS-dummies who wrote your MS-crippleware didn't realize this, why
don't you just patch the source? Seems trivial enough to me.
Aw shucks: I bet you don't even _h_a_v_e source code to the MS-shackleware
you're using, now do you? Sucks to be at someone else's mercy, especially
when that someone else is stupid.
Use the source or die.
--tom
------------------------------
Date: Thu, 14 Dec 2000 17:46:41 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <ks1i3tso65fmrbkk2g0n9a3ptf673p9b8d@4ax.com>
Tom Christiansen wrote:
>Aw shucks: I bet you don't even _h_a_v_e source code to the MS-shackleware
>you're using, now do you?
What's more: I don't even have the MS software I'm supposed to be using.
--
Bart.
------------------------------
Date: 14 Dec 2000 18:03:59 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <91b22f$da5$1@news.NERO.NET>
In article <3a38ff8f$1@cs.colorado.edu>,
Tom Christiansen <tchrist@perl.com> wrote:
>I am simply following _^Ht_^Hr_^Ha_^Hd_^Hi_^Ht_^Hi_^Ho_^Hn_^Ha_^Hl USENET standards. If you're
>MS-Crapware can't handle it,
Hmm. I'm using trn. As I recall, that's a descendant of rn, which, as I
recall, was written by someone near and dear to all of our hearts.
>perhaps you should upgrade. But you
>certainly shouldn't tell those of us who have been posting using
>those standards for the last couple decades to conform to _^Hy_^Ho_^Hu_^Hr
>broken software.
Not my software, I didn't write it. Talk to the guy who did.
>It works in _^Hm_^Hor_^He_^H(1). It works in _^Hr_^Hn(1). It always has.
Hmmm. Sure. If you say so. It hasn't "always" worked here.
>Sucks to be at someone else's mercy, especially
>when that someone else is stupid.
Seems a bit stupid to be calling names when you don't know whose name
you are referring to.
------------------------------
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 V9 Issue 5112
**************************************
