[8772] in Perl-Users-Digest
Perl-Users Digest, Issue: 2390 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 22 13:37:35 1998
Date: Wed, 22 Apr 98 10:33:38 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 22 Apr 1998 Volume: 8 Number: 2390
Today's topics:
Re: using unpack to generate checksums. (Jason Gloudon)
Re: Vi does not need to be a part of Linux <lamber45@EGR.msu.edu>
Re: Vi does not need to be a part of Linux <zkessin@lhr-sys.dhl.com>
Re: Wanna laugh? (My First cgi.pm Script) <rjk@coos.dartmouth.edu>
Re: Wanna laugh? (My First cgi.pm Script) (Michael J Gebis)
Re: Wanna laugh? (My First cgi.pm Script) (Tad McClellan)
Re: Wanna laugh? (My First cgi.pm Script) (Craig Berry)
wanted: small authenticating server for local news (Jackie Hamilton)
Re: wanted: small authenticating server for local news (tom minchin)
Re: What does "Illegal modulus zero" mean? <Russell_Schulz@locutus.ofB.ORG>
Re: What does "Illegal modulus zero" mean? <ian@lynagh.demon.co.uk>
Re: What does "Illegal modulus zero" mean? <vallon@pearl.fi.bear.com>
Win 32 SNMP and NT <wassonj@mindspring.com>
Re: Win32 OLE Help with function (Jan Dubois)
Win32: Can't locate auto/Text/ParseWords/quotewords.al donotspam-jen@personic.com
Re: Win32: Can't locate auto/Text/ParseWords/quotewords <ebohlman@netcom.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 21 Apr 1998 02:14:16 GMT
From: jgloudon@hyssop.bbn.com.bbn.com (Jason Gloudon)
Subject: Re: using unpack to generate checksums.
Message-Id: <slrn6jo07k.798.jgloudon@hyssop.bbn.com>
Fergus McMenemie <fergus@twig.demon.co.uk> wrote:
> The perl books describe how the unpack function can be
> used to generate checksums. Both the chamel books provide
> an example that is claimed to emulate the UNIX SYS5 sum
> command.
> I gave this a go but cant get the perl generated checksum
> to match either the BSD or SYS5 sum commands or the cksum
> command.
>From my NetBSD sum(1) manpage, the sum that the unpack command generates
is equivalent to the SYSV 'sum -r' but plain 'sum' uses a different algorithm
which is the same as on BSD.
--
Jason Gloudon
------------------------------
Date: Tue, 21 Apr 1998 01:46:42 -0400
From: David Lee Lambert <lamber45@EGR.msu.edu>
Subject: Re: Vi does not need to be a part of Linux
Message-Id: <Pine.GSO.3.96.980421014406.8907A-100000@area51>
On 21 Apr 1998, Dennis Iannicca wrote:
> Sam Trenholme <set@netcom.com> wrote:
> : I didn't think of making the /etc/profile customization part of the
> : distro w/o vi. Of course, /bin/vi should do *something*, though invoking
> : the vi editor does not need to be the *something* it does.
>
> True. It could also invoke vim or elvis. :)
What about having it invoke a vi clone written in perl? Perl has the
regexp stuff, and a whole file could be read in as an array, right? The
only problem would be cursor-positioning.
--
m/lamber45\100(egr|pilot)\.msu\.edu/ and print <<MHM16x20
David Lee Lambert -- Just another perl hacker
webstuph at http://web.egr.msu.edu/~lamber45
MHM16x20
------------------------------
Date: 21 Apr 1998 08:26:14 +0100
From: Zachary Kessin <zkessin@lhr-sys.dhl.com>
Subject: Re: Vi does not need to be a part of Linux
Message-Id: <ura2rab55.fsf@lhr-sys.dhl.com>
David Lee Lambert <lamber45@EGR.msu.edu> writes:
> On 21 Apr 1998, Dennis Iannicca wrote:
>
> > Sam Trenholme <set@netcom.com> wrote:
> > : I didn't think of making the /etc/profile customization part of the
> > : distro w/o vi. Of course, /bin/vi should do *something*, though invoking
> > : the vi editor does not need to be the *something* it does.
> >
> > True. It could also invoke vim or elvis. :)
>
> What about having it invoke a vi clone written in perl? Perl has the
> regexp stuff, and a whole file could be read in as an array, right? The
> only problem would be cursor-positioning.
Stupid Question:
Why? If you have VI (Well elvis) in C it will be faster then one
written in perl, and its rather well debuged by now.
--Zach
------------------------------
Date: Sun, 19 Apr 1998 17:11:49 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Wanna laugh? (My First cgi.pm Script)
Message-Id: <353A6898.AB48E16A@coos.dartmouth.edu>
Bart Lateur wrote:
>
> print while <HANDLE>;
>
> That's strange. It DOES work.
> [...]
> Is this behaviour in the docs? I can't find it.
You mean like in the perlop documentation, under I/O operators, where it says:
Anyway, the following lines are equivalent to each other:
while (defined($_ = <STDIN>)) { print; }
while (<STDIN>) { print; }
for (;<STDIN>;) { print; }
print while defined($_ = <STDIN>);
print while <STDIN>;
:-)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 20 Apr 1998 23:50:16 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Wanna laugh? (My First cgi.pm Script)
Message-Id: <6hgmvo$pqn@mozo.cc.purdue.edu>
wsmith@NOSPAM.ctron.com (Will Smith) writes:
}On Fri, 17 Apr 1998 12:12:58 GMT, John Porter <jdporter@min.net>
}wrote:
}|>> TANSTAAFL. FNORD. :)
}|>
}|>What do these stand for?
}(T)here (A)in't (N)o (S)uch (T)hing (A)s (A) (F)ree (L)unch.
}i don't know what "FNORD" means.
That must have been a typo--there is no such thing as FNORD.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Mon, 20 Apr 1998 19:18:14 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Wanna laugh? (My First cgi.pm Script)
Message-Id: <6kogh6.im2.ln@localhost>
Michael J Gebis (gebis@albrecht.ecn.purdue.edu) wrote:
: wsmith@NOSPAM.ctron.com (Will Smith) writes:
: }On Fri, 17 Apr 1998 12:12:58 GMT, John Porter <jdporter@min.net>
: }wrote:
: }|>> TANSTAAFL. FNORD. :)
: }|>
: }|>What do these stand for?
: }(T)here (A)in't (N)o (S)uch (T)hing (A)s (A) (F)ree (L)unch.
: }i don't know what "FNORD" means.
: That must have been a typo--there is no such thing as FNORD.
TINSTAFNORD then? ;-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 21 Apr 1998 04:11:06 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Wanna laugh? (My First cgi.pm Script)
Message-Id: <6hh68r$5o4$1@marina.cinenet.net>
Tad McClellan (tadmc@flash.net) wrote:
: TINSTAFNORD then? ;-)
Isn't Tinstafnord, Norway hosting the 2006 Winter Olympics?
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 21 Apr 1998 02:18:29 GMT
From: kira@dillinger.io.com (Jackie Hamilton)
Subject: wanted: small authenticating server for local news
Message-Id: <6hgvll$2ia$1@nntp-2.io.com>
Are there any options for free or inexpensive NNTP servers other than
CNews and INN? I want to run a small, private news server, that will only
have local newsgroups, will not accept or send a news feed, and...
preferably, has some kind of authentication module. I don't expect to
find exactly what I want - something that will authenticate against a sql
db - so I'll probably have to hack it myself, but since I'm such a crummy
C programmer a separate module would be easiest... even flat-file
authentication would be a good start. Either that or a server that's
entirely written in Perl.
Is there hope?
(I'd actually tried implementing my own server, implementing the RFC 977
commands, but a good 80% of the newsreaders seem to barf on it. Is there
some other set of commands I'm missing?)
--
-Jackie Hamilton (kira@io.com)
http://www.lightsphere.com/
------------------------------
Date: 21 Apr 1998 16:36:09 +1000
From: tom@black.interact.net.au (tom minchin)
Subject: Re: wanted: small authenticating server for local news
Message-Id: <6hheop$pj4$1@black.interact.net.au>
kira@dillinger.io.com (Jackie Hamilton) writes:
>Are there any options for free or inexpensive NNTP servers other than
>CNews and INN? I want to run a small, private news server, that will only
>have local newsgroups, will not accept or send a news feed, and...
>preferably, has some kind of authentication module. I don't expect to
>find exactly what I want - something that will authenticate against a sql
>db - so I'll probably have to hack it myself, but since I'm such a crummy
>C programmer a separate module would be easiest... even flat-file
>authentication would be a good start. Either that or a server that's
>entirely written in Perl.
Has anyone implanted PAM into INN? That could provide a lot of auth modules
indirectly for Linux and Solaris 2.6 platforms (and anyone else who uses
PAM).
Also, panix have written an extension to INN which also seems to allow external
authentication (Gizmo http://www.panix.com/gizmo/).
tom@interact.net.au
------------------------------
Date: Sun, 19 Apr 1998 13:28:49 +0100
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: What does "Illegal modulus zero" mean?
Message-Id: <19980419.132849.4A3.rnr.w164w@locutus.ofB.ORG>
Ian Lynagh <ian@lynagh.demon.co.uk> writes:
> DB<6> p 9862777291 % 4294967296
> Illegal modulus zero at (eval 11) line 2, <IN> chunk 9.
in 32-bit integer math, the latter value _is_ 0.
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Mon, 20 Apr 1998 15:35:10 +0100
From: Ian Lynagh <ian@lynagh.demon.co.uk>
Subject: Re: What does "Illegal modulus zero" mean?
Message-Id: <gi8NiBAe01O1EwLP@lynagh.demon.co.uk>
In article <Pine.GSO.3.96.980417121612.8799I-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> writes
>On Fri, 17 Apr 1998, Ian Lynagh wrote:
>
>> Can anyone explain the following?
>>
>> DB<6> p 9862777291 % 4294967296
>> Illegal modulus zero at (eval 11) line 2, <IN> chunk 9.
>
>Sure. As an integer, 4294967296 is the same as zero, on your machine. :-)
>
>Some float-to-integer-related bugs, possible including this one, have been
>fixed in 5.004.
-=-=-
c:\windows\desktop>perl -v
This is perl, version 5.004_02
[...]
-=-=-
Although I suppose the Win32 version might be out of date. I'll have to
try it in Linux when I get a sec.
>Hope this helps!
Thanks, I'll try the Math::BigInt module.
--
Ian Lynagh - ian@lynagh.demon.co.uk
http://home.sn.no/~balchen/igloo/
OS/2? What's that? Half of an Operating System?
------------------------------
Date: 20 Apr 1998 19:56:08 -0400
From: Justin Vallon <vallon@pearl.fi.bear.com>
Subject: Re: What does "Illegal modulus zero" mean?
Message-Id: <x6eiuo4m4iv.fsf@pearl.fi.bear.com>
The obvious answer:
4294967296 == 2**32.
It seems that % is being applied using integers (though it
really shouldn't, should it?), 9862777291%4294967296 ==
986277291%0. Bad! Division by zero!
It sure looks like it:
$ perl5 -e 'print 5 % (4294967296+3)'
2
$ perl5 -e 'print 5 % (4294967296+4)'
1
Bug? You decide.
ced@bcstec.ca.boeing.com (Charles DeRykus) writes:
> In article <4y5L2AAHs1N1EwR+@lynagh.demon.co.uk>,
> Ian Lynagh <ian@lynagh.demon.co.uk> wrote:
> >
> > Can anyone explain the following?
> >
> > DB<6> p 9862777291 % 4294967296
> > Illegal modulus zero at (eval 11) line 2, <IN> chunk 9.
> >
> >
>
> Perhaps a bug... although my eyes aren't good enough to look
> at the bug list anymore.
>
> This seems to work though:
>
> DB<1> use Math::BigInt
>
> DB<2> $i=new Math::BigInt '9862777291'
>
> DB<3> $j = new Math::BigInt '4294967296'
>
> DB<4> p $i % $j,"\n"
> +1272842699
>
>
> HTH,
> --
> Charles DeRykus
--
-Justin
vallon@bear.com
------------------------------
Date: Tue, 21 Apr 1998 22:08:47 -0400
From: "Joel Wasson" <wassonj@mindspring.com>
Subject: Win 32 SNMP and NT
Message-Id: <6hjj2d$rn9$1@camel15.mindspring.com>
I am looking for some of examples to use perl for monitoring Windows NT
Servers. I would like to beable to connect to the server monitor disk
space, uptime, event log the works.
Any info or books to buy would be appreciated. My exp with perl has mostly
been with file manipulation and
cgi programing.
thanks
------------------------------
Date: Tue, 21 Apr 1998 23:45:19 +0200
From: jan.dubois@ibm.net (Jan Dubois)
Subject: Re: Win32 OLE Help with function
Message-Id: <35411172.14378034@news2.ibm.net>
[mailed & posted]
jimh@sssi.com (Jim Hutchins) wrote:
>I'm geting the following error on line 208::
>
>With($ex->Selection->Borders->{'xlDiagonalDown'}, LineStyle => $xlNone);
I think you should write it like this:
$ex->Selection->Borders($xlDiagonalDown)->{LineStyle} = $xlNone;
-Jan
------------------------------
Date: Sun, 19 Apr 1998 19:20:11 -0600
From: donotspam-jen@personic.com
Subject: Win32: Can't locate auto/Text/ParseWords/quotewords.al in @INC at exfld line 25
Message-Id: <6he4c4$bb9$1@nnrp1.dejanews.com>
I have no problem using quotewords on my RedHat Linux box, but when I try to
run the same script under Win95 using ActiveState's perl, I get this error:
Can't locate auto/Text/ParseWords/quotewords.al in @INC at exfld line 25
Can anyone give me a tip on what I'm doing wrong?
Thanks!
Jen
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 20 Apr 1998 22:55:18 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Win32: Can't locate auto/Text/ParseWords/quotewords.al in @INC at exfld line 25
Message-Id: <ebohlmanErqIC6.4wE@netcom.com>
donotspam-jen@personic.com wrote:
: I have no problem using quotewords on my RedHat Linux box, but when I try to
: run the same script under Win95 using ActiveState's perl, I get this error:
: Can't locate auto/Text/ParseWords/quotewords.al in @INC at exfld line 25
: Can anyone give me a tip on what I'm doing wrong?
Text::Parsewords is incorrectly installed in the ActiveState port
(apparently the proper autosplit was never done. I sxolved the problem
myself once, but I can't remember how and I've subseaquently migrated to
the Sartathy port, whic has everything installed correctly. Unless
you're doing CGI work that 's heavily dependent on special services
offerred by Microsoft IIS, I'd suggest migrating to the Sarathy port.
(Excuse all the typos; I'm editing onl,ine on a system that's running
like iced molasses.)
------------------------------
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 2390
**************************************
