[11020] in Perl-Users-Digest
Perl-Users Digest, Issue: 4620 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 11 15:07:15 1999
Date: Mon, 11 Jan 99 12:00:20 -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 Mon, 11 Jan 1999 Volume: 8 Number: 4620
Today's topics:
Re: a question for perl gurus (I think) <jdf@pobox.com>
Active State package questions <blavender@spk.usace.army.mil>
calling a c pgm with PERL system (what is syntax?) <mjw@hrb.com>
Re: calling a c pgm with PERL system (what is syntax?) (Greg Ward)
Re: Can I execute Perl Scipt from VB ? <bsumpter@msn.com.au>
CGI.pm tables shaundoolan@my-dejanews.com
Re: CGI.pm tables <mclellan@ReactionDesign.com>
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <domweb@mbox.ki.se>
help needed to find the size of a file using perl <amit@remarq.com>
Re: help needed to find the size of a file using perl <uri@home.sysarch.com>
Re: How can I compare two arrays? (Randal L. Schwartz)
Re: How can I compare two arrays? <uri@home.sysarch.com>
Re: If Larry Wall's listening out there.... droby@copyright.com
Re: If Larry Wall's listening out there.... droby@copyright.com
Re: internal error: glob failed (Dan Wilga)
Re: Is it a good idea to rebless a reference? (Greg Ward)
Re: Perl TK text question <tturton@cowboys.anet-dfw.com>
Re: Problem compiling Perl 5.004... (Greg Ward)
Re: rounding (Greg Ward)
rpm 5.005_?? ? <squid@panix.com>
Re: Sending SMS messages with perl script ?? <paul@miraclefish.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Year 2038 problem (Bart Lateur)
Re: Year 2038 problem <garethr@cre.canon.co.uk>
Re: Year 2038 problem (Randal L. Schwartz)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Jan 1999 19:08:32 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: "Stefan Berger" <s.berger@intershop.de>
Subject: Re: a question for perl gurus (I think)
Message-Id: <m3sodh65sv.fsf@joshua.panix.com>
"Stefan Berger" <s.berger@intershop.de> writes:
> 1. does keys %hash always return the same array (elements in the
> same order)
As long as you have not modified the hash between calls to keys().
Otherwise, all bets are off.
> 2. does keys and values return always arrays (arrays have deterministic
> order) that have a "corresponding" order?
> I could not find any hints in the "manual".
You must have looked in the wrong "manual".
$ perldoc -f keys
=item keys HASH
Returns a list consisting of all the keys of the named hash. (In a
scalar context, returns the number of keys.) The keys are returned in
an apparently random order, but it is the same order as either the
C<values()> or C<each()> function produces (given that the hash has not been
modified). As a side effect, it resets HASH's iterator.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 11 Jan 1999 19:40:12 GMT
From: Brian Lavender <blavender@spk.usace.army.mil>
Subject: Active State package questions
Message-Id: <77dk2r$4sl$1@nnrp1.dejanews.com>
Where do I find what modules have been compiled into packages for the PPM
(Perl Package Manager)? I can't find a list on the http://www.ActiveState.com
website. I need to know that DBI, DBD for ODBC, and DBD for Oracle are
available.
This is the situation I am faced with. Maybe you can offer further advice.
Currently, I am using the Gurusamy Perl port which works great with ODBC, yet
it needs a patch to properly work with DBD Oracle. I would like to use the
Oracle DBD driver. Jeff Urlwin's page http://www.access.digex.net/~jurlwin/
used to have an update for the DBD for Oracle. He removed that with the
recommendation that users switch to the Active State version of Perl and use
the PPM (Perl Package Manager). I am faced with the decision of moving to
that version of PERL with the hopes that I can get the DBI/DBD interface
working with Oracle's SQL Net and ODBC. Is this a safe move?
brian
-----
Brian E. Lavender
US Army Corps of Engineers -- Programmer / Systems Analyst
Sacramento, CA (916) 557-6623
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 11 Jan 1999 13:17:57 -0600
From: "Michael J. Wrobel" <mjw@hrb.com>
Subject: calling a c pgm with PERL system (what is syntax?)
Message-Id: <369A4E64.7CF1B41F@hrb.com>
Hi,
I have a perl cgi script where I want to use system to call a C
program. I want to pass paramaters to this c executable and return 2
parameters. Would anyone know the syntax of this problem?
Thanks in advance,
Mike
------------------------------
Date: 11 Jan 1999 19:21:01 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: calling a c pgm with PERL system (what is syntax?)
Message-Id: <77diut$de2$4@news0-alterdial.uu.net>
Michael J. Wrobel <mjw@hrb.com> wrote:
> I have a perl cgi script where I want to use system to call a C
> program. I want to pass paramaters to this c executable and return 2
> parameters. Would anyone know the syntax of this problem?
Sure. I'm assuming you've compiled your C program into a binary called
"foo", and your list of command-line arguments to it is @foo_args. Do
this:
system 'foo', @foo_args;
die "foo failed\n" unless $? == 0;
This is all copiously documented. "perldoc -f system" for details.
As for "returning 2 parameters": what are you talking about? When you
run an external program, there are generally two ways to get results
back: read the other program's stdout (use backquotes in quick hacks, or
open a pipe in production code), and check its termination status ($?).
Either way, you get a single big chunk of text or a single integer --
so how can you expect 2 things back?
(Of course, you could always write the C program so that its output is
easily parsed by your Perl script: eg. put each "return value" of
interest on a separate line, and then `split ("\n", ...)' when back in
Perl. It's trivial if you have control over the C program, merely
tedious otherwise. ;-)
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: Tue, 12 Jan 1999 06:22:18 +1100
From: "Barry G. Sumpter" <bsumpter@msn.com.au>
Subject: Re: Can I execute Perl Scipt from VB ?
Message-Id: <77diro$7cd$1@m2.c2.telstra-mm.net.au>
Thanks for that - but how do I get Perl to return
an error code thru the Shell command?
baz
Bart Lateur wrote in message <369db020.2522265@news.skynet.be>...
>Barry G. Sumpter wrote:
>
>>Feel free to identify the system command your refering to.
>
>>>I've not used VB since I saw the light many years ago, but I'd be very
>>>surprised if it didn't support some kind of 'system' command to run
>>>external programs. What's to stop you using that to call your Perl
>>>scrits?
>
>VB's "Shell" (programs only) or the ShellExecute API call.
>
> Bart.
------------------------------
Date: Mon, 11 Jan 1999 18:05:45 GMT
From: shaundoolan@my-dejanews.com
Subject: CGI.pm tables
Message-Id: <77dehm$vns$1@nnrp1.dejanews.com>
When using CGI.pm to print my html, I'm having trouble printing values of
variables inside the code for printing the table cell. I can't get it to
evaluate these variables with the way I currently have it.....any suggestions?
I'm trying to do the following:
print Tr([td({-colspan=>'2'},
['Description:<br><i>$description</i><br>'])]);
Also, is there any way to use the standard methods for using other tags inside
the table cell? I'm guessing I need a totally different approach here.....
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 11 Jan 1999 11:43:51 -0800
From: "Clifton L. McLellan" <mclellan@ReactionDesign.com>
Subject: Re: CGI.pm tables
Message-Id: <5vsm2.647$6P4.7922@news.connectnet.com>
Variables are only expanded inside double quotes, not single quotes -- you
remember that!
--
Hope this helps,
Clifton L. McLellan
shaundoolan@my-dejanews.com wrote in message
<77dehm$vns$1@nnrp1.dejanews.com>...
>When using CGI.pm to print my html, I'm having trouble printing values of
>variables inside the code for printing the table cell. I can't get it to
>evaluate these variables with the way I currently have it.....any
suggestions?
>
>I'm trying to do the following:
>
>print Tr([td({-colspan=>'2'},
> ['Description:<br><i>$description</i><br>'])]);
>
>Also, is there any way to use the standard methods for using other tags
inside
>the table cell? I'm guessing I need a totally different approach here.....
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 11 Jan 1999 17:55:14 GMT
From: Dominic-Luc Webb molmed <domweb@mbox.ki.se>
To: duz <insert@email.address>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <Pine.HPP.3.96.990111185405.20337C-100000@mbox.ki.se>
One thing for sure... Jesus was not an amateur astronomer=20
and was never known for building telescopes which makes me=20
wonder how he ended up here at alt...astro
Cheers,
Dominic
North 59 37' 30"
East 17 48' 10"
_______________________________________
Dominic-Luc Webb, doktorande
Lab:
Department of Molecular Medicine
Endocrinology and Diabetes Unit
Rolf Luft Center for Diabetes Research
Karolinska Hospital L6B:01
S-17176 Stockholm
Sweden
Tel: Int+46-8-517-75727
Fax: Int+46-8-517-73658
Home:
Tingvallav. 88, 1 tr
195 32 M=E4rsta
Sweden
Tel/Data/Fax: Int+46-8-591-27121 (UNIX dialin server)
Internet Email: dominic@enk.ks.se
Fidonet Netmail: 2:201/645.13
________________________________________
------------------------------
Date: Mon, 11 Jan 1999 11:21:49 -0800
From: amit saha <amit@remarq.com>
Subject: help needed to find the size of a file using perl
Message-Id: <369A4F4C.E132A53B@remarq.com>
I need to know the size of a file. How can I do so using perl ?
Please, help me with some sample code.
Appreciate your help.
thanks,
Amit
------------------------------
Date: 11 Jan 1999 14:34:01 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: help needed to find the size of a file using perl
Message-Id: <x74spxioye.fsf@home.sysarch.com>
>>>>> "as" == amit saha <amit@remarq.com> writes:
as> I need to know the size of a file. How can I do so using perl ?
as> Please, help me with some sample code.
-s 'file'
read about file operators in perlfunc.
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 11 Jan 1999 10:09:51 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: How can I compare two arrays?
Message-Id: <m11zl1fzps.fsf@halfdome.holdit.com>
>>>>> "Larry" == Larry Rosler <lr@hpl.hp.com> writes:
Larry> The time needed to create the hash is O(n), obviously.
Not so obviously. :) I suspect that the time needed to create the hash
actually goes up a bit as the size increases. Perhaps O(n**1.5) or
so. The problem is when you get to a full hashbucket, you have to
rebucket the entire hash. (Or at least that's how I understand it.)
*Access* time is reasonably constant, regardless of the size of the
hash, however.
I think abigail did some benchmarks on this once.
print "Just another Perl hasher,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 11 Jan 1999 13:52:18 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: How can I compare two arrays?
Message-Id: <x77lutiqvx.fsf@home.sysarch.com>
>>>>> "RLS" == Randal L Schwartz <merlyn@stonehenge.com> writes:
>>>>> "Larry" == Larry Rosler <lr@hpl.hp.com> writes:
Larry> The time needed to create the hash is O(n), obviously.
RLS> Not so obviously. :) I suspect that the time needed to create the hash
RLS> actually goes up a bit as the size increases. Perhaps O(n**1.5) or
RLS> so. The problem is when you get to a full hashbucket, you have to
RLS> rebucket the entire hash. (Or at least that's how I understand it.)
but you can preallocate the size of the hash bucket array if you know
that in advance. that will stop the rehashing.
keys( %foo ) = 10000 ;
should do that for you.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Mon, 11 Jan 1999 17:58:22 GMT
From: droby@copyright.com
Subject: Re: If Larry Wall's listening out there....
Message-Id: <77de3s$v78$1@nnrp1.dejanews.com>
In article <77798m$i43@bgtnsc02.worldnet.att.net>,
"Charles R. Thompson" <design@raincloud-studios.com> wrote:
>
> The day I was told I could put subs in a hash, I almost went insane from
> glee. I had to restrain myself from trying to put a whole app in one. :)
>
> CT
>
Indeed. Now make a list of hashes. Call it a Table. Put some subs in it.
Call it a Control Table.
Voila!! We can do Table-Oriented Programming in Perl! Or something.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 11 Jan 1999 17:57:59 GMT
From: droby@copyright.com
Subject: Re: If Larry Wall's listening out there....
Message-Id: <77de35$v74$1@nnrp1.dejanews.com>
In article <77798m$i43@bgtnsc02.worldnet.att.net>,
"Charles R. Thompson" <design@raincloud-studios.com> wrote:
>
> The day I was told I could put subs in a hash, I almost went insane from
> glee. I had to restrain myself from trying to put a whole app in one. :)
>
> CT
>
Indeed. Now make a list of hashes. Call it a Table. Put some subs in it.
Call it a Control Table.
Voila!! We can do Table-Oriented Programming in Perl! Or something.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 11 Jan 1999 12:52:43 -0500
From: dwilgaREMOVE@mtholyoke.edu (Dan Wilga)
Subject: Re: internal error: glob failed
Message-Id: <dwilgaREMOVE-1101991252430001@wilga.mtholyoke.edu>
> In the production code , @article was a news article that had been pulled
> in, and was going to be worked on. The worrisome problem is that the error
> was kicking to a shell that began executing the @article lines.
> This is on perl5.005_02 on RH5.2 linux.
I was having the same problem using the default options. I had to go into
config.sh and change d_csh='undef' and full_csh=''.
Don't forget to use "make test". It's very helpful in pointing out these
sorts of problems.
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: 11 Jan 1999 18:45:37 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: Is it a good idea to rebless a reference?
Message-Id: <77dgsh$de2$1@news0-alterdial.uu.net>
Benjamin Smith <benbean@yahoo.com> wrote:
> I'm trying to store a list of objects I've created (I'm using the
> Class::Struct module rather than creating my own objects). I create
> objects on the fly in a loop and store the references in a list. When it
> comes time to print out the list the references have forgotten which
> class they belong to and consequently I can't call any methods on them.
Huh? I find it very odd that a reference would "forget" which class it
"belongs to" (was blessed into). How is this happening? Perhaps you
should rejigger your code so your blessed references "remember" their
classes (which should happen anyways... I wonder what's going on?).
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: Mon, 11 Jan 1999 13:01:51 -0600
From: Tom Turton <tturton@cowboys.anet-dfw.com>
To: "Stephen O. Lidie" <lusol@Pandora.CC.Lehigh.EDU>
Subject: Re: Perl TK text question
Message-Id: <369A4A9F.70668673@cowboys.anet-dfw.com>
Thanks Stephen, that did indeed do the trick.
I noticed you used a 'Scrolled' widget with a 'Text' parameter. Is there an
equivalent 'Text' widget similar to the book example (with the dashes in front of
the options)?
I don't seem to turn up any documents on Tk via manpages or perldoc (currently we
have Perl version 5.004_02 on our system). Perhaps the docs are referenced another
way?
---Tom Turton
Stephen O. Lidie wrote:
> Tom Turton <tturton@cowboys.anet-dfw.com> wrote:
>
> > Trying to experiment with Tk from Advanced Perl Programming, chapter 14
> > "Text and Entry" section, but I can't seem to get things to work. Found
> > the errata section online at O'Reilly showing that the text and
> > positioning fields in the book are swapped. Even fixing this, I am
> > still not getting expected behavior. Below is my source code and
> > results. Appreciate any and all help. Thanks.
>
> > ---Tom Turton
>
> There are *many* errors in this Tk program from Advanced Perl Programming.
> The worst are the omission of leading dashes for parameters. Why the author
> did this is beyond me....
>
> > #!/usr/local/gnu/bin/perl -w
> > use Carp;
> > use diagnostics;
> > use Tk;
>
> > $top = MainWindow->new();
>
> > $t = $top->Text(width =>80, height => 10)->pack();
>
> *All* Perl/Tk widget attributes must have a leading dash. If the errata
> doesn't reflect this then the errata is incomplete. The reason is simple:
> Perl/Tk is derived from Tcl/Tk and the dashes are manditory - the mere fact
> that you can omit them sometimes and it works is plain luck. So the above line
> is properly written thusly:
>
> $t = $top->Text(-width =>80, -height => 10)->pack();
>
> You *will* get burned if you omit the dashes, sooner rather than later !!!
>
> The next three lines are completely wrong, the code was never tested I'd
> wager.
>
> > $t->insert("2.5", "Sample");
> > $t->insert('3.10', 'Sample3');
> > $t->insert('insert +5', 'Sample2');
>
> > MainLoop();
>
> > If running the above, I get the following error:
>
> > Uncaught exception from user code:
> > bad text index "insert +5" at text.pl line 11.
>
> That's because he never specified +5 what! Characters, lines?
>
> > If I comment out that line, and run with just the "Sample"
> > and "Sample3" msgs, I get:
>
> > SampleSample3
>
> > i.e., seems to ignore the Row.Column field.
>
> Again, the code was never tested. If "2.5" (line 2, char 5) doesn't exist
> then the string is inserted after the mark "end". And since the strings have
> no "\n" they just get appended.
>
> Run this version, it'll make more sense:
>
> #!/usr/local/gnu/bin/perl -w
> use Carp;
> use diagnostics;
> use Tk;
>
> $top = MainWindow->new;
>
> $t = $top->Scrolled('Text',-width =>80, -height => 10)->pack();
> foreach (1..15) {
> $t->insert('end', "line $_\n");
> }
> $t->insert("12.0", "Sample");
> $t->insert('3.10', 'Sample3');
> $t->insert('insert +5 chars', 'Sample2');
>
> MainLoop;
>
> Looks like I should read the Tk chapters....
>
> Steve
> --
> Stephen.O.Lidie@Lehigh.EDU
> Lehigh University Computing Center, USA
------------------------------
Date: 11 Jan 1999 18:53:01 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: Problem compiling Perl 5.004...
Message-Id: <77dhad$de2$2@news0-alterdial.uu.net>
ccboone@amber.indstate.edu <ccboone@amber.indstate.edu> wrote:
> I am having difficulty compiling perl 5.004xx on a Solaris 2.6 machine. The
> machine was upgraded from 2.5.1. The machine is also a sparc 20. I have
> successfully compiled on a Ultra 10 running 2.6, but can not get the sparc 20
> to compile it. I get a message about no memory model specified. I have never
> had to specify a memory model before. Any ideas?? Please email me at
> ccboone@amber.indstate.edu
Maybe you should try a more recent version of Perl; 5.005 has been out
since last summer, and the current maintenance release is 5.00502.
You'll find it at
http://www.perl.com/CPAN/src/5.0/perl5.005_02.tar.gz
However, I don't think the build process changed much from 5.004 to
5.005 (at least not from the user's perspective). So you might have
similar problems if you keep doing things the same way. Some things to
consider:
* did you start with a completely fresh distribution (ie. no
old config.sh file)
* did you run 'Configure' manually, answering all questions in
a sensible way?
* did 'Configure' give any errors or "WHOA THERE" messages that you
brushed under the carpet?
It might be helpful if you told us exactly what you did, and showed us
the exact error message you're getting. But don't waste time with old
versions: try again with perl 5.00502.
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: 11 Jan 1999 19:08:21 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: rounding
Message-Id: <77di75$de2$3@news0-alterdial.uu.net>
Tom Cruce <tom@vitesse.com> wrote:
> Whats the best way to to round a floating point scalar into an integer ?
> I've looked around for a function
> to do this, but I can't seem to find one. Any ideas ?
Here's a function I wrote to do this:
=item round (VAL [, FACTOR [, DIR]])
Rounds VAL towards some multiple of FACTOR (which defaults to 1). If DIR
is -1, it rounds down to the next lowest multiple of FACTOR; if DIR is 0,
it rounds to the nearest multiple of FACTOR, if DIR is +1, it rounds up to
the next highest multiple of FACTOR. The default is to round to the
nearest multiple of FACTOR.
For example:
round (3.25) == 3
round (3.25, 5) == 5
round (3.25, 5, -1) == 0
round (-1.2, 2, +1) == 0
round (-1.2, 2) == -2
=cut
sub round
{
my($value, $factor, $direction) = @_;
$factor = 1 unless defined $factor;
$direction = 0 unless defined $direction;
$factor = abs ($factor);
$value /= $factor;
if ($direction == 0)
{
$value += ($value < 0.0) ? (-0.5) : (+0.5);
$value = int($value) * $factor;
}
elsif ($direction == -1)
{
$value = floor ($value) * $factor;
}
elsif ($direction == +1)
{
$value = ceil ($value) * $factor;
}
}
--
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: 11 Jan 1999 14:54:51 -0500
From: Yeoh Yiu <squid@panix.com>
Subject: rpm 5.005_?? ?
Message-Id: <oxghftxd1pw.fsf@panix.com>
Is there a red hat/intel rpm for a perl 5.005_??
http://www.redhat.com/support/linux-info/pkglist/PByName.html
lists only perl-5.004-6.
Did red-hat stop keeping rpm up to date ?
squid @ panix . com
------------------------------
Date: Mon, 11 Jan 1999 18:43:19 +0000
From: Paul Sharpe <paul@miraclefish.com>
Subject: Re: Sending SMS messages with perl script ??
Message-Id: <369A4647.204DFA77@miraclefish.com>
Peter Davidse wrote:
>
> For a hobby project i need to send SMS messages from a linux based
> webserver. Does any one know how to send SMS messages with perl.
>
> Short :
> Ping -> no reply -> SMS to my GSM
I think that some mobile phone companies provide (modem) dialup access
to SMS. If you're going to do this you might want to make it a 'mon'
alert. Mon is a system monitoring packaged written in Perl. Have a
look at http://linux-kernel.hensa.ac.uk/pub/software/admin/mon
------------------------------
Date: 11 Jan 1999 17:12:22 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <77dbdm$bcv$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 04 Jan 1999 17:02:45 GMT and ending at
11 Jan 1999 07:51:35 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\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" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 569
Articles: 1493 (485 with cutlined signatures)
Threads: 477
Volume generated: 2679.6 kb
- headers: 1065.7 kb (21,952 lines)
- bodies: 1522.0 kb (46,734 lines)
- original: 1014.6 kb (33,656 lines)
- signatures: 90.3 kb (1,998 lines)
Original Content Rating: 0.667
Averages
========
Posts per poster: 2.6
median: 1 post
mode: 1 post - 369 posters
s: 5.0 posts
Posts per thread: 3.1
median: 2 posts
mode: 1 post - 181 threads
s: 6.2 posts
Message size: 1837.8 bytes
- header: 731.0 bytes (14.7 lines)
- body: 1043.9 bytes (31.3 lines)
- original: 695.9 bytes (22.5 lines)
- signature: 62.0 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
42 68.2 ( 30.7/ 37.4/ 33.1) abigail@fnx.com
39 70.2 ( 26.8/ 35.3/ 22.7) Jonathan Stowe <gellyfish@btinternet.com>
38 54.8 ( 21.0/ 33.8/ 21.0) tadmc@metronet.com (Tad McClellan)
36 50.9 ( 23.8/ 27.1/ 18.2) "Charles R. Thompson" <design@raincloud-studios.com>
35 77.1 ( 28.0/ 41.9/ 28.0) mgjv@comdyn.com.au (Martien Verbruggen)
29 46.0 ( 24.6/ 21.4/ 12.9) bart.lateur@skynet.be (Bart Lateur)
27 84.0 ( 22.0/ 62.0/ 36.2) topmind@technologist.com
22 30.3 ( 15.8/ 12.3/ 7.2) comdog@computerdog.com (brian d foy)
22 35.8 ( 19.5/ 12.4/ 7.5) Daniel Grisinger <dgris@moiraine.dimensional.com>
21 30.0 ( 11.4/ 18.0/ 11.3) clay@panix.com (Clay Irving)
These posters accounted for 20.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
84.0 ( 22.0/ 62.0/ 36.2) 27 topmind@technologist.com
77.1 ( 28.0/ 41.9/ 28.0) 35 mgjv@comdyn.com.au (Martien Verbruggen)
70.2 ( 26.8/ 35.3/ 22.7) 39 Jonathan Stowe <gellyfish@btinternet.com>
68.2 ( 30.7/ 37.4/ 33.1) 42 abigail@fnx.com
54.8 ( 21.0/ 33.8/ 21.0) 38 tadmc@metronet.com (Tad McClellan)
54.0 ( 18.7/ 25.7/ 11.3) 21 chatmaster@c-zone.net
50.9 ( 23.8/ 27.1/ 18.2) 36 "Charles R. Thompson" <design@raincloud-studios.com>
50.4 ( 11.5/ 36.2/ 27.7) 12 "Michael D. Schleif" <mds-resource@mediaone.net>
46.8 ( 11.4/ 32.2/ 15.6) 16 dformosa@zeta.org.au (David Formosa (aka ? the Platypus))
46.0 ( 24.6/ 21.4/ 12.9) 29 bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 22.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.990 ( 2.3 / 2.3) 5 groovy94@aol.com (Groovy94)
0.979 ( 5.9 / 6.0) 7 Zack <zack44@altavista.net>
0.953 ( 19.9 / 20.9) 11 "Andrew Mayo" <andrew@geac.co.nz>
0.886 ( 33.1 / 37.4) 42 abigail@fnx.com
0.882 ( 3.3 / 3.8) 7 jamesht <jamesht@idt.net>
0.849 ( 7.6 / 9.0) 9 "Allan M. Due" <due@murray.fordham.edu>
0.839 ( 7.9 / 9.5) 7 Tripp Lilley <tripp.lilley@perspex.com>
0.830 ( 2.6 / 3.1) 9 "Artoo" <r2-d2@REMOVEbigfoot.com>
0.787 ( 2.4 / 3.0) 6 2n3055@usa.net (Steven Chan)
0.783 ( 3.6 / 4.6) 6 Hrvoje Niksic <hniksic@srce.hr>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.461 ( 4.2 / 9.1) 12 newsposter@cthulhu.demon.nl
0.457 ( 1.8 / 4.0) 5 alecler@cam.org (Andre L.)
0.454 ( 1.8 / 4.0) 6 merlyn@stonehenge.com (Randal L. Schwartz)
0.439 ( 11.3 / 25.7) 21 chatmaster@c-zone.net
0.430 ( 6.8 / 15.8) 5 Eirik Johansen <webpages@email.com>
0.418 ( 1.7 / 4.1) 5 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.416 ( 12.0 / 28.8) 17 john_warner@tivoli.com
0.355 ( 5.1 / 14.4) 6 phenix@interpath.com (John Moreno)
0.314 ( 1.8 / 5.8) 6 Eugene Sotirescu <eugene@verticalnet.com>
0.149 ( 2.5 / 16.4) 11 Eugene Sotirescu <eugene@snailgem.org>
58 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
122 Perl Criticism
32 If Larry Wall's listening out there....
18 "internal server error"
13 Password Encryption
13 newline
11 Checking for a Charictor in a Variable
11 line continuation; the switch statement
11 OK I give up (After a WEEK!)
10 filename from a filehandle
10 Need CGI database
These threads accounted for 16.8% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
327.8 ( 98.9/213.0/124.7) 122 Perl Criticism
91.3 ( 23.7/ 65.4/ 42.1) 32 If Larry Wall's listening out there....
70.8 ( 14.5/ 56.2/ 19.1) 18 "internal server error"
44.8 ( 1.8/ 43.0/ 42.7) 3 help with embedded Perl - accessing complex data structure
28.1 ( 8.0/ 19.6/ 12.9) 11 line continuation; the switch statement
28.0 ( 9.8/ 16.8/ 8.5) 13 newline
23.1 ( 7.6/ 14.3/ 11.2) 11 OK I give up (After a WEEK!)
20.4 ( 6.2/ 13.7/ 7.2) 8 comp/comp3 numbers in Perl or maybe C
20.2 ( 5.3/ 14.9/ 6.8) 6 Path under windows
18.9 ( 2.4/ 15.8/ 14.8) 3 Why _cannot_ dmake libwin32 ???
These threads accounted for 25.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.870 ( 2.2/ 2.5) 5 ping script in perl ....where can I get one?
0.862 ( 3.4/ 3.9) 7 Help - replacing text in a file
0.855 ( 3.2/ 3.7) 6 messageboard
0.849 ( 7.1/ 8.4) 7 Nasty regexp .... I'm stumped.
0.811 ( 1.8/ 2.3) 6 recursive directory copy perl module
0.803 ( 5.2/ 6.5) 5 Sorting the values from a form
0.803 ( 4.0/ 5.0) 7 Correct password, but still returns error
0.787 ( 5.0/ 6.3) 5 calling ksh functions from perl
0.787 ( 11.2/ 14.3) 11 OK I give up (After a WEEK!)
0.775 ( 4.4/ 5.7) 6 Nasty regexp .... help!
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.501 ( 2.3 / 4.5) 7 best way to track time in a script for tuning?
0.497 ( 2.9 / 5.8) 7 How to do an exact comparison?
0.495 ( 2.5 / 5.0) 6 Optimizing `eval' in a loop
0.489 ( 2.1 / 4.3) 7 Perl uses in NT
0.461 ( 2.3 / 5.1) 10 CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
0.453 ( 6.8 / 14.9) 6 Path under windows
0.411 ( 1.6 / 3.8) 5 I wanna learn Perl real good..but first
0.403 ( 2.8 / 7.0) 5 Can I execute Perl Scipt from VB ?
0.382 ( 2.6 / 6.8) 10 looking for perl programmer
0.340 ( 19.1 / 56.2) 18 "internal server error"
89 threads (18%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
25 comp.lang.perl.modules
16 alt.perl
11 sci.astro.amateur
11 rec.radio.swap
11 rec.arts.sf.written.robert-jordan
11 rec.arts.sf.tv
11 rec.motorcycles.harley
11 comp.sys.ibm.pc.hardware.chips
11 rec.music.beatles
11 rec.games.video.nintendo
Top 10 Crossposters
===================
Articles Address
-------- -------
18 "Slick69" <tekennedy@usa.net>
10 fucaufled@aol.com (FUCAUFLED)
10 "Fearless Also" <miikementzer@worldnet.att.net>
10 "Joe Bloggs" <coolmrjoeboggs@yahoo.com.omit>
10 Matthew Wootton <Matt@akooka.demon.co.uk>
10 "Porky" <pigsty@magicnet.net>
10 joemama@roundtrip.net
10 richmann@concentric.net
10 pauls@wauknet.com (Paul Smith)
8 "duz" <insert@email.address>
------------------------------
Date: Mon, 11 Jan 1999 17:59:11 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Year 2038 problem
Message-Id: <369b3af1.1070543@news.skynet.be>
John Robson wrote:
>I heard that Perl and perhaps Linux as well have a 'year 2038' problem.
>Has something to do with an internal 32-bit reperesentation.
>Just out of curiosity, can someone explain to me where this '2038' number
>come from? What does it entail?
You're right.
The time in Unix is represented in seconds since 1970, "time zero". We
simply run out of bits in 2038.
Yes, there'll have to be a solution before then. It will most probably
involve representing time in 64 bits.
Bart.
------------------------------
Date: Mon, 11 Jan 1999 17:59:45 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: Year 2038 problem
Message-Id: <siww2td71q.fsf@cre.canon.co.uk>
Trond Michelsen <mike@crusaders.no> wrote:
> the date-rollover is not your biggest problem if you're still using a
> 32-bit computer in 2038.
What if you want to represent dates 40 years in the future?
--
Gareth Rees
------------------------------
Date: 11 Jan 1999 11:57:41 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Year 2038 problem
Message-Id: <m1hftxeg5m.fsf@halfdome.holdit.com>
>>>>> "Gareth" == Gareth Rees <garethr@cre.canon.co.uk> writes:
Gareth> What if you want to represent dates 40 years in the future?
You don't use "seconds since 1970 UTC in 32-bits" as your data value!
There's nothing in Perl that requires that *all* dates use that rep
format. For example, here's a perfectly good representation that
will work in all future Perls for my 100th birthday:
"November 22nd, 2061 AD"
Silly. :)
print "Just another Perl representation,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
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 4620
**************************************
