[11449] in Perl-Users-Digest
Perl-Users Digest, Issue: 5049 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 3 22:17:18 1999
Date: Wed, 3 Mar 99 19:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 3 Mar 1999 Volume: 8 Number: 5049
Today's topics:
Breaks vs. Last (Jim Matzdorff)
Re: Breaks vs. Last (Martien Verbruggen)
Re: Breaks vs. Last <zenin@bawdycaste.org>
Re: can I make this code better? (Alan Young)
free majordomo service thst@my-dejanews.com
Re: free majordomo service (brian d foy)
Re: IO::File <$fh> vs $fh->getline (David Combs)
Re: IO::File <$fh> vs $fh->getline <uri@ibnets.com>
LWP question <lhe@ececs.uc.edu>
Re: Matching and replacing patterns.. (Tad McClellan)
Newbie: ProgID for Microsoft WordPad <khhuntley@capitalnet.com>
Re: Pentium III Chips Released with IDs - Intel won't b <doug@eng.auburn.edu>
Securing files in a password protected area <aidan.curran@agilesoft.com>
split on meta question <gcollins@mnsinc.com>
Re: split on meta question (Larry Rosler)
Re: SSI and Perl script with CGI.pm(Pondering?Hmmm...) (AKBishop)
Re: swallowing old lady (was Re: URGENT! Where Do You H <uri@ibnets.com>
Re: swallowing old lady (was Re: URGENT! Where Do You H (Abigail)
Re: The millennium cometh -- eventually <staffan@ngb.se>
Re: The millennium cometh -- eventually (brian d foy)
Re: The truth about the Pentium III chip and ID --- **b <tbandrowsky@del.net>
Want Reminder Script for $$$ <david@davidfreimark.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Mar 1999 16:34:35 -0800
From: syran@best.com (Jim Matzdorff)
Subject: Breaks vs. Last
Message-Id: <7bkker$bgq$1@shell18.ba.best.com>
Is there any difference between Break and Last? ie: do they do the saem
thing? I know perl complains about break, but before I go changing
legacy code, I want to make sure I am not breaking (no pun intended)
anything or altering the flow.
There is no mention of break anywhere, so I figure it's safe to make the
change, but if anyone knows different, please let me know.
--jim
--
--
One tequila, two tequila, three tequila, floor.
------------------------------
Date: Thu, 04 Mar 1999 01:40:28 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Breaks vs. Last
Message-Id: <gwlD2.290$5m3.1119@nswpull.telstra.net>
In article <7bkker$bgq$1@shell18.ba.best.com>,
syran@best.com (Jim Matzdorff) writes:
> Is there any difference between Break and Last? ie: do they do the saem
> thing?
Yes, and more or less. Break and Last invoke most likely the subs
Break and Last.
Are you talking about break and last? Then the answers become:
Yes, and no. break invokes the sub break, if it exists. last is a
statement in Perl. break is a statement in C, but that is beside the
point.
Maybe all you need to do is read the perlsyn documentation:
# perldoc perlsyn
> I know perl complains about break, but before I go changing
It only complains if you don't have a sub with the name 'break'. Where
did you get the idea that break is a special word in Perl?
> legacy code, I want to make sure I am not breaking (no pun intended)
> anything or altering the flow.
You will definitely alter the flow. A break will not perform anything
decent, and will most likely cause your program to fail at that point
(unless there is a sub called break). If you really intended to put
last there, then you should do that now.
> There is no mention of break anywhere, so I figure it's safe to make the
> change, but if anyone knows different, please let me know.
It is mentioned somewhere. In the perlsyn man page.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 04 Mar 1999 01:57:20 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Breaks vs. Last
Message-Id: <920512847.564910@thrush.omix.com>
[posted & mailed]
Jim Matzdorff <syran@best.com> wrote:
: Is there any difference between Break and Last? ie: do they do the saem
: thing?
Break doesn't exist in Perl.
: I know perl complains about break,
You meen something like this:
$ perl -we break
Unquoted string "break" may clash with future reserved word at -e line 1.
Useless use of a constant in void context at -e line 1.
If so, take heed as perl is trying to tell you something.
: but before I go changing
: legacy code, I want to make sure I am not breaking (no pun intended)
: anything or altering the flow.
Quite likely, you'll be fixing broken code actually.
: There is no mention of break anywhere,
Because it doesn't exist.
The first two lines of any perl script should be:
#!/usr/local/bin/perl -w
use strict;
Consider this a hard and fast rule, until you know enough Perl
to know why this isn't a hard and fast rule.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Thu, 04 Mar 1999 00:38:08 GMT
From: alany@2021.com (Alan Young)
Subject: Re: can I make this code better?
Message-Id: <36dfd5ae.13300639@news.supernews.com>
[cc'd]
This is really a reply, but I can't find the message on clpm.
On Wed, 3 Mar 1999 13:40:06 -0800, you wrote concerning Re: can I make
this code better?:
>Step 1 in improving Perl (the language, not the compiler) skills:
>
> #!/u/alany/bin/perl -w
> use strict;
I usually add a T as well (-Tw) as most of my scripts right now are
for CGI.
>> @line = ("123|1", "456|2", "012|3", "666|7");
>
>Step 2: Use single-quotes when interpolation is not desired, or qw()
>for simple lists of words without embedded spaces.
>
> my @line = qw( 123|1 456|2 012|3 666|7 );
Thanks ... I'm still getting used to this concept.
>> open 'fh', "<inventory";
>
>Step 3: Use all upper-case for filehandles (a Perl convention). And
>skip the quotes. And test the result. Always, always, always...
>
> open FH, 'inventory' or die "Couldn't read 'inventory'. $!\n";
I'm using IO::File in my actual script, so I'm used to checking
afterwards, but yes, I should *always* check.
>Wouldn't an absolute path or a visible chdir be more appropriate?
What do you mean? ./inventory as opposed to inventory?
>> #################################################################
>> # This is the part that I think I should be able to compress.
>
>You are quite right. Rather than reading the inventory file over and
>over, read it once and create a hash. Think of it as a quick look-up
>table.
As soon as I read the above I thought *smack* "Of course!" But I
still wouldn't have thought of the map function ... that concept
hasn't sunk in all the way either.
> my %inventory = map { (split /\|/)[0], $_ } <FH>;
Let me make sure I understand what you've done here:
$_ is the individual lines from FH
(split /\|/) will split $_ into an anonymous array @() (Is that the
same as @_ ?)
map returns ()[0] as the key and the original line as the value
> my @items = map $inventory{(split /\|/)[0]} ||
> "$_ does not exist in inventory\n", @line;
What is $_ here? From the results (print @items) it's obviously @line,
but how?
(split /\|/) will split $_ into an anonymous array @() (Same question
here)
Waitaminnit ... is the precedence here
my @items = map
($inventory{(split /\|/)[0]} || "$_ not exist"),
@line
?
That has to be it (it would explain where $_ is getting its values),
but please tell me if I'm screwing up here.
Ok... I've been working this out as I've gone along here, so if I want
the "not exist" message to only include the first field it would be
...
"Item " . (split /\|/)[0] . " does not exist in inventory.\n", @line;
>That's about as compressed as it gets! You'll be astounded by how much
>faster it is than your code for reasonable amounts of data.
What's reasonable? This is for multiple clients, some of whom have
upwards of several thousand items (not really, but they have separate
item codes for colours, sizes, etc.).
Thanks for your help.
>perldoc -f map
This has the example: %hash = map { getkey($_) => $_ } @array;
Which seems to be pretty much what you showed me, except for the =>.
What is the difference here?
>(because I don't like writing explicit loops :-)
Personal or religious preference?
>Welcome to the big leagues!
*blush* Not yet, I'm only twee months old! (perl wise any way).
--
Alan Young Technical Support
http://members.xoom.com/AlanYoung 2021.Interactive, LLC
If your happy and you know it, clunk your chains! http://www.2021.com
270 Not that I'm against sneaking some notions into people's heads upon occasion. (Or blasting them in outright.)
-- Larry Wall in <199710211624.JAA17833@wall.org>
------------------------------
Date: Thu, 04 Mar 1999 01:09:31 GMT
From: thst@my-dejanews.com
Subject: free majordomo service
Message-Id: <7bkmg4$6aq$1@nnrp1.dejanews.com>
Unfortunately my provider doesn't support something like a majordomo service.
So I am searching for a free majordomo service out in the net.
Read:
1.) I would like to email/forward emails to this majordomo service
2.) The majordomo service takes each message and passes it to a certain cgi
process/script running on my domain for further performing
It seems to be easy. Where do I get such a free service ?
Bye
Thomas
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Mar 1999 21:21:51 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: free majordomo service
Message-Id: <comdog-ya02408000R0303992121510001@news.panix.com>
In article <7bkmg4$6aq$1@nnrp1.dejanews.com>, thst@my-dejanews.com posted:
> Unfortunately my provider doesn't support something like a majordomo service.
> So I am searching for a free majordomo service out in the net.
> Read:
> 1.) I would like to email/forward emails to this majordomo service
> 2.) The majordomo service takes each message and passes it to a certain cgi
> process/script running on my domain for further performing
why do you need majordomo to do this?
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 4 Mar 1999 00:04:43 GMT
From: dkcombs@netcom.com (David Combs)
Subject: Re: IO::File <$fh> vs $fh->getline
Message-Id: <dkcombsF81Mvv.H4s@netcom.com>
In article <7b4n0u$5gf$1@client2.news.psi.net>,
Abigail <abigail@fnx.com> wrote:
>John Mendenhall (jem@electriciti.com) wrote on MMIV September MCMXCIII in
><URL:news:36D5BC31.41C67EA6@electriciti.com>:
>// my ($line) = <$fh>;
>
>
>You suffer from parenphilia. Too much parens.
>
> my ($line) = <$fh>;
>
>puts the expression in *list* context, meaning that you read in all
>the lines of the file, and assign the first one to $line, trowing
>away the rest.
>
>Use
>
> my $line = <$fh>;
>
>and it will all work fine.
>
>
>
>Abigail
>--
>perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
Will you please explain, COMPLETELY, this business about
parens or no parens with a my decl.
Reading one perl book just last night, it said that
you needed the parens if you were declaring SEVERAL items.
Nothing that I recall about list vs scalar.
Believe me, I have found this paren stuff re "my"
TOTALLY confusing.
---
And, just what IS "my": a funny function, that returns
an lvalue? (with side effect of marking the arg or args
lexical)?
---
Is the list vs scalar stuff (parens) due to an INDEPENDENT
"feature" of the parser of seeing a right paren before
an assignment op?
How DOES this stuff really work?
Thanks!
David
------------------------------
Date: 03 Mar 1999 19:36:33 -0500
From: Uri Guttman <uri@ibnets.com>
To: dkcombs@netcom.com (David Combs)
Subject: Re: IO::File <$fh> vs $fh->getline
Message-Id: <391zj6hyzy.fsf@ibnets.com>
>>>>> "DC" == David Combs <dkcombs@netcom.com> writes:
>> // my ($line) = <$fh>;
>>
>> my $line = <$fh>;
DC> Will you please explain, COMPLETELY, this business about
DC> parens or no parens with a my decl.
DC> Reading one perl book just last night, it said that
DC> you needed the parens if you were declaring SEVERAL items.
and what is confusing about it?
my $foo, $bar; only declares $foo as my.
my( $foo, $bar ) declares both as my.
but the parens while required to declare multiple vars, also provides a
list context so multiple values can be assigned as if there was no my
keyword.
my( $foo, $bar ) = @array ;
( $foo, $bar ) = @array ;
both with assign the first 2 elements of @array to $foo and $bar. but
the first declared them to be lexical.
so the original bug posted was doing this:
my ($line) = <$fh>;
which slurped in the entire file (list context) and assigned the first
line to $line. the fix is to eother declare it on another line from the
assignment (my style) or remove the list context by deleting the parens:
my $line = <$fh>;
this assigns the first line to $line and doesn't slurp in the rest of
the file.
clear enough?
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Wed, 03 Mar 1999 20:01:10 -0500
From: lei he <lhe@ececs.uc.edu>
Subject: LWP question
Message-Id: <36DDDB56.A4DC817@ececs.uc.edu>
I tried to run the following code:
use LWP::Simple;
$content = get('http://www.engrlib.uc.edu/');
but I got some compilation error:
Socket object version 1.7 does not match bootstrap parameter 1.5 at
/usr/local/lib/perl5/5.00502/sun4-solaris/DynaLoader.pm line 187.
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/5.00502/sun4-solaris/IO/Socket.pm line 118.
Could anyone help me? I have been stucked on this problem for a while.
Thanks a lot.
Hao
------------------------------
Date: Wed, 3 Mar 1999 14:35:47 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Matching and replacing patterns..
Message-Id: <ju2kb7.1l6.ln@magna.metronet.com>
Chris Oudeman (c.m.oudeman@st.hanze.nl) wrote:
: I want to convert this string:
: <A HREF="/photo/snap.cgi?links=/programs/bv.html&rechts=/dir/b.htm">
: into this string:
: <A HREF="javaScript.MyFunction('/programs/bv.html','/dir/b.htm')">
: But could anybody help me, please?
------------------------
#!/usr/bin/perl -w
use strict;
$_ = '<A HREF="/photo/snap.cgi?links=/programs/bv.html&rechts=/dir/b.htm">';
s/[^?]*\?//; # delete up to the first question mark
s/">$//; # delete stuff from the end
my ($links, $rechts) = split /&/;
$links =~ s/[^=]*=//; # delete up to first equal sign
$rechts =~ s/[^=]*=//; # delete up to first equal sign
$_ = qq/<A HREF="javaScript.MyFunction('$links','$rechts')">/;
print "$_\n";
------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 04 Mar 1999 01:17:51 GMT
From: "kris" <khhuntley@capitalnet.com>
Subject: Newbie: ProgID for Microsoft WordPad
Message-Id: <3blD2.2692$8c4.14000636@news.magma.ca>
I am learning OLE automation and I would like to know what the program ID is
for Microsoft WordPad. I haven't been able to find it anywhere and I
figured this newsgroup could help.
Thanks,
Kris Hammel
------------------------------
Date: Wed, 3 Mar 1999 18:57:39 -0600
From: Doug Hughes <doug@eng.auburn.edu>
Subject: Re: Pentium III Chips Released with IDs - Intel won't budge
Message-Id: <Pine.SOL.3.96.990303181423.19747F-100000@goodall.eng.auburn.edu>
On 3 Mar 1999, Jochem Huhmann wrote:
>
> Who cares about software that requires licences? And how is this
> related to comp.lang.tcl?
>
> BTW: Every ethernet card on this planet has an unique ID. Since
> ages. That's very useful and nobody has crossposted in this regard
> over 10 newsgroup all the time.
>
Not true. Just ask 3com about their fiasco. They had meant to send
cards with the same MAC to different countries. Turns out that some
got packages incorrectly and they wen to the same companies in
some cases!
(moreover, changing the ethernet hardware address is 'required' for
protocols such as Decnet, and is relatively easy to do)
____________________________________________________________________________
Doug Hughes Engineering Network Services
System/Net Admin Auburn University
doug@eng.auburn.edu
------------------------------
Date: Wed, 3 Mar 1999 18:20:54 -0800
From: "Aidan Curran" <aidan.curran@agilesoft.com>
Subject: Securing files in a password protected area
Message-Id: <7bkqh9$32f$1@ffx2nh3.news.uu.net>
We have an Extranet at our company where the user logs in and a cookie is
set for the duration of the session. All of the pages in the extranet use a
script (Perl, ASP or JavaScript) to check the cookie before returning the
contents of the page. If the cookie is not set the script redirects the user
to the login.
But now we want to add non-web documents such as Word and PDF files to the
extranet. So I am looking for a way to protect these documents so that even
if someone knows the location of the document they still need to be
authenticated before they can gain access. Also I do not want to add any
additional password screens, once the user has logged in one time he should
not need to log in again for the duration of that session.
Any suggestions would be greatly appreciated,
Aidan Curran
------------------------------
Date: Wed, 03 Mar 1999 20:40:01 -0500
From: George Collins <gcollins@mnsinc.com>
Subject: split on meta question
Message-Id: <36DDE471.191C4214@mnsinc.com>
I need to split some text delineated with the "|" and "." characters. I
understand the meta-ness of such characters and the need to escape or
quote them when used in a literal sense, but I've not been able to get
perl's split to do "what I expect", despite trying several of the
builtin quoting functions (\0nnn,\0xnn, \Q, \, qw()). I currently have
hideous work-around in place that I'd really like to remove before
anyone notices. I'm trying do something like:
($a, $b, $c)=split( "\.", "a.b.c" ) or
($a, $b, $c)=split( "\|", "a|b|c" )
------------------------------
Date: Wed, 3 Mar 1999 18:24:51 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: split on meta question
Message-Id: <MPG.11478ecd9947e1ed9896cf@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <36DDE471.191C4214@mnsinc.com> on Wed, 03 Mar 1999 20:40:01 -
0500, George Collins <gcollins@mnsinc.com >says...
> I need to split some text delineated with the "|" and "." characters. I
> understand the meta-ness of such characters and the need to escape or
> quote them when used in a literal sense, but I've not been able to get
> perl's split to do "what I expect", despite trying several of the
> builtin quoting functions (\0nnn,\0xnn, \Q, \, qw()). I currently have
> hideous work-around in place that I'd really like to remove before
> anyone notices. I'm trying do something like:
>
> ($a, $b, $c)=split( "\.", "a.b.c" ) or
> ($a, $b, $c)=split( "\|", "a|b|c" )
The first argument to the split() function is a pattern (regex). When
you supply it with a string, it treats it as a regex. But the string
"\." is acually the string '.', while the regex /\./ is quite different.
So just replace the double-quotes in your regexes above by slashes, and
all will be well.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 04 Mar 1999 02:15:41 GMT
From: akbishop@aol.com (AKBishop)
Subject: Re: SSI and Perl script with CGI.pm(Pondering?Hmmm...)
Message-Id: <19990303211541.11533.00001200@ngol05.aol.com>
In article <7bjrie$d1k$1@nnrp1.dejanews.com>, kOsAn <sunny.boyle@slip.net>
writes:
>A SSI-enabled page will cause the server to return a HTTP header to
>the browser automatically(Note: they are not nph). Thus the Perl script(using
>CGI.pm) should not need to return a HTTP header. I believe it's right. Am I?
Try using <!--#exec cmd="..." --> . To use #exec cgi, you must output the
headers.
AK
AKBishop@aol.com
------------------------------
Date: 03 Mar 1999 18:44:28 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: swallowing old lady (was Re: URGENT! Where Do You Hide The CGI Cards From The Spiders?)
Message-Id: <393e3mi1er.fsf@ibnets.com>
>>>>> "GB" == Greg Bacon <gbacon@itsc.uah.edu> writes:
GB> spider => 'That wiggled and jiggled and tickled inside \'er.',
GB> goat => 'She opened \'er throat and swallowed a goat.',
GB> horse => 'She\'s dead, of course.',
you should use q() here. there is even a thread about it going on right
now. i hate seeing backwhacked quotes, it looks very painful.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 4 Mar 1999 02:57:02 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: swallowing old lady (was Re: URGENT! Where Do You Hide The CGI Cards From The Spiders?)
Message-Id: <7bkspu$cjb$1@client2.news.psi.net>
Greg Bacon (gbacon@itsc.uah.edu) wrote on MMX September MCMXCIII in
<URL:news:7bke57$dqd$1@info.uah.edu>:
,, In article <7bk6vh$np$1@gellyfish.btinternet.com>,
,, Jonathan Stowe <gellyfish@btinternet.com> writes:
,, : Shortly after the 'bottles of beer' program challenge a while back I
,, : was on and holiday far away from any computer and started to think how
,, : one might write a program to present this song. Then I get back to the
,, : real world with computers and stuff and gave up the project ...
,,
,, As long as she doesn't swallow anything starting with a vowel, this
,, works. (There are punctuation problems too.)
,,
,, #! /usr/bin/perl -w
,,
,, use strict;
,,
,, my %desc = (
,, fly => "I don't know why she swallowed the fly.\nPerhaps she'll die.",
,, spider => 'That wiggled and jiggled and tickled inside \'er.',
,, bird => 'How absurd to swallow a bird!',
,, cat => 'Imagine that! She swallowed a cat!',
,, dog => 'What a hog to swallow a dog!',
,, goat => 'She opened \'er throat and swallowed a goat.',
,, horse => 'She\'s dead, of course.',
,, );
,,
,, my @order = qw( fly spider bird cat dog goat horse );
Urg. Is this "using a hash, just cause I can"? If you want an ordered
set, use a list (and no C-ish for()s either):
#!/usr/local/bin/perl -w
use strict;
my @animals = (
[fly => "I don't know why she swallowed the fly.\n" .
"Perhaps she'll die."],
[spider => "That wiggled and jiggled and tickled inside 'er."],
[bird => "How absurd to swallow a bird!"],
[cat => "Imagine that! She swallowed a cat!"],
[dog => "What a hog to swallow a dog!"],
[goat => "She opened 'er throat and swallowed a goat."],
['horse...' => "She's dead, of course."],
);
my @swallowed;
$" = "\n";
while (my $animal = shift @animals) {
print "I knew an old lady who swallowed a @$animal\n";
last unless @animals;
my $bigger = $animal;
foreach my $smaller (@swallowed) {
print "She swallowed the $bigger->[0] to swallow the @$smaller\n";
$bigger = $smaller;
}
unshift @swallowed => $animal;
print "\n";
}
__END__
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Thu, 04 Mar 1999 01:04:59 +0100
From: Staffan Liljas <staffan@ngb.se>
Subject: Re: The millennium cometh -- eventually
Message-Id: <36DDCE2B.EE728C81@ngb.se>
charlottekane@hotmail.com wrote:
> But whether there is a year zero matters not one whit to whether the
> 2000s are a millennium.
<snip>
> The year zero (or lack of one) only applies to when the 3rd Millennium
> started. Ordinal descriptives imply as sequence. There couldn't very
> well be a 3rd M. without a 1st and a 2nd.
<snip lots of good, clearly explained and true stuff>
Hear, Hear!
Thank you and lets get on with the Perl stuff, OK?
Staffan
------------------------------
Date: Wed, 03 Mar 1999 20:12:29 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: The millennium cometh -- eventually
Message-Id: <comdog-ya02408000R0303992012290001@news.panix.com>
In article <7bkfkv$3g$1@nnrp1.dejanews.com>, evanjohn@my-dejanews.com posted:
> In article <comdog-ya02408000R0303991405050001@news.panix.com>,
> comdog@computerdog.com (brian d foy) wrote:
> > before you get too excited, you might want to check out a bit about
> > calendar theory. the above idea stems from the notion that the first
> > year was Year 1, so the first one hundred years included Year 100, meaning
> > that the second century (or group of 100 years) started with Year 101.
> > this works similarly for millinea as well.
> >
> > however, we do count from 0 when we talk about age, since Year 1 is the
> > year AFTER the first one, so a person 40 years old is in the first year
> > of his fifth decade.
> >
> > however, Stephen J. Gould discusses both sides of this issue
> > at length in his recent book whose title i forget. it should be
> > easily found in Amazon though.
> You are really reaching.
you are too quick to judge. i'm not advocating either side. you
should notice that the modal qualifiers are very weak. i make no
assertion to the way things are, but point out some different notions
about these things. it's always easier to deal in different logical
systems when you use the their natural rules rather than the ones
that you impose. computer programmers should (should!) be quite
adept at this since this sort of thinking is their lifeblood - that
is, unless, of course, you only know one language.
as for me, i don't care when people think the millinuem starts, but
i know enough to see both sides of it and converse appropriately with
each side. :)
> It's got nothing to do with calendar theory. No matter what you are talking
> about, "the 60s" means the numbers between 60 and 69. In fact, Mirriam
> Webster's Collegiate Dictionary, Tenth Edition says SPECIFICALLY in its
> definition of 'sixty':
it has everything to do with calendar theory because it is all a
matter of semantics. if depends on who counts from where and that
calendars are arbitrary. different people have different definitions
for the same thing. you define the millenium as the set of numbers
with a common thousands digit. not everyone does that, even though
everyone (probably) defines the 60s as the years 60-69 because there
is a different set of assumptions in effect: namely, the difference
between an absolute count since the beginning of counting and a
slice. a slice, such as the 60's, is independent of the definition
of the millenium, century, or any other group. notice that your
other examples are slices as well. the millineum debate exists
because some define the millineum as a slice, as you do, and some
define it as an enumeration.
you think there is one absolute answer. i say there are different
answers depending on who is talking about what. "Comtemplating the
Millenium" by SJG concludes that it is all hooey, and that's why
i suggested that book. had you checked it out before condemning my
response, you would realize the vagueness of the debate is to due to
the confluence (malfluence?) of a lack of operational definitions
and the arbitrary nature of counting, the epitome of which is
the following comment:
> > this is not a strange concept to FORTRAN programmers who now do
> > Perl :)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Wed, 3 Mar 1999 20:37:13 -0500
From: "Todd Bandrowsky" <tbandrowsky@del.net>
Subject: Re: The truth about the Pentium III chip and ID --- **boycott info**
Message-Id: <36dde1d1@news.deniz.com>
Oh please, spare the misrepresentation. Sun Microsystems, you know, the
holy good guys, have had the concept of a software accessible unique
identifier in all of their hardware. Corporate America wants to track
people, and Sun has been giving them that technology for years. If you are
going to boycott Intel, then you should boycott Sun too.
JoHn DoH <johndoh@home.com> wrote in message
news:36D9D5CE.D39B0338@home.com...
>I beg to differ but MAC addressess are not made for spying on us they
>are for network location and such. No on knows that I own a certain
>MAC address (unlike Intel that wants you to register after getting the
>PIII). I think it is a bad move on intel's part but those that accept
>it are doomed to get shafted. Your ass not mine (I will keep my PI any
>day running). Sorry for the crossposting just got a little annoyed and
>wanted it to be righted in all places of being.
>
> -DoH
>
>Kano wrote:
>>
>> Oh come on. Many other standard devices (ethernet cards, for example)
have their
>> own unique serial numbers that software can use at will. Get over it.
>>
>> -kl
>>
>> Boycott Swintel <swintel@badchips.com> wrote in message
>> news:36ddc0ca.4718754@news.earthlink.net...
>> >Take the Pentium III Boycott Survey
>
>--
>JoHn 'DoH' KeLm
>http://www.johndoh.cjb.net
>"People are too stupid to realize they are" - DoH
------------------------------
Date: Wed, 03 Mar 1999 18:54:24 -0600
From: David <david@davidfreimark.com>
Subject: Want Reminder Script for $$$
Message-Id: <7bklj6$2ht@newsops.execpc.com>
Hi...
I wish to purchase a simple reminder script that I may
customize to my personal, not for profit, website. I
use an Apache/UNIX setup. It would be executed by a
cronjob and the users would be able to see the reminders
they have created.
Can you email me with any ideas?
Thanks...
Dave F.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5049
**************************************
