[10143] in Perl-Users-Digest
Perl-Users Digest, Issue: 3736 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 17 03:18:05 1998
Date: Thu, 17 Sep 98 00:00:40 -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 Thu, 17 Sep 1998 Volume: 8 Number: 3736
Today's topics:
Re: Any Perl 5.005 binary build for win32? <ibelgaufts@gfc-net.de>
Re: any way to encrypt my script? (Abigail)
Re: Docs for CGI.pm! (Jacqui Caren) (Jacqui Caren)
Re: Edit in place problem with ActivePerl 5.005_002 (Sam Holden)
Fix for broken BigFloat.pm compares (Sean Slattery)
Re: Gratuitous warning: Deep Recursion (Mark-Jason Dominus)
Re: Gratuitous warning: Deep Recursion (Eric Eisenhart)
help:web mail lincr@usa.net
Re: how safe is xor encryption ? (David Formosa)
Re: how safe is xor encryption ? (Tom Mornini)
Hypermart date time problem?Please Help! <marlboro9@hknet.com>
ifdef in Perl <pai@cadence.com>
Re: ifdef in Perl (Honza Pazdziora)
Re: Kermit Speaks (Jacqui Caren) (Jacqui Caren)
Re: Kermit Speaks (Jacqui Caren) (Jacqui Caren)
Re: Oraperl. Where can I get it? (Jacqui Caren) (Jacqui Caren)
Re: Perl & Java - differences and uses (Abigail)
Re: Perl & Java - differences and uses <pats@acm.org>
Re: searching a file in ranges (Honza Pazdziora)
Re: Style question re ($k => $v) (Abigail)
Traversing symlinks using File::Find <achoy@us.oracle.com>
Re: trying to use print<<END; with CGI.pm (Craig Berry)
What is Perl related? [was Re: how safe is xor encrypti (Ronald J Kimball)
Re: What is Perl related? [was Re: how safe is xor encr <ajohnson@gpu.srv.ualberta.ca>
Re: Who posts original posts on CLPM? <ajohnson@gpu.srv.ualberta.ca>
wwwboard run under NT <webmaster@driverzone.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 17 Sep 1998 08:28:40 +0200
From: "J|rgen Ibelgaufts" <ibelgaufts@gfc-net.de>
Subject: Re: Any Perl 5.005 binary build for win32?
Message-Id: <3600AC18.8AB12A5A@gfc-net.de>
Hi folks,
I had the same problems with making perl 5.005_02. Currently, I am
making perl 5.005 and tk800.008 with microsoft visual c++ 4.0 without
any problems (even threads work). libwin32-0.12 builds after deleting
the directories internet, ole and process (I have no time to find out
why these don't compile and I don't need them). perl 5.005 only fails
with some posix tests (which is documented in one of the readme files).
I was also able to build sone odbc and database modules for processing
dbase files with sql.
Hope this helps
Juergen Ibelgaufts
--------------------------------------------------------------------
dave@mag-sol.com schrieb:
>
> In article <6tn5mb$ajl$1@netnews.csie.NCTU.edu.tw>,
> dennis@info4.csie.nctu.edu.tw (GEMINI) wrote:
> > Hi all,
> > The newest binary build for win32 that I can find is 5.004,
> > a binary distribution built by Borland C. I've tried to
> > make one from the 5.005_02 source but got a failure.
> > I am wondering if some one has made it? where can I get it?
> > thanks.
> >
>
> Dennis,
>
> Try ActiveState <http://www.activestate.com>.
>
> hth,
>
> Dave...
>
> --
> dave@mag-sol.com
> London Perl M[ou]ngers: <http://www.mag-sol.com/London.pm/>
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 17 Sep 1998 04:07:21 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: any way to encrypt my script?
Message-Id: <6tq1tp$2r0$2@client3.news.psi.net>
GEMINI (dennis@info4.csie.nctu.edu.tw) wrote on MDCCCXLIII September
MCMXCIII in <URL: news:6tpoau$iqa$1@netnews.csie.NCTU.edu.tw>:
++ Using script has a lot of flexibility than compiled executable.
++ However, if I don't want to show my source code
++ to the world, what should I do with my script?
format c:
++ Can
++ I encrypt my script so that it can be executed but not read?
No.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Wed, 16 Sep 1998 17:56:24 GMT
From: Jacqui.Caren@ig.co.uk (Jacqui Caren) (Jacqui Caren)
Subject: Re: Docs for CGI.pm!
Message-Id: <EzE1u0.K3o@ig.co.uk>
In article <35D6F2CF.59E3@mail.localaccess.com>,
Mark Lybrand <maryesme@mail.localaccess.com> wrote:
>Martin Vorlaender wrote:
>>
>> powerfactor@hotmail.com wrote:
>> : Where can I find some documentation about the CGI.pm?
>>
>> In CGI.pm itself. It's formatted using a simple ASCII format named POD
>> (Plain Old Documentation). You can read it with any ASCII editor (search
>> for a line beginning with '=head'), or use the perldoc program supplied
>> with the standard distribution (like 'perldoc CGI').
>
>
>Also, the "Official Guide to Programming with CGI.pm" by Lincoln Stein
>(the creator of CGI.pm) is also well worth the cost.
>
>Mark :)
Is it me or does no one in clp.misc use perldoc?
The "perldoc CGI" command should give you the formatted CGI.pm
documentation on almost all platforms that have an up-to-date
version of perl.
Although on-line docs are useful, I find the docs related to
the installed version to be more appropriate...
Jacqui
p.s.
I have to say the above CGI book is a must for anyone using
perl and CGI. Likewise anyone doing CGI work should read Nick
Kew's CGI FAQ.
--
Email: Jacqui.Caren@ig.co.uk http://www.ig.co.uk/
Fax : +44 1483 419 419 http://www.perlclinic.com/
Phone: +44 1483 424 424 http://www.perl.co.uk/
Paul Ingram Group Ltd,140A High Street,Godalming GU7 1AB United Kingdom
------------------------------
Date: 17 Sep 1998 05:03:47 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Edit in place problem with ActivePerl 5.005_002
Message-Id: <slrn70161j.ghb.sholden@pgrad.cs.usyd.edu.au>
On Wed, 16 Sep 1998 21:05:13 -0700, Jan Krynicky
<JKRY3025@comenius.ms.mff.cuni.cz> wrote:
>A lot of words on top, a few lines of (I hope) helpfull code bellow ;-)
>
>dave@mag-sol.com wrote:
>>
>> In article <6tjvrv$p4o$1@nnrp1.dejanews.com>,
>> benday@c-bridge.com wrote:
<SNIP>
>>
>> This isn't a Perl problem. You're using a shell that doesn't do automatic
>> wildcard expansion before passing the command line to a program. This is a
>> *bad* thing.
>
>Actualy it would be a good think if Unix had been working this way.
>
>It's much better if the program may choose itself between it's own
>processing of
>the wildcard expansion and calling a system function for that.
So I would have to learn a different method of wildcarding for every program
I used... So the same code would get rewritten by different people... Calling
a system function would give the same result so I'm assuming your allowing for
a program to do it 'different' from the norm....
Anyway being shell dependant is good, I learn my shell and can now pass
arguments to all the programs I use, instead of having to use 15 billion
different methods of quoting.
Plus I use es as my shell which has shall we say a different method of
interpreting arguments then most shells.
Next you'll say that each program should set up redirections itself when it
gets '>/a/file' on the comment line...
>
>Most usualy the program doesn't need all the files that matched the
>specification
>at once, but sequentialy. One by one. It could search the directory and
>process
>the files one by one.
>
>Which is exactly the same affair as with the difference between
>
> open IN, "<$file";
> @lines = <IN>;
> close IN;
> foreach $line (@lines) {
> ...
> }
>
>and
>
> open IN, "<$file";
> while (defined($line = <IN>)) {
> ...
> }
> close IN;
>
>Sometimes the first is better sometimes the later.
>Of course if every program would treat the wildcards differently it
>would be a mess.
>But I think that if system provided both all-at-once and one-by-one
>wildcard expansions as a system call, everybody would be happy.
no thanks I much prefer being able to use anice consistent and predictable
shell...
--
Sam
People get annoyed when you try to debug them.
--Larry Wall
------------------------------
Date: 17 Sep 98 05:05:40 GMT
From: jslttery@cs.cmu.edu (Sean Slattery)
Subject: Fix for broken BigFloat.pm compares
Message-Id: <jslttery.906008740@GS148>
The following script shows up two bugs in BigFloat.pm. The simpler bug is that
<=> should return an simple integer and not a BigFloat. This causes
problems when using <=> in a sort call.
The second problem is that the logic for the fcmp looks incomplete. Try the
following:
use Math::BigFloat;
$f1 = Math::BigFloat->new("+9E-1");
$f2 = Math::BigFloat->new("+99E-2");
print $f1->fcmp($f2);
print "\n";
print ($f1 <=> $f2);
print "\n";
$f1 is smaller than $f2, so both of these should return 1. Instead I get
+9-1+99-21
9.
The fix seems to be:
jslttery% diff /usr/local/lib/perl5/Math/BigFloat.pm ~/lib/Math/BigFloat.pm
12,13c12
< '<=>' => sub {new Math::BigFloat
< $_[2]? fcmp($_[1],${$_[0]}) : fcmp(${$_[0]},$_[1])},
---
> '<=>' => sub {$_[2]? fcmp($_[1],${$_[0]}) : fcmp(${$_[0]},$_[1])},
240,243c239,245
< ( local($xm,$xe,$ym,$ye) = split('E', $x."E$y"),
< (($xe <=> $ye) * (substr($x,$[,1).'1')
< || Math::BigInt::cmp($xm,$ym))
< );
---
> scalar(local($xm,$xe,$ym,$ye) = split('E', $x."E$y"),
> ((($xe + length($xm)) <=> ($ye + length($ym))) *
> (substr($x,$[,1).'1') ||
> (($xe < $ye) ?
> Math::BigInt::cmp($xm,$ym.('0' x ($ye-$xe))) :
> Math::BigInt::cmp($xm.('0' x ($xe-$ye)),$ym)))
> );
Can someone verify or correct this? If it is correct - can it get forwarded to
whoever can make the changes to the current BigFloat.pm version.
Thanks in advance,
S.
------------------------------
Date: 17 Sep 1998 00:36:46 -0400
From: mjd@Op.Net (Mark-Jason Dominus)
Subject: Re: Gratuitous warning: Deep Recursion
Message-Id: <6tq3ku$9go$1@monet.op.net>
In article <r8lnnmdf9g.fsf@asc.sps.mot.com>,
Martin Gregory <mgregory@asc.sps.mot.com> wrote:
>I am getting this 'deep recursion' warning message,
Another option: If your recursive subroutine is `x', then:
sub x {
local $^W = 0; # disable warnings for the duration of this call
...
}
This may be less preferable than a $SIG{__WARN__} routine, or not,
depending on your circmustances.
------------------------------
Date: 16 Sep 1998 14:32:43 -0700
From: eric+19980916-usenet-comp-lang-perl-moderated@sonic.net (Eric Eisenhart)
Subject: Re: Gratuitous warning: Deep Recursion
Message-Id: <6tpapr$kc4@bolt.sonic.net>
In article <slrn6vrff1.5v.alastair@calliope.demon.co.uk>,
Alastair <alastair@calliope.demon.co.uk> wrote:
>Martin Gregory <mgregory@asc.sps.mot.com> wrote:
>>Isn't it my business how deeply I recurse? Does this message ever
>>really help anyone, or does it only hinder people like me who happen
>>to have a job that calls for deep recursion and now have to grapple
>>with whether to take out -w or placate users about these warning
>>messages?
>
>It might be useful under some circumstances to see this warning. Would it be
>possible to turn off warnings around the recursion only?
This should work:
{
local $SIG{__WARN__} =
sub {
print STDERR @_ unless m/Deep recursion/;
};
# problematic code
}
I'd suggest avoiding subroutine calls inside of that block if you can,
though. Anything called inside of that block will get that same warning
handler, which may not be what you want.
--
My opinions are my own, not my employers -- eric+nospam@sonic.net
Eric Eisenhart -- http://www.eric.eisenhart.com
Help, I've gotten stuck in this .sig and I don't know how to get out!
------------------------------
Date: Thu, 17 Sep 1998 06:13:36 GMT
From: lincr@usa.net
Subject: help:web mail
Message-Id: <6tq9af$fp$1@nnrp1.dejanews.com>
I want to retrieve and send mail from www,where can i find the software?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 17 Sep 1998 13:58:37 +1000
From: dformosa@zeta.org.au (David Formosa)
Subject: Re: how safe is xor encryption ?
Message-Id: <6tq1dd$na$1@godzilla.zeta.org.au>
In <6tpi00$7j0$1@nnrp1.dejanews.com> beyret@my-dejanews.com writes:
[...]
>can a perl code be made human unreadable? write it once, and sort of convert
>it to a format that is still executable but not readable?
No languge has this ability. Hideing your code dosn't gain you anything.
------------------------------
Date: Thu, 17 Sep 1998 05:04:29 GMT
From: tmornini@netcom.com (Tom Mornini)
Subject: Re: how safe is xor encryption ?
Message-Id: <tmorniniEzEwrH.F23@netcom.com>
Elaine -HappyFunBall- Ashton (eashton@bbnplanet.com) wrote:
: It is better than nothing, however, it is not a complete solution to the
: problem. If e-commerce is to survive and thrive people must have
: confidence that their cards are protected. I shop a lot on-line and have
: had the one card I use for such purposes replaced 2 or 3 times due to
: the number being stolen.
I don't understand why people are so paranoid about this! Do you use that
card ONLY for on-line transactions? If not, perhaps it was stolen out of
the trash can at the local 5 and dime...
For that matter, perhaps an employee at (your e-commerce vendor here) stole
it while placing the transaction, or auditing the transactions, etc.
I'm not saying that CC security is not an issue. And I would like to think
that EVERYONE who I give my card to EVERYWHERE I use it cares as much about
this as all the folks participating in this thread.
However, while everyone is sweating the online security issue, I've always
felt that a much more profitable attack would be a simple analog splice-in
on the phone system of (your non e-commerce vendor here). They could just
listen in, write the numbers and important information down (or just record
it) and then not have to be a propeller head at all!
-- Tom Mornini
-- InfoMania
------------------------------
Date: Thu, 17 Sep 1998 13:46:55 +0800
From: =?iso-8859-1?Q?=B8=E9=A5J?= <marlboro9@hknet.com>
Subject: Hypermart date time problem?Please Help!
Message-Id: <3600A24F.885849C7@hknet.com>
Hay!I'm a Hong Kong people!I use a Matt's Guestbook at Hypermart,How can
I get a Hong Kong date&time?On Hypermart,The time is EST time,& can I
get
the GMTime?The Matt's Guestbook get time perl script is here:
# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
Please Help me!Thank!^_^
thief
------------------------------
Date: Thu, 17 Sep 1998 11:40:40 +0531
From: "Narasimha G. Pai" <pai@cadence.com>
Subject: ifdef in Perl
Message-Id: <3600A7A3.8636466A@cadence.com>
--------------21C2FCC3C5263FA451389C56
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi ,
I have a perlscript that I want to make platform independent .
However on NT I need to use the lib Win32 .
If I do :
use Win32 ;
The script does not run on Unix saying : cannot find Win32.pl
I want something like :
if($os eq 'NT'){
use Win32 ;
}
if($os eq 'UNIX'{
#do nothing
}
However it does not work . It fails before evaluating $os ( ie at
compile time ) .
Any solutions ?
--
|======================================================================|
|Kanwarpreet Singh Grewal | email: kanwar@cadence.com |
| Cadence Design Systems (India) Pvt. Ltd.,| Home address: E-217 |
| SDF # B-8, Noida Export Processing Zone, | Ram Vihar |
| Noida, UP - 201305, India | Sector : 30 |
| Tel: +91-11-8562842 | Noida, UP India |
|======================================================================|
--------------21C2FCC3C5263FA451389C56
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
Hi ,
<P> I have a perlscript that I want to make platform independent .
<BR> However on NT I need
to use the lib Win32 .
<BR>
<P> If I do :
<P> use Win32 ;
<P> The script does not
run on Unix saying : cannot find Win32.pl
<BR>
<P>
<BR> I want something like
:
<BR>
<P> if($os eq 'NT'){
<P> use Win32 ;
<P> }
<P> if($os eq 'UNIX'{
<P> #do nothing
<P> }
<BR>
<BR>
<P> However it does not work . It fails before evaluating $os ( ie
at compile time ) .
<BR>
<BR>
<P>Any solutions ?
<BR>
<PRE>--
|======================================================================|
|Kanwarpreet Singh Grewal | email: kanwar@cadence.com |
| Cadence Design Systems (India) Pvt. Ltd.,| Home address: E-217 |
| SDF # B-8, Noida Export Processing Zone, | Ram Vihar |
| Noida, UP - 201305, India | Sector : 30 |
| Tel: +91-11-8562842 | Noida, UP India |
|======================================================================|</PRE>
</HTML>
--------------21C2FCC3C5263FA451389C56--
------------------------------
Date: Thu, 17 Sep 1998 06:45:51 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: ifdef in Perl
Message-Id: <slrn701c0v.aoj.adelton@aisa.fi.muni.cz>
> use Win32 ;
>
> The script does not run on Unix saying : cannot find Win32.pl
>
> I want something like :
>
> if($os eq 'NT'){
> use Win32 ;
> }
> if($os eq 'UNIX'{
> #do nothing
> }
>
> However it does not work . It fails before evaluating $os ( ie at
> compile time ) .
Hmm, since you do not set $os anywhere, I woudn't expect it to work,
even if it could.
To check on compile time, what platform you are running on, use BEGIN:
BEGIN { if ($^O =~ /Win32/) { eval 'use Win32;' } }
Take care (and do not post the HTML part next time).
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Wed, 16 Sep 1998 18:03:47 GMT
From: Jacqui.Caren@ig.co.uk (Jacqui Caren) (Jacqui Caren)
Subject: Re: Kermit Speaks
Message-Id: <EzE26B.K6K@ig.co.uk>
In article <6r9btk$mij@fridge.shore.net>,
Nathan V. Patwardhan <nvp@shore.net> wrote:
>Michael J Gebis (gebis@fee.ecn.purdue.edu) wrote:
>: (Although now I am certain that I was wrong.)
>
>Totally.
>
>Grouch, Oscar the.
Hey, that was the name given to my car[1] at Cray - because
it looked so grim/unhappy and growled a lot ;-)
[1] In keeping with this thread I am introducing non perl
related subjects/comments that have absolutely nothing
to do with perl or the subject of this thread [2]... :-)
[2] Well if we take the subject to be whining then it could
said to be ralated to cars - I know of many that whine
with very little provocation. :-)
Jacqui
--
Email: Jacqui.Caren@ig.co.uk http://www.ig.co.uk/
Fax : +44 1483 419 419 http://www.perlclinic.com/
Phone: +44 1483 424 424 http://www.perl.co.uk/
Paul Ingram Group Ltd,140A High Street,Godalming GU7 1AB United Kingdom
------------------------------
Date: Wed, 16 Sep 1998 19:23:07 GMT
From: Jacqui.Caren@ig.co.uk (Jacqui Caren) (Jacqui Caren)
Subject: Re: Kermit Speaks
Message-Id: <EzE5uJ.KLw@ig.co.uk>
In article <35d6e68e.838078@enews.newsguy.com>,
Kermit the frog <kermit@sesamestreet.com> wrote:
>I guess this was prompted by several months of amazement at the nasty
>tone this group tends to have, and then this 'Abigail' character came
>along and really pissed me off with his/her total lack of flair for
>sarcasm.
I fully expect that Abigail is female. You will find that those
(mostly men) who play silly games hiding behind reverse gender
psuedonyms tend not to use such PNs for commercial operations or
operate in serious newsgroups such as ciwa* or the clp* trees.
To infer such does you no credit.
I recently had a similar comment - it was intended as a complement!
and for a very short time got very angry about it. It was an accident
and I received a profuse apology. I was angry not because someone got
my sex wrong (Jaqcui was misconstrued to be Jacques - it happens) but
because of the inference that you have to be male to know anything
about computers. It is that attitude that irritates me so much. I
hope you are not inferring this?
Ever heard of the Countess of Lovelace? :-)
It has to be remembered that as with all free support you can only
expect exactly what you pay for. The quality of advice in ciwa.cgi got
so bad at one point (and the questions so weak) that TomC posted his
(in)famous "Clueless Wannabees". It reflected the prevailing mood
perfectly.
<DIV NAME=PLUG CLASS=shameless>
This is one of the reasons TPC exists - a commercial perl
support service offering quality support for all things perl
related. You have to PAY to use TPC, but then if you value
support you will find TCP to be comparable to other support
services :-)
</DIV>
When we started the service we found ourselves innundated by
"answer this one and I will sign up" emails. We found ourselves
responding to Y2K phone calls and emails - large corporates
wanting free advice and assistance simply because of who they
were. It got so bad that we set up an email autoresponder,
detailing how to use TPC. We still get a respoctable hit rate
on this even though the web site holding the email address was
removed some years ago :-) The problem with giving such
people advice is that they come back for more and more, even
going as far as calling at international rates...
I and many others lurk here and in other newsgroups dropping
the odd hint to some of the "slightly wrong" answers :-)
I firmly believe in constructive criticism - dont criticise
unless you can provide something constructive. I find TomC's
post lack this sometimes, but Abigail is one of the few that
rarely break this "rule". because of this I thnk you are
incorrect in your conception of who abigail is and what she
represents.
I also believe in the write review, review, review post rule. It helps
stop heated posts going out, esp since I always post from a company
FQDN. This post has taken me some time (elapsed) to construct - out of
the free time during my last hours or two of this work day.
I hope everyone sees something constructive in this.
If you post a response a CC will be appreciated - I DO
read clp.misc, but my work schedule is fierce and I only
get the chance to catch up once a week as the mo. So, if
you want an prompt reply please CC me :-)
It has been a looong day (over 12hr), but I have enjoyed catching
up with the various newsgroups - I even enjoyed this thread!
All the best,
Jacqui Caren
Regarding the ageism dig;
I stopped counting programming languages I use/comprehend
somewhere after my 20th - language and birthday.
I am no longer in my twenties in either. :-)
--
Email: Jacqui.Caren@ig.co.uk http://www.ig.co.uk/
Fax : +44 1483 419 419 http://www.perlclinic.com/
Phone: +44 1483 424 424 http://www.perl.co.uk/
Paul Ingram Group Ltd,140A High Street,Godalming GU7 1AB United Kingdom
------------------------------
Date: Wed, 16 Sep 1998 19:33:40 GMT
From: Jacqui.Caren@ig.co.uk (Jacqui Caren) (Jacqui Caren)
Subject: Re: Oraperl. Where can I get it?
Message-Id: <EzE6C5.Kot@ig.co.uk>
In article <35D9CFE1.D405953@wdc.com>, Roy Ledochowski <rledo@wdc.com> wrote:
>> I have been told that oraperl is the one for accessing Oracle tables
>> thru Perl.
>> So where do i get it from?
>> Che Letton
>Best thing to do is make sure you're running Perl 5.004 & go to
>www.perl.com. Look for databases & follow the links, or search under
>Oracle.
>
>Oraperl is now a module called DBD::Oracle & you'll also need DBI. You
>also need the Oracle client & Pro*C installed on the machine which has
>Perl installed (the client machine)
Minor correction. :-)
Oraperl.pm is the oraperl emulation packages which operates using
DBI and DBD::Oracle.
DBI is a DataBase Independant interface.
DBD::Oracle is the Oracle DataBase Driver.
After installing
hint: build, test and install DBI before touching DBD::Oracle
run
perldoc DBI
perldoc DBD::Oracle
perldoc Oraperl
to access the documentation. Likewise read the copious README files
in the various modules before installation, or if you hit problems.
For more information of DBI and the various drivers see
http://www.arcana,com/technologia/DBI/
All the best,
Jacqui Caren
p.s.
Oraperl is/was a perl4 add-on - it required a specially built
version of perl as no XS mechnaism was availabel for perl4.
No one (sensible) supports oraperl or perl4 so please don't
even think of using it unless you have good reason - some do.
--
Email: Jacqui.Caren@ig.co.uk http://www.ig.co.uk/
Fax : +44 1483 419 419 http://www.perlclinic.com/
Phone: +44 1483 424 424 http://www.perl.co.uk/
Paul Ingram Group Ltd,140A High Street,Godalming GU7 1AB United Kingdom
------------------------------
Date: 17 Sep 1998 04:04:29 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Perl & Java - differences and uses
Message-Id: <6tq1od$2r0$1@client3.news.psi.net>
Andrew Dalke (dalke@bioreason.com) wrote on MDCCCXLIII September MCMXCIII
in <URL: news:36007A95.7C1BA658@bioreason.com>:
++ In python I can have
++
++ def parse_range(str, match_obj):
++ print "The range is", match_obj.group(1)
++
++ but I can't figure out the right perl way. Best I can do is:
++ if (/$term->[0]/ =~ $str) { # if it matches the pattern
++ ${$term->[1]}($str, $1, $2, $3, $4); # call the function
++
++ and assume I'll never pass more than 4 terms. This cannot
++ be right, which means there's probably some to get the list of
++ matches from the last re match. I don't know how and I don't
++ see that information in the perl documentation or FAQ.
if (@matches = $str =~ /$term->[0]/) {
$term -> [1] -> ($str, @matches);
}
There is one catch though. If $term->[0] doesn't contain parens, and
the regex matches, @matches will be (1) - as if the regex had on set
of parens, with captured '1'.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: 16 Sep 1998 22:17:00 PDT
From: Patricia Shanahan <pats@acm.org>
Subject: Re: Perl & Java - differences and uses
Message-Id: <36009ABE.4810C10D@acm.org>
Joseph Kesselman (yclept Keshlam) wrote:
>
> Patricia Shanahan wrote:
> > I don't think the popularity of C can be used as evidence of its
> > technical goodness
>
> The problem: Define "technical goodness".
Doesn't matter. Whatever it is, I don't think you can deduce it from
C's popularity alone, because of the non-technical factors that have
influenced C's popularity.
...
> Use the language (a) that you have available, (b) that is a good
> match for the way you want to approach the problem, and (c) that
> offers the robustness-versus-flexibility tradeoff you're comfortable
> with.
...
I agree with most of what you wrote, but would add another
consideration:
Who is going to maintain it and for how long? For a use-once program
the suitability of the language for that particular job is all that
matters. If a program will need to be maintained for any significant
time it should almost always be written in one of the normal languages
in the organization that will be maintaining it.
Patricia
------------------------------
Date: Thu, 17 Sep 1998 06:52:31 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: searching a file in ranges
Message-Id: <slrn701cde.aoj.adelton@aisa.fi.muni.cz>
On Wed, 16 Sep 1998 20:39:44 -0400, Ash Heikh <ash@rem.hotmail.com> wrote:
> i have a file of the format given at the end of this mail.
> awk does a good job looking for and printing the row in which the 8th
> column value is larger than, say, 10.
> But I am interested in printing the date alongwith that line.
> Can someone tell me a simple way to do that in perl or awk or sed. (not
Try:
perl -ne '$date = $_ if /^date/;
print $date, $_ if (split /\s+/)[7] > 10;'
You'll probably probably want to check man pages
perlrun for -ne switch
perlvar what the $_ means
perlsyn the strange position of if
perlop the // thing
perlfunc print and split
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: 17 Sep 1998 04:14:29 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Style question re ($k => $v)
Message-Id: <6tq2b5$2r0$3@client3.news.psi.net>
Mark-Jason Dominus (mjd@op.net) wrote on MDCCCXLIII September MCMXCIII in
<URL: news:6tprqp$8ob$1@monet.op.net>:
++
++ I remember the first time I saw Randal write
++
++ kill HUP => $pid;
++
++ I thought it was really weird. Now I don't bat an eyelash, and I
++ always write it that way.
++
++ Lately I've found myself writing
++
++ while (($k => $v) = each %h) {
++ ...
++ }
++
++ Does anyone have any comments about this?
While I wouldn't use while (($k => $v) = each %h), I often do
things like:
bless $self => $class; (I first saw this in code from MJD, and
thought that it looked cool)
split /regex/ => $string;
join "" => @list;
%hash = map {$_ => 1} @list;
sprintf "format" => $arg1, $arg2, $arg3;
I tend to use it in cases where the first argument of a function
has a very different role than the others. => makes a bigger
visual impact than a , tucked against the operand.
Logic would say I should use it for push and splice than as well,
but I never do that. (But who know, maybe tomorrow).
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Wed, 16 Sep 1998 21:13:37 -0700
From: Allen Choy <achoy@us.oracle.com>
Subject: Traversing symlinks using File::Find
Message-Id: <36008C71.44C296A0@us.oracle.com>
Hi,
Is it possible to traverse symbolic links using File::Find? It seems to
be skipping them
when I try.
Thanks in advance,
allen
------------------------------
Date: 17 Sep 1998 04:28:02 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: trying to use print<<END; with CGI.pm
Message-Id: <6tq34i$1ev$1@marina.cinenet.net>
Al Smith (alanson@umich.edu) wrote:
: it's not working and i can't find any examples anywhere:
And 'it' is? The here-doc syntax is a Perl language feature, having
nothing to do with CGI.pm per se. What specific problem are you having?
A brief code example would help.
: Am i not looking hard enough?
You're not asking specific enough. :)
------------------------------
Date: Thu, 17 Sep 1998 00:10:23 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: What is Perl related? [was Re: how safe is xor encryption ?]
Message-Id: <1dfh3qc.bupudv114ttj8N@bay2-213.quincy.ziplink.net>
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
> Mary E Tyler wrote:
>
> > though this is not exactly PERL related, it has been mentioned here? how
> > does one apply for the Usenet points system... i can think of several
> > people on my other favorite news group who need to have applications for
> > the program sent to them... i'd love to be able to oblige...
>
> Why do people have such a narrow idea of 'what is Perl related' and what
> isn't. This was started by someone who wanted to do an e-commerce
> solution via Perl. Now, this has digressed into something else, but I
> firmly believe we are all learning something here other than 'Hey, read
> the FAQ or Hey, Here is my code, deal!'. Every discipline can learn from
> another. I learned something from this today so I feel warm and fuzzy.
Why do people have such a broad idea of 'what is Perl related'. This
was started by someone who wanted to do an e-commerce solution,
coincidentally in Perl. And the discussion has continued to have
nothing whatsoever to do with Perl.
If I wanted to read 50-odd messages about XOR encryption and CC
security, I'd be reading an encryption or security newsgroup. Since I
don't read those newsgroups, you may safely assume that I am not
interested in reading discussion of these issues.
Since they are not even remotely Perl specific, I do not expect to read
about them in comp.lang.perl.misc.
Here's a straightforward example:
Suppose I wanted to write a Hello World script in Perl. If I was asking
how to print "Hello World", that would be Perl specific. If I was
asking whether it would be better to follow "Hello World" with a period
or an exclamation mark, that would not be Perl specific.
--
_ / ' _ / - 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: Thu, 17 Sep 1998 00:56:13 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: What is Perl related? [was Re: how safe is xor encryption ?]
Message-Id: <3600A47D.5C76FC51@gpu.srv.ualberta.ca>
Ronald J Kimball wrote:
[snip]
> Here's a straightforward example:
> Suppose I wanted to write a Hello World script in Perl. If I was asking
> how to print "Hello World", that would be Perl specific. If I was
> asking whether it would be better to follow "Hello World" with a period
> or an exclamation mark, that would not be Perl specific.
obviously, 'Hello World' should be followed by an exclamation mark,
whereas, 'hello world' should simply be followed by period---is there
not a FAQ on this?!.
regards
andrew
:-)
------------------------------
Date: Thu, 17 Sep 1998 01:42:47 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Who posts original posts on CLPM?
Message-Id: <3600AF67.39F4909F@gpu.srv.ualberta.ca>
Elaine -HappyFunBall- Ashton wrote:
!
! > Others within this newsgroup have abundant training in the
! > elementary statistical methods required for such a study. It
! > requires no special degree or formal job description within such
! > as the US Census.
!
! Hrm. 'Abundant Training in Elementary Statistical Methods'. The
! census has no corner on demographics so it is indeed interesting that
! you should mention it. Otherwise, I still contest that raw data is
! raw data, not 'statistics' and even the census bureau would have a
! hard time calling any of the above thread such. There are no
! 'statistics' in the previous assumptions. And even a friend of mind
! who happens to be a nobel laureate agrees that there are 'Lies, Damn
! Lies, and Statistics'. Let's give this a rest, eh?
yes, there are all kinds of lies, and statistics are often one kind
(or worse, an argument for another lie) ... nevertheless, frequency
data (ratios) counts (as a statistic) ... which is why there are all
kinds of statistical methods to test differences in frequency data
(ie: similar to simple averages, an average is "a statistic" ... but
by itself what does it denote?) --- to be clear, the data presented
so far is not raw data, but summary frequency data...which counts as
statistical in one sense---but thus far, there is no statistical
meaning derivable (in the sense of no testable hypothesis, and no
meaningful analysis of the data forthcoming)...notice the word
'meaning' here --- statistics is about trying to convolve 'meaning'
with 'measure'...and a great deal of contextual argument
(hypothesizing) is necessary before its worthwhile even considering
a 'statistical argument' as being a valid approach to a question
(or problem set).
note: I am not a statistician...though I have played one in a previous
life...as such, all my remarks are within some bounded set of standard
error and may, or may not, be incorrect.
regards
andrew (uhmm, Perl ... there!)
------------------------------
Date: Wed, 16 Sep 1998 23:10:15 -0400
From: Barry Fanion <webmaster@driverzone.com>
Subject: wwwboard run under NT
Message-Id: <36007D97.7567@driverzone.com>
Has anybody gotten wwwboard to run under windows NT ??
Barry Fanion
mailto:webmaster@driverzone.com
http://www.driverzone.com
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3736
**************************************
