[6871] in Perl-Users-Digest
Perl-Users Digest, Issue: 496 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 18 20:04:56 1997
Date: Sun, 18 May 97 17:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 18 May 1997 Volume: 8 Number: 496
Today's topics:
Re: ? about match and rename <rootbeer@teleport.com>
building perl error <richard@menus.atlanta.com>
Checking $test{foo}{bar} creates $test{foo}??? (James E. Carpenter)
Re: for loop ? (Abigail)
Re: for loop ? <rootbeer@teleport.com>
Re: Need help on Oraperl !!! (John D Groenveld)
Newbie problem with includes under Win95 (Patricia Toretti)
Re: Newbie problem with includes under Win95 (Patricia Toretti)
Re: Notice to antispammers (Tung-chiang Yang)
Re: Notice to Tom (was: Notice to antispammers) (Tung-chiang Yang)
Re: Opening Javascript style windows with perl (Mike Stok)
Re: perl and awk (Tad McClellan)
Re: Perl and PGP interface <rootbeer@teleport.com>
Re: Perl script to uuencode? (Tung-chiang Yang)
Re: perl/cgi help - need current date function (Clay Irving)
Re: Problems running .cmd and .exe from Perl for OS/2 <rootbeer@teleport.com>
Prototype mismatch when forward declaring subs in 5.004 (James E. Carpenter)
Re: Prototype mismatch when forward declaring subs in 5 (Abigail)
Re: Spy people on the Net (Tung-chiang Yang)
Re: stat/test and _ and efficiency <rootbeer@teleport.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Year 2000 compliance (A. Deckers)
Re: Year 2000 Issues with Perl5 (Kyzer)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 18 May 1997 16:52:16 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Mike Hammernik <mhammer@execpc.com>
Subject: Re: ? about match and rename
Message-Id: <Pine.GSO.3.96.970518164323.18750C-100000@kelly.teleport.com>
On Sun, 18 May 1997, Mike Hammernik wrote:
> while (<FILE>) {
> if ($_ =~ /hudson/) {
> print "$_\n";
> last;
> print "$file\n" || die "Can't print what ain't there $!";
First problem: Once you say 'last', perl can't get to any more statements.
If you use -w to warn you about funny stuff, perl will tell you when you
do that.
Second problem: That print statement is parsed as this.
print ("$file\n" || die "Blah...$!");
Fortunately (or unfortunately, depending on how you look at things) the
first operand to the or will always be true, so this will never die.
(And if it did, it's not obvious to me what $! would contain.) Maybe
you wanted this.
die "No value for $file" unless length $file;
print "$file\n";
I don't think those were the only problems with your script, but you'll
probably find more if you step through it with the perl debugger. You can
print out values as you go along, and see when your script takes a wrong
turn.
> I appreciate the time people spend to look and help someone like myself
> get better at PERL. Especially when we sometimes ask dumb questions. Is
> it appropriate to send a private e-mail to my mentor and thank him/her.
Speaking only for myself, it's nice to hear from someone who's grateful,
but it's never expected or required. If you ever feel amazingly grateful
and have an urge to send flowers or chocolates, check out the Randal
Schwartz case mentioned below. Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Sun, 18 May 1997 18:04:56 -0400
From: Richard Palmer <richard@menus.atlanta.com>
Subject: building perl error
Message-Id: <337F7D08.353B@menus.atlanta.com>
While trying to build perl on my solaris 2.5 system, I get the following
error when I run make.
# make
make: Warning: Both `makefile' and `Makefile' exist
`sh cflags libperl.a miniperlmain.o` miniperlmain.c
CCCMD = gcc -c -I/usr/local/include -O
In file included from perl.h:39,
from miniperlmain.c:10:
config.h:1551: unterminated string or character constant
config.h:1531: possible real start of unterminated constant
config.h:18: unterminated `#if' conditional
*** Error code 1
make: Fatal error: Command failed for target `miniperlmain.o'
Any suggestions would be appreciated.
Thanks,
Richard
richard@menus.atlanta.com
------------------------------
Date: 18 May 1997 20:26:23 GMT
From: jimc@zach1.tiac.net (James E. Carpenter)
Subject: Checking $test{foo}{bar} creates $test{foo}???
Message-Id: <slrn5nupi5.73e.jimc@zach1.tiac.net>
I'm using Perl5.004 under Linux 2.0.29. And please keep in mind that I'm
still new to Perl.
Can anyone tell me why $test{foo} is being created by line #2 in the sample
script below?
print "This shouldn't and doesn't show\n" if $test{foo};
print "This shouldn't and doesn't show\n" if $test{foo}{bar};
print "This shouldn't show but does\n" if $test{foo};
I also read in the Perl FAQ under "Why does passing a subroutine an undefined
element in a hash create it?":
> Normally, merely accessing a key's value for a nonexistent key does
> *not* cause that key to be forever there. This is different than awk's
> behavior.
I'm really confused. Is this a bug in Perl, a Perl feature, or am I missing
something???
Is there an easy way around this? I know I could test every key but testing
for $test{a}{b}{c}{d} could get ugly.
- Jim
--
James E. Carpenter E-Mail: jimc@zach1.tiac.net
6 Munroe Drive
Plainville, MA 02762-1108 ICBM: 42 00' 15"N 71 20' 00"W
------------------------------
Date: Sun, 18 May 1997 18:07:59 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: for loop ?
Message-Id: <EAE2DC.Ktt@nonexistent.com>
On 18 May 1997 05:41:23 GMT, Chipmunk wrote in comp.lang.perl.misc
URL: news:5lm4q3$4ml$2@dartvax.dartmouth.edu:
++ In article <337C6922.396@mathematica-mpr.com>
++ the count <eglamkowski@mathematica-mpr.com> writes:
++
++ > if you want something like:
++ > for (; $x > 0; $x--)
++ >
++ > can you shorten it to:
++ > for ($x .. 1)
++ > ?
++
++ I think the range operator .. can only count upwards. So if $x were
++ greater than 1, you'd get a null array.
foreach (reverse (1 .. $x)) {}
Abigail
------------------------------
Date: Sun, 18 May 1997 16:41:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Chipmunk <Ronald.J.Kimball@dartmouth.edu>
Subject: Re: for loop ?
Message-Id: <Pine.GSO.3.96.970518164014.18750B-100000@kelly.teleport.com>
On 18 May 1997, Chipmunk wrote:
> In article <337C6922.396@mathematica-mpr.com>
> the count <eglamkowski@mathematica-mpr.com> writes:
>
> > if you want something like:
> > for (; $x > 0; $x--)
> >
> > can you shorten it to:
> > for ($x .. 1)
> > ?
>
> I think the range operator .. can only count upwards. So if $x were
> greater than 1, you'd get a null array.
For this was the reverse function invented. Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 18 May 1997 14:24:26 -0400
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: Need help on Oraperl !!!
Message-Id: <5lnhgq$7pv$1@tholian.cse.psu.edu>
Or better yet, just fetch the full release.
John
groenvel@cse.psu.edu
------------------------------
Date: Sun, 18 May 1997 21:52:06 GMT
From: mpt1@psu.edu (Patricia Toretti)
Subject: Newbie problem with includes under Win95
Message-Id: <5lnt9l$da6$1@nadine.teleport.com>
Hi ... an absolute newbie here ... I've searched the Perl-Win32
archive, current postings in the newsgroup, the FAQ and feel like I'm
getting hints, but still missing something.
I'm using Win95, tried both the 3_4 and the 3_6 build. I ran the
setup with the Intel binary. I can run simple stuff, no problems.
THEN ... I try to include a module ... any module. I get:
>Can't locate Win32/ODBC.pm in @INC at odbctest.pl line 39
>BEGIN failed--compliation aborted at odbctest.pl line 39
I'm trying to include Win32::ODBC. I followed advice on a similar
problem and found the following in my case:
1. Did you check if C:\perl5\lib\Win32\ODBC.pm exists?
Yep, it sure does.
2. Try with a standard Perl-Win32 package and see if Perl can find it.
I tried Win32::Registry. It can't. Same error.
3. My entries in the Registry are:
HKEY_LOCAL_MACHINE\SOFTWARE\ActiveWare\Perl5
(Default) (value not set)
BIN ""
HTML-DOCS "\docs"
PRIVLIB "\lib"
I re-ran the install several times, and the registry seems not to
change. I did install Perl in C:\perl5.
--------
Sun May 18 11:09:02 1997
Installing Perl for Win32 into
Added key to HKEY_LOCAL_MACHINE\SOFTWARE\ActiveWare\Perl5 ..
Key exists already, modifying existing key...
Adding to script path information
Adding \lib to library include path information
Adding \docs to documentation directory
Attempting to change path in autoexec.bat
bootdrive is C:
Perl 95 installation finished.
--------
Any ideas on what I should look at next?
TIA
Patty Toretti
mpt1@psu.edu
Patricia Toretti
mpt1@psu.edu
"Nope, no clever sayings today ... too tired."
------------------------------
Date: Sun, 18 May 1997 22:34:32 GMT
From: mpt1@psu.edu (Patricia Toretti)
Subject: Re: Newbie problem with includes under Win95
Message-Id: <5lnvp7$f8k$1@nadine.teleport.com>
How embarassing. I edited my registry (I was reluctant to try this
because of all the dire warnings I've heard) and now I'm fine.
Is my face red!
Patricia Toretti
mpt1@psu.edu
"Nope, no clever sayings today ... too tired."
------------------------------
Date: Sun, 18 May 1997 22:22:57 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: Notice to antispammers
Message-Id: <tcyangEAEE6A.6tF@netcom.com>
Well, maybe it implies some European countries ban mailing lists totally
as Wolfgang suggested :)
Followup-To: reset for deviation from Perl.
====================
I R A Aggie (fl_aggie@hotmail.com) wrote:
: In article <5ll2e8$oil@xivic.ruhr.de>, skaranyi@LOCALHOST.ruhr.de (Wolfgang
: Schelongowski) wrote:
: + You might have heard that Tom sometimes visits Europe. Some countries
: + who sufferred under the Nazis take a dim view of people making such
: + lists. Would you love to see Tom arrested?
: I would like to see you try...
: James - at which point, I would say that you *definitely* have too much
: time on your hands...
--
Tung-chiang Yang tcyang@netcom.com
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.clever.net/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: Sun, 18 May 1997 22:22:55 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: Notice to Tom (was: Notice to antispammers)
Message-Id: <tcyangEAEE67.6so@netcom.com>
If Germany courts ruled that UCE is against the law, I am sure Berlin
also ruled that what you talked in your signature (nuking other people's
machine) is against the law.
=================================
Wolfgang Schelongowski (skaranyi@LOCALHOST.ruhr.de) wrote:
: (deleted)
: My congressman? No such being here. Besides, the highest court here
: _has_ ruled that anything like UCE is against the law. Only the USA
: insists on sending harassing email, harassing because its contents
: applies to the USA only.
: Had I known some months ago what Tom would do I would never have
: bought the new edition of the Camel book - it would have been my
: first opportunity to financially harm somebody aiding spammers.
: Of course, I will let other people know about Tom's action so they
: too can think about what to do. Sorry, Larry and Randal.
--
Tung-chiang Yang tcyang@netcom.com
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.clever.net/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: 18 May 1997 19:25:26 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Opening Javascript style windows with perl
Message-Id: <5lnl36$sc3@news-central.tiac.net>
In article <337D0252.1C63@inorbit.com>,
christopher <mrchristopher@inorbit.com> wrote:
>This might appear to be a javascript question, but is more likely a perl
>question (albeit rather cgi in form, apologies..)
>
>When printing to the browser I know I can print to a new window using
>Window-target, could someone direct me to or tell me what the perl
>syntax is for sending the window attributes to the browser too (ie size,
>toolbars etc etc) ?
>
>I would be most grateful.
Youy mighe want to look at Lincoln Stein's CGI.pm package which allows you
to set a target:
print $query->start_html(-title=>'Secrets of the Pyramids',
-author=>'fred@capricorn.org',
-base=>'true',
-target=>'_blank',
-meta=>{'keywords'=>'pharaoh secret mummy',
'copyright'=>'copyright 1996 King Tut'},
-style=>{'src'=>'/styles/style1.css'},
-BGCOLOR=>'blue');
[...]
The argument -target allows you to provide a default
target frame for all the links and fill-out forms on the
page. See the Netscape documentation on frames for
details of how to manipulate this.
-target=>"answer_window"
some of the possible targets include '_' and '_top' but you should check
out Netscape's site as well as Lincoln's at
http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Sun, 18 May 1997 15:44:22 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: perl and awk
Message-Id: <6npnl5.u52.ln@localhost>
Allon Henig (ahenig@iil.intel.com) wrote:
: Hi,
: I want to do an awk command in a perl program. If it was in the shell I
: would have done:
: awk '{FS=".";print $2}' filename
: but since I need to use it in the perl program, I need to use the
^^^^^^^^^^^^^^^^^^^^^^^^^^
1) write your awk statement in a file
2) run a2p (awk to perl translator)
3) copy the output stuff into your perl program ;-)
: 'system' command which uses the "" it'self:
: system (" awk '{FS=".";print $2}' filename ");
OR, use an alternative quoting mechanism:
system qq(awk '{FS=".";print $2}' filename);
OR escape the double quotes:
system (" awk '{FS=\".\";print $2}' filename ");
: this of course causes an error because of too much "" . Do you have any
: suggestions how to overcome this problem ?
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Sun, 18 May 1997 10:15:06 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Yvon D. Roustan" <roustan@wwa.com>
Subject: Re: Perl and PGP interface
Message-Id: <Pine.GSO.3.96.970518101409.27517J-100000@kelly.teleport.com>
On 16 May 1997, Yvon D. Roustan wrote:
> I am trying to create a subroutine to encrypt the '$message' generated
> by a perl5 script using PGP (PRETTY GOOD PRIVACY).
I think there's a module on CPAN to do that. Have you checked?
http://www.perl.org/CPAN/
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Sun, 18 May 1997 22:22:59 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: Perl script to uuencode?
Message-Id: <tcyangEAEE6C.6u8@netcom.com>
I remember an example in the first edition of the Camel book, which was
just about four or five lines. I did not finish browsing the second
edition and I cannot tell you where to find it in the second edition,
though.
==============================
Jonas J. Schlein (schlein@umbc.edu) wrote:
: In the online code examples for the 1st Edition of Programming Perl
: there's a really short and slick script to uudecode a file. Is there
: pre-written code about to also uuencode a file?
--
Tung-chiang Yang tcyang@netcom.com
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.clever.net/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: 18 May 1997 17:29:22 -0400
From: clay@panix.com (Clay Irving)
Subject: Re: perl/cgi help - need current date function
Message-Id: <5lnsbi$8l1@panix.com>
>peter.wood@axom.com (Peter Wood) said:
>> I'm trying to put a function in a cgi perl script that will print out the
>> current date into an html form field.
acs@bitstream.net (Adam Schneider) writes:
>Here's the ugly little subroutine that I wrote for my CGI stuff:
>sub CurrentTime
>{
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
> $mon += 1;
> if ($hour < 12) { $ampm = "AM"; } else { $ampm = "PM"; }
> if ($hour > 12) { $hour -= 12; }
> if ($hour == 0) { $hour = 12; }
> if ($min < 10) { $min = "0$min"; }
> $datetime = "$mon/$mday/$year, $hour:$min $ampm";
>}
How about using a Perl module?
sub CurrentTime {
use Date::Format;
$datetime = time2str("%D %r", time);
}
Subliminal Message: Perl Modules are your friend.
--
Clay Irving See the happy moron,
clay@panix.com He doesn't give a damn,
http://www.panix.com/~clay I wish I were a moron,
My God! Perhaps I am!
------------------------------
Date: Sun, 18 May 1997 10:13:50 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "craig@indelible-blue.com" <craig@indelible-blue.com>
Subject: Re: Problems running .cmd and .exe from Perl for OS/2
Message-Id: <Pine.GSO.3.96.970518101242.27517I-100000@kelly.teleport.com>
On Fri, 16 May 1997, craig@indelible-blue.com wrote:
> I am running Perl 5.0.3 for OS/2. I am trying to launch REXX scripts
> and .exe's. After reading through the docs, I tried using the system(),
> open(foo,"...") and `` commands. All of these are either crashing or
> returning nothing.
That's a bad sign. Did you get a pre-compiled perl binary? If so, it may
be mis-compiled for your machine configuration. If you compiled it
yourself, can you get it to pass the test suite which comes with the
source? Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 18 May 1997 20:23:29 GMT
From: jimc@zach1.tiac.net (James E. Carpenter)
Subject: Prototype mismatch when forward declaring subs in 5.004
Message-Id: <slrn5nupcp.73e.jimc@zach1.tiac.net>
I just got Perl5.004 and found that I couldn't do a forward declaration of a
subroutine with a prototype unless I also specified the prototype when I
defined the sub:
sub t ($);
sub t {
my $t = shift;
print "$t\n";
}
I get a "Prototype mismatch: sub main::t ($) vs none" message.
This sample worked fine in 5.003.
- Jim
--
James E. Carpenter E-Mail: jimc@zach1.tiac.net
6 Munroe Drive
Plainville, MA 02762-1108 ICBM: 42 00' 15"N 71 20' 00"W
------------------------------
Date: Sun, 18 May 1997 21:42:11 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Prototype mismatch when forward declaring subs in 5.004
Message-Id: <EAECAB.8F4@nonexistent.com>
On 18 May 1997 20:23:29 GMT, James E. Carpenter wrote in
comp.lang.perl.misc URL: news:slrn5nupcp.73e.jimc@zach1.tiac.net:
++ I just got Perl5.004 and found that I couldn't do a forward declaration of a
++ subroutine with a prototype unless I also specified the prototype when I
++ defined the sub:
++
++ sub t ($);
++
++ sub t {
++ my $t = shift;
++ print "$t\n";
++ }
++
++ I get a "Prototype mismatch: sub main::t ($) vs none" message.
++
++ This sample worked fine in 5.003.
Sounds like a bugfix to me....
Abigail
------------------------------
Date: Sun, 18 May 1997 21:55:46 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: Spy people on the Net
Message-Id: <tcyangEAECwy.4o6@netcom.com>
He posted the same thing in comp.unix.questions, and the Matlab newsgroup.
I bet this is a spam on comp.xxxx hierarchy.
If I am interested in his/her program, and installed it, I might end up
with paying $20 to him, and have *MY* screen activities spied by him.
=================================
Chris King (Chris.King@swindon-fc.demon.co.uk.mars) wrote:
: Totally the wrong NG. Still, let's see what he has to offer...
: Ever get the feeling that this guy has a different idea of what a friend is?
: Personally, I'd love it if my friends decided to infect my machine and then use most
: of the bandwidth of my modem...
: Don't you just hate bits of software like this?
--
Tung-chiang Yang tcyang@netcom.com
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.clever.net/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: Sun, 18 May 1997 10:21:59 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "John F. Whitehead" <jfw@wral-tv.wral-tv.com>
Subject: Re: stat/test and _ and efficiency
Message-Id: <Pine.GSO.3.96.970518101857.27517M-100000@kelly.teleport.com>
On 16 May 1997, John F. Whitehead wrote:
> For example, once you do a stat($file), it is more efficient in the
> future to refer to stat(_), (-e _), etc. But how do you know what the _
> refers to once you're in other subroutines?
Why not just pass the results of the stat to the sub, along with any other
parameters? The the sub has all of the information, even if you can't use
the cool -x filetests.
if (-f $file) {
&mysub($file, stat _ )
else if (-d _ ) {
&dodir($file, stat _ )
} else {
next
}
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 18 May 1997 17:35:42 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <5lnele$qs1$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 11 May 1997 17:53:27 GMT and ending at
18 May 1997 13:45:28 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(>|:|\S+>)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 398
Total number of articles: 818
Total number of threads: 330
Total volume generated: 1380.6 kb
- headers: 541.5 kb
- bodies: 783.1 kb (583.7 kb original)
- signatures: 54.2 kb
Averages
========
Number of posts per poster: 2.1
Number of posts per thread: 2.5
Message size: 1728.3 bytes
- header: 677.9 bytes
- body: 980.3 bytes (730.7 bytes original)
- signatures: 67.9 bytes
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
41 77.7 ( 24.2/ 40.6/ 26.0) mike@stok.co.uk
38 62.6 ( 29.9/ 32.7/ 23.5) Tom Phoenix <rootbeer@teleport.com>
27 51.9 ( 25.2/ 25.5/ 25.5) abigail@fnx.com
25 44.8 ( 17.1/ 27.7/ 13.5) Chipmunk <Ronald.J.Kimball@dartmouth.edu>
21 39.7 ( 12.5/ 27.2/ 16.7) Tad McClellan <tadmc@flash.net>
15 24.8 ( 11.1/ 10.6/ 6.4) I-hate-cyber-promo@man.ac.uk
12 24.6 ( 13.7/ 10.9/ 6.9) Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
10 16.6 ( 5.6/ 10.9/ 5.8) David Alan Black <dblack@icarus.shu.edu>
8 12.2 ( 7.2/ 3.6/ 3.4) I R A Aggie <fl_aggie@hotmail.com>
8 15.9 ( 5.9/ 7.1/ 5.0) Randal Schwartz <merlyn@stonehenge.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
77.7 ( 24.2/ 40.6/ 26.0) 41 mike@stok.co.uk
62.6 ( 29.9/ 32.7/ 23.5) 38 Tom Phoenix <rootbeer@teleport.com>
51.9 ( 25.2/ 25.5/ 25.5) 27 abigail@fnx.com
44.8 ( 17.1/ 27.7/ 13.5) 25 Chipmunk <Ronald.J.Kimball@dartmouth.edu>
39.7 ( 12.5/ 27.2/ 16.7) 21 Tad McClellan <tadmc@flash.net>
24.8 ( 11.1/ 10.6/ 6.4) 15 I-hate-cyber-promo@man.ac.uk
24.6 ( 13.7/ 10.9/ 6.9) 12 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
21.4 ( 3.9/ 16.0/ 14.4) 6 Dean Pentcheff <dean@tbone.biol.sc.edu>
17.0 ( 3.2/ 13.7/ 5.7) 5 zonycat@flash.net
16.6 ( 5.6/ 10.9/ 5.8) 10 David Alan Black <dblack@icarus.shu.edu>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
19 Randal Schwartz
12 New draft of scripting white paper
11 inclu-OR in regex
10 regrex question - really basic!
10 Weather Forecasts via perl
9 Regex problem - removing trailing form input
8 idea for new for loop construct
8 CGI Environment vars
7 ls vs. readdir
7 List of List Question I think (assigning LOTS of variables.)
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
31.9 ( 11.2/ 19.0/ 12.3) 12 New draft of scripting white paper
27.1 ( 12.9/ 12.7/ 8.2) 19 Randal Schwartz
25.1 ( 3.9/ 21.1/ 13.1) 5 REQ: Perl obfuscator
18.5 ( 5.8/ 11.7/ 6.2) 7 List of List Question I think (assigning LOTS of variables.)
18.5 ( 2.9/ 15.1/ 14.9) 3 Update: Comparing C, Lisp, Tcl, Perl, Python, Java, & Scheme (Guile) Using a Floating Point Numerical Test - Point Inside Polygon
18.2 ( 7.8/ 10.2/ 5.9) 10 regrex question - really basic!
15.4 ( 7.2/ 8.0/ 5.1) 11 inclu-OR in regex
14.8 ( 0.9/ 13.9/ 13.9) 1 [2nd DRAFT] RFD: comp.lang.perl reorg
14.8 ( 6.4/ 7.9/ 4.8) 9 Regex problem - removing trailing form input
14.7 ( 7.5/ 6.1/ 4.3) 10 Weather Forecasts via perl
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
17 comp.lang.scheme
17 comp.lang.lisp
17 comp.lang.tcl
17 comp.lang.python
15 alt.fan.e-t-b
14 comp.lang.perl.modules
12 comp.lang.perl
12 comp.lang.eiffel
12 comp.lang.c++
7 comp.lang.misc
Top 10 Crossposters
===================
Articles Address
-------- -------
18 cimarron@dis.org
12 Raymond Johnson <rjohnson@Sun.COM>
11 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
8 Terrence M. Brannon <brannon@bufo.usc.edu>
8 Jeffrey Mark Siskind <qobi@ai.emba.uvm.edu>
8 Fritz Heinrichmeyer <fritz.heinrichmeyer@FernUni-Hagen.de>
7 Tim Murray <seiken@gate.net>
7 John Watton <john.watton@alcoa.com>
7 "Robert Pate" <robert@ctllc.com>
7 Scott McMahan <scott@lighthouse.softbase.com>
------------------------------
Date: 18 May 1997 17:59:32 GMT
From: I-hate-cyber-promo@man.ac.uk (A. Deckers)
Subject: Re: Year 2000 compliance
Message-Id: <slrn5nugrr.l2b.I-hate-cyber-promo@nessie.mcc.ac.uk>
In comp.lang.perl.misc,
sysmm@smtp.ais.ucla.edu wrote:
>We have several scripts in production using perl 5.001. Has anyone seen
>any mention of Year 2000 compliance or issues with perl? We are trying
>to determine how much work/installations/upgrades we have outstanding in
>preparation for the millenium change. I'd appreciate a direct response
>to my email address so I don't miss any postings.
It _really_ pays to read the FAQ.
8< snip, snip 8<
=head2 Does Perl have a year 2000 problem?
Not unless you use Perl to create one. The date and time functions
supplied with perl (gmtime and localtime) supply adequate information
to determine the year well beyond 2000 (2038 is when trouble strikes).
The year returned by these functions when used in an array context is
the year minus 1900. For years between 1910 and 1999 this I<happens>
to be a 2-digit decimal number. To avoid the year 2000 problem simply
do not treat the year as a 2-digit number. It isn't.
When gmtime() and localtime() are used in a scalar context they return
a timestamp string that contains a fully-expanded year. For example,
C<$timestamp = gmtime(1005613200)> sets $timestamp to "Tue Nov 13 01:00:00
2001". There's no year 2000 problem here.
8< snip, snip 8<
Alain
------------------------------
Date: 18 May 1997 18:56:43 GMT
From: junkmail@sysa.abdn.ac.uk (Kyzer)
Subject: Re: Year 2000 Issues with Perl5
Message-Id: <5lnjdb$gqt@info.abdn.ac.uk>
Tony Zaki of sukhr@bu.edu wrote in comp.lang.perl.misc:
: Hi all..
: Could someone please direct me to any site that has more information regarding
: Perl5 and problems with the year 2000 ???
This is in the FAQ, and it states that Perl has no problems with the year
2000. It gives no such promises for the year 2078....
: We are investigating the consequences of that year on our Software, and
I love it when people capitalize Certain words. Makes it seem like they're
Management....
I was reading a panic-book about the year 2000. It forecast doom misery,
plague, famine, and ALL the computers in the world to go wrong all at once...
Needless to say, it made no logical sense to a programmer. It could easily
have been written for Management alone, as there was an American phone number
in the back for some computer consultants.... really people...
The year 2000 is a year that simply sorts the men from the boys. A very long
time ago, somebody in the world of Bad Software Consultancy decided that noone
would be using a particular brand of computer by the year 2000, and decided
to represent dates as 2 ascii digits instead of 4 (or in fact 2 bytes instead
of 2 ascii digits, which would only start causing problems in the year 65536)
to represent a year. Perl was not written by BSC inc, and has no such problems.
: specially our website which is totally based on Perl..
Sounds good...
--
Stuart 'Kyzer' Caie - Kyzer/CSG |undergraduate of Aberdeen University |100%
http://www.abdn.ac.uk/~u13sac |My opinions aren't those of Aberdeen |Amiga -
kyzer@4u.net kyzer@hotmail.com |University or AUCC, thankfully.***** |always!
--
Random sig of the day:
AtheistCode(v1.0) ACv1.0 DUR5 STR4 BIT4 ACT1 DEF4 DEB5 CON1 SLM5 XTN4 PUB2
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 496
*************************************
