[9526] in Perl-Users-Digest
Perl-Users Digest, Issue: 3121 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 10 15:07:46 1998
Date: Fri, 10 Jul 98 12:01:33 -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 Fri, 10 Jul 1998 Volume: 8 Number: 3121
Today's topics:
number of days between two given dates using perl santhi@my-dejanews.com
Re: Perl based Web-to-database system <recon@cavalry.com>
Re: Perl based Web-to-database system <jjunkin@datacrawler.com>
Re: Perl hashes equate to VB Script Recordsets in ASPs, <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Perl OO for dummies [Was: Oh man, DO I love Perl ! (Abigail)
Re: Problems builduing DBD-Oracle-0.50 under HP-UX 10.2 (John D Groenveld)
Re: Problems creating files CGI-Unix <johnc@interactive.ibm.com>
ptkdb Vers 1.032 debugger for perl with ptk Interface( (Andrew E Page)
Putting CPAN on a CD: good or not good? (brian d foy)
Re: question about objects (Larry Rosler)
Re: question about objects (Larry Rosler)
Returning a list from a XS <james@csmonitor.com>
Re: sending mail from within perl <aperrin@mcmahon.qal.berkeley.edu>
simple file grepping/searching question <scotts@mdmgr.com>
Re: sort utility <dean@mail.biol.sc.edu>
std perl and activestate perl <josri@postoffice.pacbell.net>
Un-BINDing problem <aperrin@mcmahon.qal.berkeley.edu>
Re: Why no Perl news/mailreader? <phenix@interpath.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 10 Jul 1998 17:52:56 GMT
From: santhi@my-dejanews.com
Subject: number of days between two given dates using perl
Message-Id: <6o5kdo$q86$1@nnrp1.dejanews.com>
I have to calculate the number of days in between two given dates in certain
format.( 07/10/98, 05/30/98 ) Is there any Perl module written for that, or I
have to write my own function? Please help me.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 10 Jul 1998 11:58:15 -0600
From: Bill Anderson <recon@cavalry.com>
Subject: Re: Perl based Web-to-database system
Message-Id: <35A65637.368E76B8@cavalry.com>
Joe Junkin wrote:
>
> The reason we are focused on win32 is because:
>
> A) that is where the majority of databases are
> B) ODBC is an accepted standard.
>
> Part of the reason I posted this message was to find if there was interest
> from the Linux Community. Data Crawler has no hooks into any aspect of NT
> other then ODBC. Data Crawler is data independent, and the ODBC access is
> simply a module. Creating and hooking in a DBI module would be quite simple.
> At the point, the program will run almost unchanged.
>
> Now, I certainly know NT sucks at CGI when compared to Linux. And I have
> seen how fast CGI can be under Apache FastCGI.
>
> To me, Linux is the ideal platform and we are interested in persuing it. But
> is there any interest? Which databases? I see Red Hat comes with Postgress
> SQL.
Informix, MySQL ... LDAP (not a datbase, but useful nonetheless)
Bill Anderson Cyberhighway Internet Services, SYCON
"Pluralitas non est ponenda sine neccesitate."
Plurality should not be assumed without neccesity.
------------------------------
Date: Fri, 10 Jul 1998 18:27:33 GMT
From: "Joe Junkin" <jjunkin@datacrawler.com>
Subject: Re: Perl based Web-to-database system
Message-Id: <p2tp1.9$ZH1.230758@news.rdc1.ct.home.com>
Ok then, I will be looking into MySQL, though not Informix at the moment.
You mean Informix on Unix?
The LDAP spec is interesting, I would like to learn more about the actual
storage format. I imagine it should not be difficult to read/write to it.
Would the access you need be for mail activities or something else?
I wonder if it supports relational/parent-child or linked data sources?
Thanks
Bill Anderson wrote in message <35A65637.368E76B8@cavalry.com>...
>Informix, MySQL ... LDAP (not a datbase, but useful nonetheless)
>
>Bill Anderson Cyberhighway Internet Services, SYCON
>"Pluralitas non est ponenda sine neccesitate."
>Plurality should not be assumed without neccesity.
------------------------------
Date: Fri, 10 Jul 1998 20:22:53 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: Perl hashes equate to VB Script Recordsets in ASPs, right?
Message-Id: <35A6DA8D.7639@comenius.ms.mff.cuni.cz>
Robert Eric Pearse wrote:
>
> I got it,
>
> while ( %hash = $sth->fetchhash ) {
> @keys = keys %hash;
> @values = values %hash;
> while (@keys) {
> print pop(@keys),"=",pop(@values),"<br>\n";
> }
> print "<hr>\n";
> }
while ( %hash = $sth->fetchhash ) {
while (($key,$value) = each %hash) {
print "$key=$value<br>\n";
}
}
> But, the order comes out as
>
Hashes do NOT preserve ordering. And you shouldn't depend on the
ordering
even in the CGI parameters you got into your script.
If you have some order in mind use something like
@keyssorted = qw(author fulltitle articlefile ...);
foreach $key (@keyssorted) {
print "$key=$hash{$key}"
}
or
foreach $key (sort keys %hash) {
print "$key=$hash{$key}"
}
> Thanks for being there <smooch>,
>
> Robert
Hi, Jenda
------------------------------
Date: 10 Jul 1998 17:05:15 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Perl OO for dummies [Was: Oh man, DO I love Perl ! (References to things that go out of scope)]
Message-Id: <6o5hkb$1g5$1@client3.news.psi.net>
Matthew O. Persico (mpersico@erols.com) wrote on MDCCLXXIV September
MCMXCIII in <URL: news:35A592C0.373B2D64@erols.com>:
++
++ 3: An object is simply a variable that that has been "blessed" into a
++ package. What does that mean? Simply put, once you do
++
++ bless $myVar, MYPACK
++
++ you can substitute $myVar for MYPACK.
++
++ 4: By convention (and that's all it seems to be to me), the variable
++ that is used 99.9999.... percent of the time is of type hash reference.
++ Why? Because you can then store variable values in the hash that act as
++ public data (not private) for the class instance. There are ways to make
++ it private.
IO:: modules are blessed handles.
++ 5: Again, by convention to, most likely, appease the C++ gods, the
++ creation of a new object instance is peformed by putting a function
++ 'new' in the package:
++
++ package MYPACK;
++
++ sub new {
++ my $self = {
++ 'foo' => 'default',
++ 'bar' => 'default'
++ };
++
++ bless $self, MYPACK;
++ return $self;
++ }
That's bad. Never hard code the package name as second argument
for bless. Otherwise, you'll be screwed if you subclass the package.
sub new {
my $proto = shift; # First argument of new ().
my $class = ref $proto || $proto; # Deal with $obj -> new ().
my $self = { whatever };
bless $self => $class;
}
++ and the user does
++
++ my $obj = new MYPACK;
++ my $obj2 = MYPACK::new();
Don't do the latter! Because then the package name will not be the
first argument. Use:
my $obj = MYPACK -> new; # Better.
my $obj = new MYPACK; # Be careful here.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")\n-> define ("foldoc", "perl")) [0] -> print'
------------------------------
Date: 10 Jul 1998 13:07:23 -0400
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: Problems builduing DBD-Oracle-0.50 under HP-UX 10.20
Message-Id: <6o5hob$dn3$1@tholian.cse.psu.edu>
Changes in DBD::Oracle 0.51 (Oraperl 1.37), 5rd July 1998
Makefile.PL no longer tries to link with just -lclntsh directly :-(
Improvements to some HP-UX builds (hopefully).
DBI->data_sources ' dummy ' value removed (and list now sorted).
connect failure now shows actual Oracle error message again.
Initial (incomplete) support for binding cursor vars (see t/plsql.t).
John
groenveld@acm.org
------------------------------
Date: Fri, 10 Jul 1998 13:09:47 +0000
From: John Call <johnc@interactive.ibm.com>
Subject: Re: Problems creating files CGI-Unix
Message-Id: <35A6128B.42DCB1DD@interactive.ibm.com>
> When i try to create files appears the next error: Permission denied
I hate to ask because I would assume you would have checked already, but
does your program have permission to write where you want it to write?
--
John Call
IBM Interactive Media
------------------------------
Date: Fri, 10 Jul 1998 18:01:39 GMT
From: aep@world.std.com (Andrew E Page)
Subject: ptkdb Vers 1.032 debugger for perl with ptk Interface(Minor Release)
Message-Id: <Evw4qs.LB9@world.std.com>
ptkdb A Perl debugger with Graphical User Interface
Compatible with Unix, Linux, Win95/NT
You can find this utility with at:
<a href="http://world.std.com/~aep/ptkdb">http://world.std.com/~aep/ptkdb</a>
http://world.std.com/~aep/ptkdb
The page also has links to perlTk for Unix, and binary
distributions of perl with Tk install for Win95/NT.
New Version 1.032
Just a couple of minor tuneups, and something Windows users have
been asking for. You can now set an environment variable to put
scrollbars on the right sides of the windows and panes.
Minor Bug fix. Invalid call on dbgWindow method when restoring breaks
Minor Bug fix. Added require Tk::Dialog to prevent warning message.
New Environmental Variable.
PTKDB_SCROLLBARS_ONRIGHT if set to non-zero will put scrollbars
on the right side of scrolled windows.
--
Andrew E. Page (Warrior Poet) | Decision and Effort The Archer and Arrow
Software Engineering Consultant | The difference between what we are
Unix, Mac, C/C++/Java, Perl, NT | and what we want to be.
------------------------------
Date: Fri, 10 Jul 1998 13:05:19 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Putting CPAN on a CD: good or not good?
Message-Id: <comdog-ya02408000R1007981305190001@news.panix.com>
Keywords: from just another new york perl hacker
just got this is private email. i realize that CPAN was put
onto the Perl Resource Kit CD, but i also had (have :) confidence
in the people who put that together. i'm inclined to say no
to this request (i have two modules on CPAN), but wanted to gauge
the community sentiment.
my thoughts:
* CPAN on CD is outdated even before the first copy is burned.
this is the strongest objection to the undertaking.
* they're making money off of this (yes, so was ORA - well, they
had the potential to make money anyway :)
* i probably don't have the right to say no (or anything else ) if
i used the Perl Artistic License:
1. You may make and give away verbatim copies of
the source form of the Standard Version of this
Package without restriction, provided that you
duplicate all of the original copyright notices
and associated disclaimers.
* the quality of the email message's grammar and spelling really
make me think about the author's competence, although it
sounds as if the language of the magazine and book may not
be english (probably german).
comments and such appreciated :)
----MESSAGE----
>From jfey@well.com Fri Jul 10 12:42:10 1998
Date: Fri, 10 Jul 1998 16:39:20 +0200
From: Jurgen Fey <jfey@well.com>
To: [snip several other addresses]
"'comdog@computerdog.com'" <comdog@computerdog.com>
Subject: Your contribution to the CPAN archive on magazines CD-ROM
Hi,
I am the editor of an special issue about Perl for PC Magazin
in Germany and just about now after (finally) finishing
the articles compiling the CD-ROM for the mag.
The magazine will cover various tutorials explaining the
concept of this wonderful language as well as provide an inside look into
modules like CGI, LWP, Mod_perl, PDL, Win32 - libwin and
others. For the die hards there is an section covering
XS/SWIG/MakeMaker.
The idea is to provide an easy and cheap access to the language.
The magazine will cost about 14 USD including the CD-ROM.
The CD-ROM will include the major perl-Implementations (AS-GS ..
of cause the new AS alpha/beta) as well as interesting commercial apps
(time bombed) like Activeware debugger, PerlBuilder and such.
I also plan to include the ...
CPAN-archive.
As an contributor to CPAN i like to ask you to get me your ok to
include your work on the CD-ROM.
An short notice would be sufficient.
I also working on a book covering "Perl on Windows32" due in October.
That book will cost 24 USD including CD-ROM and is intended
(like the special issue) to get students an chance to learn and use
perl on their system. Just more pages . more work .. more info.
I would be grateful to get your ok ... of cause as soon as possible since i ...
sigh ... are already behind the deadline (you know that feeling, don?t you .. ?)
perhaps we see us in San Jose next month. Just look out for an
6'7" guy with an beard ....
yours sincerely
Juergen Fey
www-Publishing*Perl-Programmierung*CGI*Servlets*Java*Unix*NT*Windows95
Laerchenweg 8 D-85617 Assling Germany
fon:+49-8092-83063 fax: +49-8092-83064 jfey@well.com jfey@acm.org
"Never drive when you're dead (t/waits)"
^@^@
---MESSAGE---
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>
------------------------------
Date: Fri, 10 Jul 1998 11:44:47 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: question about objects
Message-Id: <MPG.101000f84da320749896fe@nntp.hpl.hp.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <35A63E4F.166D@min.net> on Fri, 10 Jul 1998 16:08:43 GMT, John
Porter <jdporter@min.net> says...
...
> Not content with the brevity of that form, I offer this:
>
> sub quadrant {
> my $self = shift;
> my $x = $self->x() >= 0;
> my $y = $self->y() >= 0;
>
> $x && $y and 1
> or
> !$x && $y and 2
> or
> !$x && !$y and 3
> or
> $x && !$y and 4
> }
Not content with the brevity of that form, I offer this:
sub quadrant {
my $self = shift;
(3, 4, 2, 1)[($self->x() >= 0) + 2 * ($self->y() >= 0))
}
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 10 Jul 1998 11:49:29 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: question about objects
Message-Id: <MPG.101002126c2ec1d99896ff@nntp.hpl.hp.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <35A63E4F.166D@min.net> on Fri, 10 Jul 1998 16:08:43 GMT, John
Porter <jdporter@min.net> says...
...
> Not content with the brevity of that form, I offer this:
>
> sub quadrant {
> my $self = shift;
> my $x = $self->x() >= 0;
> my $y = $self->y() >= 0;
>
> $x && $y and 1
> or
> !$x && $y and 2
> or
> !$x && !$y and 3
> or
> $x && !$y and 4
> }
Not content with the brevity of that form, I offer this:
sub quadrant {
my $self = shift;
(3, 4, 2, 1)[($self->x() >= 0) + 2 * ($self->y() >= 0)]
}
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 10 Jul 1998 13:51:28 -0400
From: James Turner <james@csmonitor.com>
Subject: Returning a list from a XS
Message-Id: <35A654A0.9D6AE58@csmonitor.com>
I'm trying to return a list of values from an XS, but even after reading
perlguts, I'm having trouble getting it to work right.
Here's the pertinent sub:
AV *
avs_version()
PREINIT:
AV *arr;
CODE:
arr = newAV();
av_push(arr, newSVpv("This is a test", 0));
av_push(arr, newSVpv("This is a another test", 0));
RETVAL = (AV *) arr;
OUTPUT:
RETVAL
Here's the test function:
@version = avs_version();
print "$version[0][0]\n";
print "$version[0][1]\n";
Note that I have to do [0][0], rather than just [0]. Why is a double
layer of arrays being created, I would think that returning an AV* would
just create a single array.
James Turner
The Christian Science Monitor
turner@blackbear.com
------------------------------
Date: Fri, 10 Jul 1998 09:43:16 -0700
From: Andrew Perrin <aperrin@mcmahon.qal.berkeley.edu>
To: "Bob L." <newsonly@usa.net>
Subject: Re: sending mail from within perl
Message-Id: <35A644A3.B8297A16@mcmahon.qal.berkeley.edu>
Seems to me you have two options:
1.) Use sockets to create a connection to your mail host within perl
(disclaimer: I've never tried using sockets in Win95 so have no idea if they'll
work at all); or
2.) Download something like NetMail95 and call it from your perl script; this is
easier but requires you to spawn an extra process. NetMail95 is at:
http://www.geocities.com/SiliconValley/Lakes/2382/netmail.html
Hope this helps.
Andrew Perrin
UC Berkeley, Demography
Bob L. wrote:
> Hi:
>
> I'm running Perl under windows 95. I want to send mail from a script but do
> not have a mail server running. I am connected 24/7 and wonder if I can use
> my mail host (smtp.gte.net) to send the mail for me?
>
> Thanks.
>
> Bob
>
> --
--
-----------------------------------------------------------------
Andrew J Perrin - aperrin@igc.apc.org - NT/Unix/Access Consulting
255 S Rengstorff Ave #130, Mountain View, California 94040 USA
Phone: 650-938-4740 | http://socrates.berkeley.edu/~aperrin
E-mail wheres-andy@socrates.berkeley.edu to find me.
SEIU1199---------------------------------------------------------
------------------------------
Date: Fri, 10 Jul 1998 14:00:39 -0500
From: Scott Saddison <scotts@mdmgr.com>
Subject: simple file grepping/searching question
Message-Id: <35A664D7.64858489@mdmgr.com>
Hi, I know someone out there must have an easy way of doing this:
I have a list of ids (@ids), and a list of files (@Files)
I want to sort the list of files for the list of ids, if a files
contains any of the ids in the id list to print it.
I was looking for a file grep command in perl to search the files for an
id without having to open it parse thru it.
Thanks in advance
Scott Saddison, scotts@mdmgrmw.com or scott@skyenet.net
------------------------------
Date: 10 Jul 1998 12:20:39 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: sort utility
Message-Id: <m3yau1k78o.fsf@mail.biol.sc.edu>
"Ken Stephenson" <ken_stephenson@corp.srs.com> writes:
> I am looking for a perl sort subroutine with similar capabilities to the
> Unix sort utility that I can uses when porting to Windows 95. Specifically
> I need to be able to perform case insenstive sorts, dictionary sorts, and
> specify sort fields on arrays and files. I was kind of surprised that some
> of these basic features are not built into the Perl sort function.
>
> Any suggestions would be greatly appreciated.
The Unix sort program's code (or a reasonable facsimile thereof) can
be found in the Gnu utilities. Rather than trying to rewrite a good
program in Perl, why not just compile it for Win95 (or find a
precompiled binary)? You're not in the business of making a
platform-independent package: you know you're headed for Wintel95, so
a compiled binary is fine.
You should be aware that cloning the "sort" program in Perl is a
non-trivial endeavour. "Sort" deals well with cases where the data to
be sorted are larger than available memory by creating intermediate
disk files, etc. Replicating all of that work in Perl seems
pointless.
A tool exists, why not use it?
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Fri, 10 Jul 1998 10:35:39 -0700
From: josri <josri@postoffice.pacbell.net>
Subject: std perl and activestate perl
Message-Id: <35A650EB.868C8112@postoffice.pacbell.net>
Hi
I have perl binary distribution by gurusamy sarathy on my windows 95.
Now that it seems, it doesn't support some modules like msql. So I want
to download Activestate's Perl. If I have both versions on my machine,
will that cause a problem? Or should I uninstall the std perl before
installing Activestate' perl.
Any help would be greatly appreciated.
Regards
Josri
------------------------------
Date: Fri, 10 Jul 1998 09:49:27 -0700
From: Andrew Perrin <aperrin@mcmahon.qal.berkeley.edu>
Subject: Un-BINDing problem
Message-Id: <35A64617.E1CB3C2B@mcmahon.qal.berkeley.edu>
Greetings-
I'm just learning to use the sockets stuff in perl, and have a
rudimentary client/server setup working fine (thanks to much help from
the camel and rat books). However, if the server is quit and then
restarted soon, I get
bind: requested address is already in use
or something to that effect.
I assume I need to somehow un-bind when the server closes; how do I do
this?
(Using 5.003 under Solaris 2.6)
Many thanks-
Andrew Perrin
UC Berkeley, Demography Dept.
--
-----------------------------------------------------------------
Andrew J Perrin - aperrin@igc.apc.org - NT/Unix/Access Consulting
255 S Rengstorff Ave #130, Mountain View, California 94040 USA
Phone: 650-938-4740 | http://socrates.berkeley.edu/~aperrin
E-mail wheres-andy@socrates.berkeley.edu to find me.
SEIU1199---------------------------------------------------------
------------------------------
Date: Fri, 10 Jul 1998 14:36:18 -0400
From: John Moreno <phenix@interpath.com>
Subject: Re: Why no Perl news/mailreader?
Message-Id: <phenix-100798143618000165321@gaddy.interpath.net>
In article <19980706.014615.9g4.rnr.w164w@locutus.ofB.ORG>, Russell
Schulz <Russell_Schulz@locutus.ofB.ORG> wrote:
> the Subject: header makes an invalid assumption; I know of at least
> two newsreaders written in perl.
>
> brn ftp.ee.umanitoba.ca:/pub/msdos/waffle/brn*
> 5061. brn - waffle news; in perl
>
> the other was simply called `prn', and was from someone who at the time
> had a sun.com address, I think. I never saw an archive site posted.
prn - <http://www.oasis.leo.org/perl/scripts/infosys/news/prn.dsc.html>
Toru Shiono <tshiono@cv.sony.co.jp>, and he posted to clpm about a week
and a half ago, so he he might even be reading this thread.
If he is - is there a web page with more info on prn than the above?
Followups set to news.software.readers
--
John Moreno
------------------------------
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 3121
**************************************
