[11448] in Perl-Users-Digest
Perl-Users Digest, Issue: 5048 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 3 19:07:23 1999
Date: Wed, 3 Mar 99 16:00:23 -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: 5048
Today's topics:
Denver Perl Mongers Gathering (Chris Fedde)
Re: Editing 2,000 lines of someone else's code (Greg Ward)
hash from split in one step vicuna@my-dejanews.com
Re: hash from split in one step (Sean McAfee)
Help with Tie::IxHash <dewitt@jlab.org>
How to run Perl program as NT service? <fillmore@nrn1.nrcan.gc.ca>
Re: Howto open COM1: in dos Perl (Bbirthisel)
Re: My, oh my! <upsetter@ziplink.net>
Re: Perl 5.00x and GDBM latest coexist with C? (Greg Ward)
PERL and mySQL <sme@planetpod.com>
Re: Perl Editors for WinNT? <upsetter@ziplink.net>
Re: perl script records empty fields (Alastair)
q// vs. '' otis@my-dejanews.com
Re: q// vs. '' <uri@ibnets.com>
Re: q// vs. '' <jeromeo@atrieva.com>
Re: Running Perl scripts in real-time (Alastair)
Re: sendmail / perl problem <gellyfish@btinternet.com>
swallowing old lady (was Re: URGENT! Where Do You Hide (Greg Bacon)
Re: The millennium cometh -- eventually evanjohn@my-dejanews.com
Re: The millennium cometh -- eventually charlottekane@hotmail.com
Re: The millennium cometh -- eventually charlottekane@hotmail.com
Re: URGENT! Where Do You Hide The CGI Cards From The Sp (Martien Verbruggen)
Using CPAN.pm in multi-archetecture environment? <cfedde@infobeat.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Mar 1999 23:07:57 GMT
From: cfedde@cfedde.corp.infobeat.com (Chris Fedde)
Subject: Denver Perl Mongers Gathering
Message-Id: <7bkfcd$hht$1@news1.rmi.net>
Howdy,
It's time for another Denver Perl Mongers Gathering. There has
been some interest in changing the venue so if you have any
suggestions please share them.
Unless there is an alternate suggestion, I'll make the reservation
as I have in the past:
Denver Perl Mongers
Wynkoop Brewing Co.
1634 18th, DENVER CO
Monday, March 15, 1999
6:30PM
Hope to see you then!
thanks
chris
------------------------------
Date: 3 Mar 1999 23:34:05 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: Editing 2,000 lines of someone else's code
Message-Id: <7bkgtd$oat$2@ffx2nh5.news.uu.net>
Jonathan Feinberg <jdf@pobox.com> wrote:
> Halley Lin <revjack@radix.net> writes:
>
> > sub printWah {
> > print "WAH\n";
> > }
>
> No, no. Put your head there, like this, then go "Wahhhh."
I'm not sure how to respond to this gross violation of rival-programming-
language-newsgroup-ethics:
die "error: Monty Python reference on Perl newsgroup " .
"(should be comp.lang.python)\n";
or
raise UsenetError, \
"Monty Python reference on non-Python newsgroup comp.lang.perl.misc"
???
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: Wed, 03 Mar 1999 22:38:49 GMT
From: vicuna@my-dejanews.com
Subject: hash from split in one step
Message-Id: <7bkdlo$u82$1@nnrp1.dejanews.com>
lo
Would be high droogy if someone could grok me the glimmer. Feeling should be
doable but can't find my way to one step it.
so:
my %pretty;
my $this ='would be key | want be value';
($lame_key, $lame_value) = split(/\|/,$this);
$pretty{$lame_key} = $lame_value;
but two step, want one.
($cool_key,$pretty{$cool_key}) = split(/\|/,$this);
No no no! $cool_key is not, but what instead? Inquiring minds want to know!
can:
%pretty = (%pretty,split(/\|/,$this));
but smells of Horse Mackerel.
Glimmerings?
V
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Mar 1999 23:27:13 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: hash from split in one step
Message-Id: <lzjD2.9922$Ge3.38812388@news.itd.umich.edu>
In article <7bkdlo$u82$1@nnrp1.dejanews.com>, <vicuna@my-dejanews.com> wrote:
>my %pretty;
>my $this ='would be key | want be value';
>($lame_key, $lame_value) = split(/\|/,$this);
>$pretty{$lame_key} = $lame_value;
>but two step, want one.
I think a helper function, defined near the top of your program, would be
best:
sub hpush (\%@) { $_[0]{$_[1]} = $_[2] }
Now you can say:
hpush %pretty, split(/\|/, $this);
If you want to add more than one key-value pair at a time to the hash:
sub hpush (\%@) {
my ($h,$k,$v) = shift;
$h->{$k} = $v while ($k,$v) = splice @_, 0, 2;
}
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: Wed, 03 Mar 1999 18:09:52 -0500
From: Shane Dewitt <dewitt@jlab.org>
Subject: Help with Tie::IxHash
Message-Id: <36DDC13F.3EEB21F0@jlab.org>
I have two subroutines that are used to create and print 4 hashes, and
only 1 of the hashes need to use the Tie::IxHash module to retriev stuff
in inserting order. I looked at the perl cookbook but it only shows you
how to use it with a single hash, not a double hash like so:
from Perl Cookbook
------------------
use Tie:IxHash;
tie %hash, "Tie::Ixhash";
$hash{banana} = "yellow";
$hash{apple} = "red";
print "In insertion order\n";
foreach $food (keys %hash) {
print "$food\n";
}
------------------
my 2 sub routines follow
------------------
sub CreateHash($) {
my ($file, %hash, $comment,$major_tag, $minor_tag, $value);
($file) = @_;
open(IN,$file) || die "cannot open $file for reading: $!";
while (<IN>) {
chomp;
next if /^\s*$/; # Ignore blank lines
($_,$comment) = split /#/;
s/\s*$//; # Remove trailing spaces after tag
if (tr/://d) { # Start a new hash table
$major_tag = $_;
} else { # Fill in the hash table
($minor_tag, $value) = split /,/;
$minor_tag =~ s/\s+//;
$value =~ s/\s+//;
$hash{$major_tag}{$minor_tag} = [$value, $comment];
}
}
return %hash;
}
sub PrintHash($\%) {
my($header, %hash) = @_;
print "\n$header --\n";
foreach $major_tag (keys %hash){
print "$major_tag:\n";
foreach $minor_tag (keys %{ $hash{$major_tag}} ) {
print "\t$minor_tag = ${$hash{$major_tag}{$minor_tag}}[0]";
if (defined ${$hash{$major_tag}{$minor_tag}}[1]) {
print "\t#","${$hash{$major_tag}{$minor_tag}}[1]\n";
}
else {
print "\n";
}
}
print "\n";
}
}
--------------
sample data file
---------------
bpmseeRec:
313, 1-0
cebafApp:
313, 2-1
313a, 2-3
cmlog:
312, 1-1
313, 1-1
camacDevSup:
313, 1-1
313a, 1-2
ADIOS:
313, 1-0
devPentek4261:
313, 1-0
VMI1129:
313, 2-0
VMI2120:
313, 2-0
VMI3122:
313, 2-0
brm98:
312, 1-0
313, 2-0
VxVar:
313, 1-1
steppermotor:
313, 1-0
OMSVME44:
313, 1-0
------------
There are no comments in this file
--------------
--
Shane Dewitt Email: dewitt@jlab.org
TR 53C Phone: 757-269-7592
------------------------------
Date: Wed, 03 Mar 1999 17:43:20 -0500
From: Bob Fillmore <fillmore@nrn1.nrcan.gc.ca>
Subject: How to run Perl program as NT service?
Message-Id: <36DDBB08.6F21193E@nrn1.nrcan.gc.ca>
I would like to run a Perl program as an NT service so that it's started
on each reboot.
I created a batch file that calls perl with the script file name as a
parameter,
then I installed the .bat file as a service using SRVANY in the NT
Resource Kit.
I then tried to start the service using the Services control panel, but
it times out
with a message saying it can't start the service. What's the "proper"
method
for doing this?
Any help is much appreciated.
--
Bob Fillmore, Technical Services Division email:
fillmore@NRCan.gc.ca
Information Management Branch,
Natural Resources Canada, Voice: (613) 992-2832
580 Booth St., Ottawa, Ont., Canada K1A 0E4 FAX: (613) 996-2953
------------------------------
Date: 3 Mar 1999 22:35:58 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: Howto open COM1: in dos Perl
Message-Id: <19990303173558.27405.00002943@ng126.aol.com>
Hi Aart:
>I have a Linux Perl program working on a laptop, but as this program has
>to run on a number of laptops on which only DOS is installed, I have the
>choice of either trying to run it in DOS-perl or to install Linux on all
>these laptops. As the laptops have to be used by people without any
>Linux experience, and they also have to use other DOS programs, I
> would rather have this program running in DOS. The laptops will be
> connected to microcontrollers and will have to write to and read from
> these microcontrollers through COM1:.
I hate to be the bearer of bad news, but with the hardware and OS
constraints you have outlined, Perl is not the best choice for your task.
My choice would be to install a minimum linux distribution and give
the users a restricted shell (or a least a "short" $PATH) plus some
scripts to handle the tasks they need in a low-training setting.
The alternative would be another language. There are a few simple
template serial programs for the DJGPP C compiler. Even QBASIC
has limited capabilities to handle serial ports - one at a time, slow,
nothing else going on - but might be enough for what you propose.
>The Linux code which gives the problem in DOS is:
>
>$poort = "/dev/ttyS0";
>$| = 1;
>open(URS, "+>$poort") or die "Can't open $poort $!\n";
>system("stty 9600 -echo raw clocal -crtscts < $poort");
>$SIG{'ALRM'} = 'timeout';
>
>As this gave problems in DOS (also when using sysopen), I tried to track
>the problem down be doing seperate write and read calls:
ARRRRGH: That is some of the most un*x-like code imaginable!
If the rest of your appliction looks like that, you
have
NO chance of porting it to DOS. It would take serious
surgery to make it work using Win32::SerialPort.
[snip]
>At that point DOS gives something like:
>"General failure reading from device COM1
>Abort, Retry, Ignore, .."
At that point, DOS imitates the "Wicked witch of the West" in the
"Wizard of Oz" and desolves into oblivion!
>On com1 is the microcontroller, the writing seems to go ok, but it does
>not always answer, so you have to give it a few tries. Before I put the
>select call in in Linux it sometimes needed a few hundred tries before
>it gave an acceptable answer. With the 0.3 in select in Linux it gives
>the right answer the first time, most of the time. Changing this to
>"sleep 1;" in the Dos version does not help.
Microcontrollers frequently assume the "other" device is fast and smart
and can handle any buffering required, etc. Vanilla DOS does not
qualify - you have to build all that into the application.
>BTW: the Laptops are Thoshiba T1910, 486SX25, 4Mb ram. I first tried
> the perl542b.zip version on one, but could not get that to work (needs a
>coprocessor??), and then installed the os2 version according to the
>instructions. This seems to work ok.
Except, of course, it does not support any of the features you need
for this application. Win32::SerialPort won't help you either, it relies
on driver features not introduced until Win95 plus multitasking plus
dynamic loading of DLLs (and probably more).
I think you have taken the wrong approach to this problem.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Wed, 03 Mar 1999 23:33:58 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: My, oh my!
Message-Id: <GFjD2.562$HF2.89379@news.shore.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
: :my ($a, $b, $c) = @_;
: :use CGI qw (:standard);
: :use CGI::Carp qw(fatalsToBrowser);
: :
: :Each of these lines gives me a syntax error. Why?
: Because you're not using Perl? :-)
: Those are just fine. You've probably got some dead, flea-bitten
: camel carcass lying about rotting up your world.
By which I'm sure he meant to say, "You may have Perl 4 installed as your
default perl, and it doesn't recognize 'use' or 'my'".
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 3 Mar 1999 23:23:48 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: Perl 5.00x and GDBM latest coexist with C?
Message-Id: <7bkga4$oat$1@ffx2nh5.news.uu.net>
Shane Brath <sbrath@tds.net> wrote:
> I have been trying to write a perl program to build a gdbm file to be
> used by a C program.
>
> I know I can write both in c and make this work, but certian instalation
> restrictions requires access
> to the gdbm file via perl and C.
>
> Every time I create a database in perl, I can open it in C, but
> gdbm_fetch for an item in the database never works. If I add a row with
> C and then go back to perl and have it fetch if finds the original row
> inserted via perl.
You might be having a problem with null terminators. Remember, strings
in C *must* be terminated with '\0', but that ain't necessarily so in
Perl. I believe that GDBM will take any old array of characters as a
key value, so your Perl strings are probably being used as keys
*without* that '\0' on the end. Then, when your C program tries to
fetch them, it's passing char arrays with '\0' to GDBM, and it can't
find them.
I think the solution is to pass "$key\0" to GDBM where you previously
passed $key. I've never experimented with this, though, so I might be
getting it wrong...
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: Wed, 03 Mar 1999 15:03:24 -0800
From: Stewart Eastham <sme@planetpod.com>
Subject: PERL and mySQL
Message-Id: <36DDBFBB.F0BB1C5F@planetpod.com>
I am trying to get a list of field names from a mySQL DB using PERL.
The code I am using now is:
$query = "select * from users where ='admin'";
$sth = $dbh->query($query) || &htmlDie("$Mysql::db_errstr and
query is $query\n");
#GET LIST OF FIELD NAMES
@list => $sth->name;
@list should contain all of the fieldnames in that database (i.e.
firstName, lastName, etc.), but it always is returned empty. Any clues
as to what code I could use to get a list of fieldnames for a particular
table?
Thank you.
stewart eastham
------------------------------
Date: Wed, 03 Mar 1999 23:30:02 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Perl Editors for WinNT?
Message-Id: <_BjD2.561$HF2.89379@news.shore.net>
Robert Burris <null@127.0.0.1> wrote:
: http://www.textpad.com/
What he said. I'm almost starting to like this editor better than BBEdit.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Wed, 03 Mar 1999 23:15:59 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: perl script records empty fields
Message-Id: <slrn7drgom.5h.alastair@calliope.demon.co.uk>
kristina.stoeva@cesoft.com <kristina.stoeva@cesoft.com> wrote:
>Hi,
>I have an html form the info from which is posted to a perl script which
>among other things records the form fields to a text format file. All this
>runnig on HP-UX 10.x or Solaris. The problem is that from time to time I get
>empty records in the text file. So I am looking for some kind of explanation?
>Any help will be much appreciated!
Can't help as to why. You might want to try validating the form input before
storage though?
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: Wed, 03 Mar 1999 21:46:50 GMT
From: otis@my-dejanews.com
Subject: q// vs. ''
Message-Id: <7bkak6$rfr$1@nnrp1.dejanews.com>
Hello,
I was reading perlop man page and I was wondering if anyone could tell me if
there is any benefit from doing something like this:
$a = q/a/;
vs.
$a = 'a';
Also, what about this:
@words = qw( one two three four );
vs.
@words = ('one','two','three','four');
Or are q// and qw// just cool shortcuts(?) to use?
Thanks,
Otis
--
eZines Db - 3,000+ magazines, newspapers, journals, e-zines...
http://www.dominis.com/Zines/?dn
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 03 Mar 1999 17:19:45 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: q// vs. ''
Message-Id: <394so2i5by.fsf@ibnets.com>
>>>>> "o" == otis <otis@my-dejanews.com> writes:
o> $a = q/a/; vs. $a = 'a';
they bosth do the same thing.
o> Also, what about this: @words = qw( one two three four ); vs.
o> @words = ('one','two','three','four');
same here.
o> Or are q// and qw// just cool shortcuts(?) to use?
q() and qq() are syntactical help when you need to put literal '
or " in the strings. many other languages don't allow this which can
make ugly quoted strings.
qw() is more of a true shortcut. it quotes the words separated by white
space. it is good when needing a list of simple tokens which is a common
need. it eliminates the need for the '' around and , between the tokens.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Wed, 03 Mar 1999 14:36:35 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
To: otis@my-dejanews.com
Subject: Re: q// vs. ''
Message-Id: <36DDB973.77477117@atrieva.com>
otis@my-dejanews.com wrote:
> Also, what about this:
> @words = qw( one two three four );
> vs.
> @words = ('one','two','three','four');
Which one was easier to type?
> Or are q// and qw// just cool shortcuts(?) to use?
I almost always use quote-like operators these days, mostly to avoid
having to escape double quotes.
my($name) = 'Joe';
my($quote) = "Bob Said \"What's up with that, $name?\"";
vs.
my($quote) = qq{Bob Said "What's up with that, $name?\n};
Much more readable, IMO.
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Wed, 03 Mar 1999 23:11:47 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: Running Perl scripts in real-time
Message-Id: <slrn7drggq.5h.alastair@calliope.demon.co.uk>
Kelley Peagler <kelley@nospamlexis-nexis.com> wrote:
>I'm using Perl 5.004, and I don't think this is a problem, but ...
Your lines are not wrapping well - might be an idea to check your news client
configuration.
As for the problem, maybe you should check out how to auto-flush a filehandle?
See ;
perldoc perlvar
and look for $|.
HTH.
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: 3 Mar 1999 22:32:45 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: sendmail / perl problem
Message-Id: <7bkdad$tp$1@gellyfish.btinternet.com>
On Wed, 03 Mar 1999 21:19:25 GMT ddreams@my-dejanews.com wrote:
> Hi all... I've got a problem and I'm not sure if it's perl or linux... I'm
> trying to write a short script that sends an email to inactive users. As
> such I loop through the lastlog and get a list of users I want to mail.
> Within that loop I'm mailing them as follows:
>
> open(MAILFILE,"|/usr/sbin/sendmail -oi -t");
> print MAILFILE qq!
> To: $user\@the.correct.host
> From: Administrators <director\@students.missouri.edu>
> Subject: Warning... Inactive Account To Be Removed
>
> The message body goes here...basically a 3 line message
>
> -administrators
> !;
>
> Sendmail fails with "No recipient addresses found in header"...
>
You should use a 'here' document in cases like this where the format is
important - printing like this will introduce extraneous white space into
you header.
EG:
print MAILFILE <<EOMAIL;
To: $user\@the.correct.host
From: Administrators <director\@students.missouri.edu>
Subject: Warning... Inactive Account To Be Removed
The message body goes here...basically a 3 line message
-administrators
EOMAIL
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 3 Mar 1999 22:47:03 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: swallowing old lady (was Re: URGENT! Where Do You Hide The CGI Cards From The Spiders?)
Message-Id: <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 );
my($i,$j);
for ($i = 0; $i < $#order; $i++) {
my $what = $order[$i];
print "I knew an old lady who swallowed a $what\n",
$desc{$what}, "\n";
for ($j = $i-1; $j >= 0; $j--) {
my $bigger = $order[$j+1];
my $smaller = $order[$j];
print "She swallowed the $bigger to swallow the $smaller\n",
$desc{$smaller}, "\n";
}
print "\n";
}
print "I knew an old lady who swallowed a $order[$i]...\n",
$desc{$order[$i]}, "\n";
__END__
Greg
--
Bigamy is having one wife too many. Monogamy is the same.
-- Oscar Wilde
------------------------------
Date: Wed, 03 Mar 1999 23:12:40 GMT
From: evanjohn@my-dejanews.com
Subject: Re: The millennium cometh -- eventually
Message-Id: <7bkfkv$3g$1@nnrp1.dejanews.com>
In article <comdog-ya02408000R0303991405050001@news.panix.com>,
comdog@computerdog.com (brian d foy) wrote:
> In article <7bjv71$git$1@nnrp1.dejanews.com>, evanjohn@my-dejanews.com posted:
>
> > In article <slrn7donmh.jnf.fl_aggie@enso.coaps.fsu.edu>,
> > fl_aggie@thepentagon.com wrote:
> > > + have you _ever_ seen anyone think 2000 is part of the 1900s?
> > >
> > > Yes. People who have a clue.
> >
> > This has GOT to be a joke!!! 2000 is part of the 1900s?!?!?
> >
> > So, I suppose you consider someone 40 years old to be in their 30s?
> >
> > Pathetic!
>
> 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.
>
> this is not a strange concept to FORTRAN programmers who now do
> Perl :)
>
You are really reaching.
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':
2. pl. (sixties) the numbers 60 to 69
But I guess you don't consider the publishers of that dictionary "[p]eople who
have a clue."
In a practical example, suppose I gave you a set of numbers, say, the test
scores of a group of students:
72, 75, 76, 76, 84, 85, 85, 87, 90, 95, and 96
Now if I asked you how many students scored in the 80s your answer would be
five (instead of four because you included 90 in the set of scores in the
80s)?
I think you would have a hard time finding a lot of people who would agree
with you that that is reasonable. Same goes for including 2000 in the 1900s.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Mar 1999 22:56:39 GMT
From: charlottekane@hotmail.com
Subject: Re: The millennium cometh -- eventually
Message-Id: <7bken2$v9p$1@nnrp1.dejanews.com>
In article <36dcade6.0@usenet.fccj.cc.fl.us>,
"Bill Jones" <bill@fccj.org> wrote:
> In article <7bhv9k$q1f$1@nnrp1.dejanews.com>, charlottekane@hotmail.com
> wrote:
>
> > In article <19990302.105510.8E6.rnr.w164w@locutus.ofB.ORG>,
> > Russell Schulz <Russell_Schulz@locutus.ofB.ORG> wrote:
> >
> >> have you _ever_ seen anyone think 2000 is part of the 1900s?
> >> --
> >> Russell_Schulz@locutus.ofB.ORG Shad 86c
> >>
> >
> > Thank God!
> >
> > I thought I was alone in trying to get through to people that 2000-2999 =
1000
> > years = a millennium.
> >
> > I can't believe the emotional resistance such a simple concept runs up
> > against.
> >
> > Keep fighting the good fight!
> >
> > Charlotte Kane
>
> Guess what? The Millennium starts in 2001 and ends in 3000 :]
This is true if the millennium you are talking about is the 3rd Millennium.
This is UNTRUE if millennium you are talking about is the 2000s millennium.
You seem to think the words 'the millennium' can ONLY mean the 3rd Millennium
and not the 2000s millennium.
There is no support in the rules of the English language for such a
limitation.
>
> Besides, why does this matter at all? And what, specifically
> does this have to do with Perl ?
Nothing. But if there weren't offtopic posts, it would be a true Usenet
experience. ;)
>
> print ((localtime)[5] + 1900);
> # prints the current year, correctly, I might add.
> # now then, what seems to be the problem?
>
> Now, can we please stop fighting... To paraphrase -
> "I can't believe something so simple is so hard to understand..."
>
> Thx!
> -Sneex- :]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Mar 1999 22:40:40 GMT
From: charlottekane@hotmail.com
Subject: Re: The millennium cometh -- eventually
Message-Id: <7bkdp6$ubu$1@nnrp1.dejanews.com>
In article <comdog-ya02408000R0303991405050001@news.panix.com>,
comdog@computerdog.com (brian d foy) wrote:
> In article <7bjv71$git$1@nnrp1.dejanews.com>, evanjohn@my-dejanews.com posted:
>
> > In article <slrn7donmh.jnf.fl_aggie@enso.coaps.fsu.edu>,
> > fl_aggie@thepentagon.com wrote:
> > > + have you _ever_ seen anyone think 2000 is part of the 1900s?
> > >
> > > Yes. People who have a clue.
> >
> > This has GOT to be a joke!!! 2000 is part of the 1900s?!?!?
> >
> > So, I suppose you consider someone 40 years old to be in their 30s?
> >
> > Pathetic!
>
> 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.
>
> this is not a strange concept to FORTRAN programmers who now do
> Perl :)
>
But whether there is a year zero matters not one whit to whether the 2000s are
a millennium.
They could have started at 50 (..., 3 bc, 2 bc, 1 bc, 50 ad, 51 ad, 52 ad,
etc.) and as long as all the years between 2000 and 2999 exist, they would
constitute the 2000s millennium.
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.
However, that doesn't hold true for cardinal descriptives. Just because a
2000s millennium exists, that does NOT necessarily imply a 1000s millennium
(there is one in this case, but there doesn't have to be). Cardinal
descriptives do not imply a sequence like ordinal descriptives do. "Calendar
theory" has nothing to do with it.
Cardinal desciptions deal ONLY with the prefix of the number. 50, 51, 52, 53,
54, 55, 56, 57, 58, and 59 make up the 50s no matter what they are describing.
Stephen J. Gould's book, Questioning The Millennium, deals with when the 3rd
Millennium starts. Nothing in the book contradicts the fact that the 2000s
qualifies as a millennium. It's not the 3rd Millennium, but a millennium
nonetheless.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Mar 1999 22:06:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: URGENT! Where Do You Hide The CGI Cards From The Spiders?
Message-Id: <xniD2.66$5m3.557@nswpull.telstra.net>
In article <7bjp7r$ap5$1@nnrp1.dejanews.com>,
dturley@pobox.com writes:
> This is how I understand it as well. However, recently I was searching my
> name in one of the search engines, maybe HotBot, but I can't remember. (Come
> on, you all do it :-) I received a hit that was a config file for one of my
> scripts being used on someone's server. The file was called config.pl and
> there's no link to the file on any web pages, yet the spider indexed it. The
> person was running the script from a web directory, not a special cgi-bin
> directory, so does this mean the the spiders actually do something like a
> readddir, rather than just following links?
<offtopic>
The web only consists of links. Some servers however do automatically
provide an index of a local directory if there is no default file
present (all this depends on software, settings etc.). From that point
on, a robot can traverse the tree simply by following the links to
directories, subdirectories and parent directories.
In other words: Configure your server with a paranoid mind. Don't let
it display directory indexes. if you need that functionality on some
directories, configure them separately.
A robot needs only one link into one of the open directories and
(dependent on web server config) it finds all files, even the ones
that have no direct link to them.
</offtopic>
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Wed, 03 Mar 1999 15:13:51 -0700
From: Chris Fedde <cfedde@infobeat.com>
Subject: Using CPAN.pm in multi-archetecture environment?
Message-Id: <36DDB41F.24260A8B@infobeat.com>
I'm wondering if anyone has a working scheme for using CPAN.pm to
manage the installation of modules in a multi-architecture environment.
We have Solaris, Linux, BSD/OS, FreeBSD and Win32 environments all
sharing common source code hierarchy on a big server running NFS
and SMB.
I've been managing the compiles and installs for each architecture
manually using shadow trees built using lndir. But this is much
inferior to simply using CPAN.pm to do these installs. Problem is that
CPAN.pm does not seem to impose a architecture layer in its build
directories.
Has anyone come up with a method for using CPAN.pm over a configuration
like this? Is there some bit of FAQ that I have missed?
Thanks
chris
------------------------------
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 5048
**************************************
