[12693] in Perl-Users-Digest
Perl-Users Digest, Issue: 102 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 10 14:07:38 1999
Date: Sat, 10 Jul 1999 11:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 10 Jul 1999 Volume: 9 Number: 102
Today's topics:
Re: Access Modifications on a UNIX box... <c8133594@comp.polyu.edu.hk>
Re: ActiveState's PerlScript (Marcel)
Avoiding copying (Kai Henningsen)
Re: Changing case local-specifically (Larry Rosler)
Re: checking Perl offline (Andrew M. Langmead)
Re: checking Perl offline (Abigail)
Re: FAQ 5.7: How can I use a filehandle indirectly? <uri@sysarch.com>
Re: FAQ 5.7: How can I use a filehandle indirectly? (Michael Rubenstein)
Re: FAQ 5.7: How can I use a filehandle indirectly? (Larry Rosler)
Re: FAQ 5.7: How can I use a filehandle indirectly? (Abigail)
Re: Freelance perl/cgi/cookie help wanted. (Marcel)
Re: Getting very irregular single 'name' field into fir (Abigail)
Re: Global variables from a module (brian d foy)
Re: Help -- Weird Increments (MacPerl) (Chris Nandor)
Re: HELP! how do I run remsh commands from a script? <ilyao@tx.technion.ac.il>
How to dereference an array reference? <nospam@nospam.nospam>
Re: How to dereference an array reference? <turboperl@erols.com>
Re: How to dereference an array reference? <rick.delaney@home.com>
Idiot requires help <tony.mail@tesco.net>
Re: OLE & Excel <markmclean@aol.com>
Re: PERLFUNC: tr/// - transliterate a string <hiller@email.com>
Re: Sorting hash of Arrays now drops duplicate keys. (Michel Dalle)
Re: Speed/Diff - Perl v. Cold Fusion (Marcel)
Unable to connect to Oracle Database <moeri@sgi.com>
variable "$foo" will not stay shared (random static)
Re: Variable (Marcel)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 10 Jul 1999 22:35:22 +0800
From: Carfield Yim <c8133594@comp.polyu.edu.hk>
Subject: Re: Access Modifications on a UNIX box...
Message-Id: <37875A2A.F8CCCCE9@comp.polyu.edu.hk>
I also interest in it, any information about this??
Andy Chantrill wrote:
> Hey,
>
> I've seen a few posts regarding how to modify MS Access databases with Perl
> in Win95/98, but is it possible on a box running UNIX?
>
> If so how?
>
> Thanks a lot,
> Andy.
------------------------------
Date: Sat, 10 Jul 1999 16:56:45 GMT
From: marcel.grunauer@lovely.net (Marcel)
Subject: Re: ActiveState's PerlScript
Message-Id: <37887b42.1331564@enews.newsguy.com>
On Fri, 9 Jul 1999 18:34:18 -0500, "John M. Dlugosz"
<john@dlugosz.com> wrote:
>Is there a newsgroup for this, or any other information to be had?
www.perlscripters.com
www.activestate.com
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: 10 Jul 1999 19:05:00 +0200
From: kaih=7KbhHxTmw-B@khms.westfalen.de (Kai Henningsen)
Subject: Avoiding copying
Message-Id: <7KbhHxTmw-B@khms.westfalen.de>
I've looked at perlguts and friends, but I'm still confused.
So I'm writing an XS, and I want to push large blocks of memory around.
For example, I can get those by mmap()ing a file.
Now, I'd like to pass those to perl, in a way that perl can use them as
scalars holding a string.
Now, perl must obviously not be allowed to simply free() these things; on
the other hand, perl's reference counting to determine when to destroy
them is just fine. Sounds like a job for a blessed object with a
destructor. But then perl would call FETCH or similar to get the value,
and it seems to me I would then need to copy that value, no?
Obviously, I'd like to avoid copying them if at all possible.
Is this possible, and if so, how?
Kai
--
http://www.westfalen.de/private/khms/
"... by God I *KNOW* what this network is for, and you can't have it."
- Russ Allbery (rra@stanford.edu)
------------------------------
Date: Sat, 10 Jul 1999 09:40:59 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Changing case local-specifically
Message-Id: <MPG.11f11775a159317d989c97@nntp.hpl.hp.com>
In article <7m6u9u$s6h$0@216.39.141.200> on 10 Jul 1999 07:55:42 GMT,
Neko <tgy@chocobo.org> says...
> On Fri, 9 Jul 1999 22:28:14 -0700, lr@hpl.hp.com (Larry Rosler) wrote:
> >In article <Atyh3.82$xEh.179233792@news.frii.net> on Sat, 10 Jul 1999
> >02:45:52 GMT, Jack Applin <neutron@bamboo.verinet.com> says...
...
> >> ... I'd like to do one whopping tr for the
> >> entire string, but constructing the tr and eval'ing it would be ugly.
...
> >my $left = join "" => map chr, ord('A') .. 0xFF; # No letters lt 'A'.
> >(my $right = $left) =~ s/(.)/$1 ne uc($1) ? uc($1) : lc($1)/ge;
> >eval "sub Tr { \$[0] =~ tr/$left/$right/ }";
> >$@ and die $@;
>
> Nice. And a variation using map() instead of s///:
>
> my @left = map chr, ord('A') .. 0xFF;
> my @right = map {$_ ne uc $_ ? uc : lc} @left;
> eval "sub TR { \$_[0] =~ tr/@left/@right/ }";
> $@ and die $@;
Definitely cleaner, and a clear Perl-golf winner. But I'll beat it by
three [key]strokes:
my @right = map {uc ne $_ ? uc : lc} @left;
Do you still think constructing the 'tr' is ugly, Jack?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 10 Jul 1999 16:43:10 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: checking Perl offline
Message-Id: <FEnyFy.F4F@world.std.com>
Per Kistler <kistler@fnmail.com> writes:
>You may run a www server locally. I do it on Linux and use
>apache, which is for free. Even if you are not root, you
>can run it on some free port number. (For win/mac I'm not
>responsible:-)
But suggestions like this that suggest running the CGI scripts
initially on a web server are preventing the use of the perl debugger
as a development tool.
There is no reason any software developer has to debug code with print
statements any more. Even the embedded design people have their
simulators and in circuit emulators (and for this kind of work, it
isn't debugging with print statements, but by toggling I/O ports)
Instaling perl on the original poster's local machine would go a great
way towards his goal of getting his scripts debugged before copying
them to his production system. I feel using the web server as the
running environment to test the CGI scripts is more of a hinderence
than a help.
--
Andrew Langmead
------------------------------
Date: 10 Jul 1999 12:21:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: checking Perl offline
Message-Id: <slrn7of081.h7.abigail@alexandra.delanet.com>
Andrew M. Langmead (aml@world.std.com) wrote on MMCXXXIX September
MCMXCIII in <URL:news:FEnyFy.F4F@world.std.com>:
@@
@@
@@ There is no reason any software developer has to debug code with print
@@ statements any more. Even the embedded design people have their
@@ simulators and in circuit emulators (and for this kind of work, it
@@ isn't debugging with print statements, but by toggling I/O ports)
Using print statements is, except for analysing the program, the only
way I debug.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 10 Jul 1999 11:09:15 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: FAQ 5.7: How can I use a filehandle indirectly?
Message-Id: <x71zegr17o.fsf@home.sysarch.com>
>>>>> "TC" == Tom Christiansen <tchrist@mox.perl.com> writes:
TC> I don't meant to be judgmaticalistical and call it super invalidy
TC> in vurry ripped and clipped jargon, but it's just not a decentish or
TC> statusy thing to be writing thusly in the bettermost fora. Sure, that
TC> kind of phrasey lingo might thusly sound more come-at-able to some of
TC> the more swellish kiddies, but it's a ratherish shambolic stunt that
TC> thusly leaves the vurry, vurry nicey reader in search of something, well,
TC> moreish; you know, something a tad more primmy and prestigey. It's hard
TC> to avoid getting an ucky taste all-overish when thusly stumbling through
TC> twistical turns of tongue. Yes indeedy, Bob!
some of your most coherent and accessible writing i have yet seen.
:-)
<ducking>
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Sat, 10 Jul 1999 15:35:49 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: FAQ 5.7: How can I use a filehandle indirectly?
Message-Id: <37886376.57218315@nntp.ix.netcom.com>
On 10 Jul 1999 08:50:14 -0700, Tom Christiansen
<tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting mailed to cited author]
>
>In comp.lang.perl.misc, miker3@ix.netcom.com (Michael Rubenstein) writes:
>:As is "thusly," at least according to the Oxford English
>:Dictionary. It means the same as "thus."
>
>It is therein marked as being of colloquial adverbial usage, where it
>finds itself in the august company of such similarly marked terms as
>"indeedy", "ratherish", and "vurry", and well as their more adjectival
>cohorts, "all-overish", "bettermost", "come-at-able", "decentish",
>"invalidy", "judgmatical", "moreish", "nicey", "phrasey", "prestigey",
>"shambolic", "statusy", "swellish", "twistical", and "ucky".
>
>I don't meant to be judgmaticalistical and call it super invalidy
>in vurry ripped and clipped jargon, but it's just not a decentish or
>statusy thing to be writing thusly in the bettermost fora. Sure, that
>kind of phrasey lingo might thusly sound more come-at-able to some of
>the more swellish kiddies, but it's a ratherish shambolic stunt that
>thusly leaves the vurry, vurry nicey reader in search of something, well,
>moreish; you know, something a tad more primmy and prestigey. It's hard
>to avoid getting an ucky taste all-overish when thusly stumbling through
>twistical turns of tongue. Yes indeedy, Bob!
And where did I say that it was not colloquial? I quoted two
sentences in your post and pointed out an error in the first. If
there is anything in the OED that says that words listed as
colloquial are not words, I'm afraid I have missed it.
From the OED:
colloquial, a.
...
1. Of or pertaining to colloquy; conversational.
...
2. spec. Of words, phrases, etc.: Belonging to common
speech; characteristic of or proper to ordinary
conversation, as distinguished from formal or elevated
language. (The usual sense.)
Ordinary, conversational, English is, I believe, the appropriate
standard for Usenet discussion.
Words like "vurry" would also be appropriate where they convey
the intended meaning. The definition of "vurry" in the OED is
Repr. an Amer. pronunciation of VERY
Clearly one should not use this form except where one intends to
convey the pronunciation as well as the meaning of the word (this
is clearly the case in the four quotations given in the
dictionary). I see nothing wrong with using the word on Usenet
if that is the intent, but, I must confess, I am unable to see
why you think the pronunciation is important where you have used
it. Since you are obviously very concerned with the proper use
of the language, I am certain that this is my failing and I
intend to study your post more carefully until I understand your
intent.
--
Michael M Rubenstein
------------------------------
Date: Sat, 10 Jul 1999 09:51:38 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: FAQ 5.7: How can I use a filehandle indirectly?
Message-Id: <MPG.11f119f16ad14f07989c98@nntp.hpl.hp.com>
In article <x71zegr17o.fsf@home.sysarch.com> on 10 Jul 1999 11:09:15 -
0400, Uri Guttman <uri@sysarch.com> says...
> >>>>> "TC" == Tom Christiansen <tchrist@mox.perl.com> writes:
>
> TC> I don't meant to be judgmaticalistical and call it super invalidy
> TC> in vurry ripped and clipped jargon, but it's just not a decentish or
> TC> statusy thing to be writing thusly in the bettermost fora. Sure, that
> TC> kind of phrasey lingo might thusly sound more come-at-able to some of
> TC> the more swellish kiddies, but it's a ratherish shambolic stunt that
> TC> thusly leaves the vurry, vurry nicey reader in search of something, well,
> TC> moreish; you know, something a tad more primmy and prestigey. It's hard
> TC> to avoid getting an ucky taste all-overish when thusly stumbling through
> TC> twistical turns of tongue. Yes indeedy, Bob!
>
> some of your most coherent and accessible writing i have yet seen.
>
> :-)
>
> <ducking>
My, my. All this foofaraw about two little letters: 'thus' =>
'thusly'. (Note ObPerl content in => :-)
Is this thread a candidate for the Off-Topic contest that you just
proposed, Uri?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 10 Jul 1999 12:18:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: FAQ 5.7: How can I use a filehandle indirectly?
Message-Id: <slrn7of02q.h7.abigail@alexandra.delanet.com>
Michael Rubenstein (miker3@ix.netcom.com) wrote on MMCXXXIX September
MCMXCIII in <URL:news:37886376.57218315@nntp.ix.netcom.com>:
??
?? Ordinary, conversational, English is, I believe, the appropriate
?? standard for Usenet discussion.
All those damned foreigners should stay away from Usenet.
Abigail
--
echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
|perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
|perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
|perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 10 Jul 1999 16:57:18 GMT
From: marcel.grunauer@lovely.net (Marcel)
Subject: Re: Freelance perl/cgi/cookie help wanted.
Message-Id: <37897b5b.1356710@enews.newsguy.com>
On Fri, 09 Jul 1999 15:01:17 -0800, Tomh <fetch@fetchound.com> wrote:
>
>Hi,
>
>Have a create/set/get/use cookie project.
My, a whole project revolving around cookies?
perldoc CGI
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: 10 Jul 1999 12:13:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Getting very irregular single 'name' field into first/last name for credit card gateway -- what hit rate is possible?
Message-Id: <slrn7oevoj.h7.abigail@alexandra.delanet.com>
Stephen Benson (stephenb@scribendum.win-uk.net) wrote on MMCXXXIX
September MCMXCIII in <URL:news:7m71oj$nc7$1@plutonium.compulink.co.uk>:
<> There's no code yet, 'cos I'm considering the problem, investigating the
<> data. It just seems more than a quick regexp/split can handle.
This still doesn't make it a Perl question.
<> More generally, I'm sure this has been addressed before; there must be some
<> discussion of the issues somewhere.
Most likely. Then why don't go you search for said discussion? Go to Deja,
go to Lycos, go to Altavista, go to Yahoo, go to Hotbot, etc, etc, etc.
[ Out of order quote ]
Please, we write here in English, not in a language that reads bottom to
top (else we would have to reverse the orders of the lines as well). First
putting in your reply, then what you are replying to makes you look like
a fool. Television programs don't show the summary of last weeks episode
after this weeks episode either, do they?
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 10 Jul 1999 12:59:32 -0500
From: brian@pm.org (brian d foy)
Subject: Re: Global variables from a module
Message-Id: <brian-1007991259320001@218.chicago-03-04rs.il.dial-access.att.net>
In article <378692A1.34D82BA1@innercite.com>, Mike Machado
<mike@innercite.com> wrote:
> I am trying to set a variable in my module and have it avaiable in the
> user script without having to go $Package::var
> I set my $var = "something" in the module and put $var in the
> @EXPORT and the @EXPORT_OK but that did not work.
it didn't work when you put in @EXPORT? what else were you doing?
what did your `use' lines look like?
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Sat, 10 Jul 1999 15:53:16 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Help -- Weird Increments (MacPerl)
Message-Id: <pudge-1007991153240001@192.168.0.17>
In article <931601670.3699@www.remarq.com>, johnny99
<john@your.abc.net.au> wrote:
# Your kind help so far has alerted me to the probability that
# this stuff in the script may contain some functions not
# implemented in MacPerl:
#
# seek (NUMBER, 0, 0);
# print NUMBER "$num";
# truncate (NUMBER, tell(NUMBER));
#
# because this stuff is obviously the stuff about finding
# where in the file I'm reading, rewinding it, chopping stuff
# off the end, etc.
#
# Can someone tell me which of these functions isn't working
# for me?
Those should all be working fine in MacPerl. But you should always go
first to man perlport (not included with MacPerl, but included with
perl5.004_05 and up) for a list of what functions differ on what
platforms. truncate() works differently than Unix on Win32, but those all
work fine on MacPerl.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Sat, 10 Jul 1999 18:11:32 +0100
From: "Eli Osherovich" <ilyao@tx.technion.ac.il>
Subject: Re: HELP! how do I run remsh commands from a script?
Message-Id: <7m7ntv$4tb$1@techftp.technion.ac.il>
HI
I spent a lot trying to get remsh to work.
The point was :
which shell metachars to use : onets from the korn/bourn shell or from the
cshell (the shell on the
remout machine) .
The cshell worked for me.
Abigail <abigail@delanet.com> wrote in message
news:slrn7odbv1.h7.abigail@alexandra.delanet.com...
------------------------------
Date: Sun, 11 Jul 1999 01:00:12 +0800
From: "Calvin" <nospam@nospam.nospam>
Subject: How to dereference an array reference?
Message-Id: <7m7u2j$2de$1@hfc.pacific.net.hk>
Hi,
For example, i use the method fetchall_arrayref in the statement handle
in DBI. Than i got an array reference. But how can i dereference them to get
the actually values of the array???
$arrayRef = $statementHandle->fetchall_arrayref;
--
Best regards
Calvin
http://www.geocities.com/SiliconValley/Code/9129/
------------------------------
Date: Sat, 10 Jul 1999 13:54:42 -0400
From: "Will Smith" <turboperl@erols.com>
Subject: Re: How to dereference an array reference?
Message-Id: <7m81cs$rmm$1@autumn.news.rcn.net>
#To get the 3rd element of the array use
$element = ${$arrayRef}[2];
#or assign to an array using
@array = @$arrayRef;
# or
@array = @{$arrayRef};
Calvin wrote in message <7m7u2j$2de$1@hfc.pacific.net.hk>...
>Hi,
> For example, i use the method fetchall_arrayref in the statement handle
>in DBI. Than i got an array reference. But how can i dereference them to
get
>the actually values of the array???
>
>$arrayRef = $statementHandle->fetchall_arrayref;
>
>--
>Best regards
>Calvin
>http://www.geocities.com/SiliconValley/Code/9129/
>
>
------------------------------
Date: Sat, 10 Jul 1999 17:56:45 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to dereference an array reference?
Message-Id: <3787892B.811C2879@home.com>
Calvin wrote:
>
> Than i got an array reference. But how can i dereference them to get
> the actually values of the array???
>
> $arrayRef = $statementHandle->fetchall_arrayref;
I think the section of the documentation that discusses references also
says how to dereference them.
perldoc perlref
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sat, 10 Jul 1999 19:03:23 +0100
From: Tony <tony.mail@tesco.net>
Subject: Idiot requires help
Message-Id: <37878AE9.8966827C@tesco.net>
OK- maybe not such an idiot, at least I know where to ask for help !
This is it - I am a designer - not a programmer.
I'm working for a small company and we don not have a perl genius handy
when wee need one - like now...
I have a task which I "think" is very simple to accomplish assuming you
know
where to start, how to proceed, and when you'er finished.
Like if you know how...
And we don't.
So, if there is a kindly soul, who would like to offer some very
basic advice on a very simple topic to some idots,
please mail me ASAP.
Best wishes
Tony
tony.mail@tesco.net
blondie@welcome.to
------------------------------
Date: Sat, 10 Jul 1999 15:12:05 GMT
From: Mark McLean <markmclean@aol.com>
Subject: Re: OLE & Excel
Message-Id: <7m7ns0$7o0$1@nnrp1.deja.com>
In article <7m3ivc$soi$1@nnrp1.deja.com>,
hemant_gandhi@my-deja.com wrote:
> Hi all,
> I am processing excel file thru a perl program. reading the excel file
> and loading it in the database. can any one tell me how to find out the
> number of sheets in the excel file ?
>
> Thanks,
> Hemant.
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
>
Hi Hemant
I'm assuming you can look at the file and see but you want the file to
read it itself, or have Pearl read it.
I know that VBA in excel can do that. But you need an excel file
to do it. Either have another file that will read any file
that you point it to or have the following in each file. I think
this will help.
Sub count_sheets()
Dim sheet_total
sheet_total = Worksheets.Count
MsgBox sheet_total
End Sub
You could have one file read another by putting in "workbook("name")
on the first lilne.
Remember there may be modules Dialog and chart that can
be counted by taking the "Work" out of "worksheet".
Hope that helps or gets ya closer.
Mark
--
Golf software for keeping scores and handicaps.
Simple quick and correct.
http://hometown.aol.com/markmclean/private/golf.htm
Free trial!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sat, 10 Jul 1999 17:50:49 GMT
From: Jordan Hiller <hiller@email.com>
Subject: Re: PERLFUNC: tr/// - transliterate a string
Message-Id: <378787FB.D69B2957@email.com>
Oh that was real useful ;) Now HOW can you guys complain about all the newbie
questions and FAQs after a message like this?
Tom Christiansen wrote:
>
> (This excerpt is from the perlfunc manpage, part of the standard set of
> documentation included with every valid Perl distribution--like the one on
> your own system. See also http://language.perl.com/newdocs/pod/perlfunc.html
> or http://www.perl.com/CPAN-local/doc/manual/html/pod/perlfunc.html
> if your negligent system adminstrator has been remiss in his duties.)
>
> NAME
> tr/// - transliterate a string
>
> SYNOPSIS
> tr///
>
> DESCRIPTION
> The transliteration operator. Same as `y///'. See the perlop
> manpage.
------------------------------
Date: Sat, 10 Jul 1999 16:00:26 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Sorting hash of Arrays now drops duplicate keys.
Message-Id: <7m7ql3$i57$1@xenon.inbe.net>
In article <01bec9e4$cfb49f40$f34f39cb@stingray>, "John Hennessy" <john@hendigital.com.au> wrote:
>Thanks to all who responded to the previous post.
>I was aware of the Alpha versus Numeric sort functionality but the method I
>had used was ineffective.
>
>My problem now is that the sort on group drops any duplicate keys. (Of
>course).
>ie. I only end up with one user displayed for each group ID.
>
>Ultimately what I need to achieve is to read in the login name, group and
>real name, produce output
>sorted by login name, real name (preferably surname) and each group
>numerically sorted with it's members alpha sorted.
Well, assuming that 'login' is unique, you might keep two hashes (or
a hash of arrays) based on that, and sort any which way you want :
..
$group_h{$login} = $group;
$name_h{$login} = $name;
..
# sort by login :
@sorted_login = sort {$a cmp $b} keys %name_h;
# sort by name :
@sorted_login = sort {$name_h{$a} cmp $name_h{$b}} keys %name_h;
# sort by group ID and name
@sorted_login = sort {$group_h{a} <=> $group_h{$b}
|| $name_h{$a} cmp $name_h{$b}}
keys %name_h;
# sort by name and login
# (e.g. if a single name can have several logins)
@sorted_login = sort {$name_h{a} cmp $name_h{$b}
|| $a cmp $b}
keys %name_h;
# etc.
Using a hash of arrays instead of two hashes may be more useful
if you want to keep more data about each login in the future (e.g.
the shell), but makes it a bit more difficult to understand on first
reading, IMO.
If you want to do more processing in the sort function, e.g. extract
the last name, you might want to use 'map' too.
Happy learning,
Michel.
------------------------------
Date: Sat, 10 Jul 1999 17:04:23 GMT
From: marcel.grunauer@lovely.net (Marcel)
Subject: Re: Speed/Diff - Perl v. Cold Fusion
Message-Id: <378a7bce.1471966@enews.newsguy.com>
On Fri, 09 Jul 1999 21:47:20 GMT, austintech@my-deja.com wrote:
>I am currently evaluating the use of PERL v. Cold
>Fusion for a high-end data services site.
Shurely shome mishtake...
Cold-Fusion has a nice little price-tag with it, and appears to be
slower and less flexible. Haven't compared the two extensively,
though.
And Allaire assumes that just because you want to use some server-side
technology, you also want to use their IDE (much like Microsoft does
with Visual Studio). Sorry, but nothing's going to get me to give up
emacs (even on NT).
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: Sat, 10 Jul 1999 09:44:12 -0700
From: Nicolas Moeri <moeri@sgi.com>
Subject: Unable to connect to Oracle Database
Message-Id: <3787785C.CFFF2404@sgi.com>
I've written a Perl CGI script to access an Oracle Database from a
Webpage.
I'm using Perl 5.004 with CGI.pm and oraperl.
Launched from the shell, the script works, but from the web page
&ora_login produces the following error:
ORA-00604: error occurred at recursive SQL level (DBD: login failed)
To try to fix the problem, I've set the following environment variables
in the perl script:
$ENV{"ORACLE_HOME"}="/oracle/product/8.0.5";
$ENV{"ORACLE_SID"}="SOHO";
$ENV{"LD_LIBRARY_PATH"}="/oracle/product/8.0.5/lib";
$ENV{"SGI_ABI"}="-32";
The error remains.
What should I do ?
Thanks for your answers to moeri@sgi.com
------------------------------
Date: Sat, 10 Jul 1999 11:36:07 -0400
From: rand@localhost.localdomain (random static)
Subject: variable "$foo" will not stay shared
Message-Id: <slrn7oeq37.p1.rand@localhost.localdomain>
writing CGI scripts using CGI.pm and CGI::Carp, i'm getting warnings
saying `Variable "$foo" will not stay shared at...' when calling a
subroutines in a homebrew module at various places.
what does this warning mean? how do i squash it? what sort of potential
error behaviour should i be looking out for in the meantime?
------------------------------
Date: Sat, 10 Jul 1999 17:08:08 GMT
From: marcel.grunauer@lovely.net (Marcel)
Subject: Re: Variable
Message-Id: <378b7d50.1857841@enews.newsguy.com>
On Fri, 09 Jul 1999 13:44:16 -0700, Raj <technology@workmail.com>
wrote:
>Hi,
>If i click on a hyperlink on my CGI/Perl page, a flag value should be
>written to flatfile.
>
>I used a Hidden form field whose value i'd set in JavaScript function.
>then I set this modified form field value to a $variable
>and tried to write that $variable to a file.
>
>The problem is the $variable is not getting updated after returned from
>JavaScript fn. ? any help please.... TIA,
Sorry, I didn't understand everything here.
Do you mean that you have a link which invokes a JavaScript function
which sets some hidden form field value, which you then pass to a Perl
program when you click the Submit button?
And what exactly doesn't work?
Post that bit of code which you think gives you problems, but no more
than 40 lines or so. If you're sure that your Perl program is ok, you
might want to try your luck in a JavaScript newsgroup.
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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 V9 Issue 102
*************************************
