[9451] in Perl-Users-Digest
Perl-Users Digest, Issue: 3047 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 3 16:07:21 1998
Date: Fri, 3 Jul 98 13:03:00 -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, 3 Jul 1998 Volume: 8 Number: 3047
Today's topics:
Re: flame everyone on sight (was Re: Perl and Delphi) <Russell_Schulz@locutus.ofB.ORG>
Re: flame everyone on sight (was Re: Perl and Delphi) <jdporter@min.net>
Re: Flames.... (Steve McNabb)
Re: FORMAT in MacPerl (brian d foy)
Re: FORMAT in MacPerl <neeri@iis.ee.ethz.ch>
Re: FORMAT in MacPerl (Chris Nandor)
FREE Shopping Cart veronica@iminet.com
Re: FREE Shopping Cart <perlguy@inlink.com>
Re: FREE Shopping Cart (Miguel Cruz)
Re: Getting Oracle info with Perl <simonf@conduit.co.uk>
Re: Getting Oracle info with Perl (Mike Stok)
hash of hash - how to foreach over the 2nd hash? (Kajetan Hinner)
Re: hash of hash - how to foreach over the 2nd hash? (brian d foy)
Re: hash of hash - how to foreach over the 2nd hash? <tchrist@mox.perl.com>
Re: hash of hash - how to foreach over the 2nd hash? <quednauf@nortel.co.uk>
Re: hash of hash - how to foreach over the 2nd hash? <quednauf@nortel.co.uk>
Re: hash of hash - how to foreach over the 2nd hash? <dean@mail.biol.sc.edu>
Re: hash of hash - how to foreach over the 2nd hash? <simonf@conduit.co.uk>
help wanted. on intalling Perl on Windows95. <jack@uci.edu>
Re: help wanted. on intalling Perl on Windows95. <quednauf@nortel.co.uk>
Re: HELP....! Very simple array sort question! (Mike Stok)
Re: HELP....! Very simple array sort question! <quednauf@nortel.co.uk>
Help: Passing string arrays to Perl extensions <rama_srinivas@hotmail.com>
HELP: Problem building Perl5 on Cygnus target <dominique.cretel@cfwb.be>
How do chang groups (Scott Anderson)
Re: How do chang groups <qdtcall@esb.ericsson.se>
Re: How do you do system administration with perl? (Cameron Laird)
Re: How do you do system administration with perl? <efinch@cais.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 2 Jul 1998 09:12:24 +0100
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: flame everyone on sight (was Re: Perl and Delphi)
Message-Id: <19980702.091224.2u9.rnr.w164w@locutus.ofB.ORG>
jdporter@min.net (John Porter) writes:
>>> Why would you want to program in Delphi?
>>
>> now, was there any reason for this? or was it just incredibly poorly
>> stated?
>
> Maybe Dan meant "educate me on the peculiar strengths of Delphi".
so you think it was just incredibly poorly stated?
> A little hyper-sensitive, are we?
well, I'm not. that leaves only you.
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Thu, 02 Jul 1998 17:33:44 GMT
From: John Porter <jdporter@min.net>
Subject: Re: flame everyone on sight (was Re: Perl and Delphi)
Message-Id: <359BC637.5AF6@min.net>
Russell Schulz wrote:
>
> jdporter@min.net (John Porter) writes:
>
> >>> Why would you want to program in Delphi?
> >>
> >> now, was there any reason for this? or was it just incredibly poorly
> >> stated?
> >
> > Maybe Dan meant "educate me on the peculiar strengths of Delphi".
>
> so you think it was just incredibly poorly stated?
No. I just took "Why..." quite literally, rather than infer that it
was meant sarcastically/rhetorically -- even if Dan meant it that way.
> > A little hyper-sensitive, are we?
>
> well, I'm not. that leaves only you.
Sorry. I think your tone says otherwise.
--
John Porter
------------------------------
Date: 3 Jul 1998 15:30:07 GMT
From: smcnabb@interlog.com (Steve McNabb)
Subject: Re: Flames....
Message-Id: <6nitdv$jr0$1@nntp1.uunet.ca>
In article <vpd8bpp24a.fsf@dogbert.support.tivoli.com>,
stend+c.l.perl.misc@sten.tivoli.com says...
< stuff about docs being hard snipped >
>
> Then that "beginner" shouldn't be using Perl. Look at the
>cover of _Learning Perl_. What are the first words on the cover?
>"Unix Programming". Before learning Perl, you should have some
>knowledge of Unix, and some knowledge of programming. If you lack
>either, you're not properly prepared to start.
>
I would have to disagree. I started out with Perl as my first language,
and although I found it to be _very_ tough going at first, eight months
later, I'm now happily dancing around the symbol table and slinging
lean, fast, powerful OO perl all over the place. Now, following your logic,
if I didn't already have some programming experience (I had no experience
with programming, only a rough conceptual understanding) I shouldn't have
even bothered starting. I have a few little projects underway that I plan to
release when they are done, since I want to give back to the community that I
took so much from when I was learning. So, as a corollory of what you are
suggesting (that perl should only be used or learned by people who already
have programming experience), these projects would never have happened. Ok,
they're not ground shaking techno-revolutions, but every oak tree was an
acorn once too. :)
Granted, the 'cluessness' of the general Perl-er has gone up alot recently,
but this only speaks to the popularity of Perl worldwide. Sure, some of them
are totally clueless, and always will be. Have you been to _any_ public
place lately? There are alot of stupid people on the planet, and I'm rather
surprised that there aren't _more_ in c.l.p.m.
Now, I think this really exposes one of the 'core' fundamental issues that
will be facing the perl community for the forseeable future: perl is
changing. Programming is changing. Computers are changing. People (like
myself) who, 5 years ago, would never have even attempted to learn
programming are now in a position to learn to write useful programs and, in
some cases (like mine) find full time employment as a result. I originally
took my job as a graphic designer, but my employer was willing to invest in
my skill set, so I decided to tackle perl. Sure, I'm not going to be writing
programs to drive serial devices any time soon, but I know it's possible in
the language that I know and love, so that encourages me and gives me
something (ok, a million things ;-) to look forward to. You can get a hell
of a lot of useful things done with just the basic set of features of perl.
Why is that such a horrible thing? Why can't people be encouraged to learn
just the 'very basic basics' and then add the more complex bells and whistles
as required? Does every perl programmer have to be a wizard? What's wrong
with a novice just poking at the buttons on the black box?
I personally think that Perl is _ideal_ as a first language. Granted, there
are some rather (wonderfully) bizzare things about Perl that throw beginners
off from time to time (the difference between ' and " for example), once
they clear the first few conceptual hurdles, the "Perl makes easy things
easy" part of the perl mantra becomes readily visible. I am currently
teaching several people Perl in my spare time (an hour here, an email there,
all free of course) and I find the most common comment from these people is
that most of the Perl-related materials available seem to assume that you are
already a programmer, or at least have some programming experience.
Did you pop out of your mother on the day you were born with an assembler
desktop reference in your hand? No, you had to learn it (granted, some time
ago perhaps) from _THE_BEGINNING_. Why must you berate others for being in
the same (clueless) position you were in once yourself? Sure, there are
_WAY_ too many FAQ's and stupid questions being asked, but more stupid
questions mean more perl programmers. This is the fundamental
beauty/ugliness paradox of the perl/open source concept: the more people
there are using it (granted, some of which will be morons)the more crud we
get, but also, perl becomes more valuable for EVERYONE. Sure, they don't
have much to contribute at first, but give them a few years, and they could
be writing kick ass extension modules, which you can download and use for
nothing. Now, you strike me as the type who figures he can do it better
himself, and you are encouraged to do so (and release it of course ;-)
I'll bet you $5 that there isn't a single author on CPAN who, if you sent
them a great suggestion for how to do something better in their module,
wouldn't be interested in it.
I think that if Perl is to truly dominate the world (which we all know it
will sooner or later ;-) there needs to be a supplemental addition to the
perl documentation which covers things like:
1) Here are the top 5 ways to find an answer to your problem (local docs,
FAQ's, websites, scripts, blah)
2) Here are a few things that will help you avoid getting nasty emails for
asking the wrong question in the wrong place
3) A gently paced introduction to the 'very basic basics' with a bunch of
examples.
4) A few descriptions of situations where certain functions are useful
(perhaps a 'fatter' version of perlfunc with things like "and this is a
situation where split is a bad solution, and why" or "watch out for this one
-- this gets people all the time" or "here are three examples to show you
some of the more common uses - maybe beginner, intermediate and advanced?
- of this function" ;-)
You are certainly entitled to your elitist point of view, but is it fair that
every aspiring perl initiate has to come "up" (note: I do not equate
experience with intelligence) to the lofty level of programmer immediately?
Do I have to speak Shakespearian english to order a hot dog? What is so
wrong with helping people who need that extra little nudge to become helpful,
valuable, resourceful, self-sufficient and contributing members of the perl
community.
Anyhow, that's enough for now.
Steve
+++
smcnabb@interlog.com
**SPAMERS WILL BE RECURSIVELY MAILED RANDOM GARBAGE**
------------------------------
Date: Thu, 02 Jul 1998 00:19:32 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: FORMAT in MacPerl
Message-Id: <comdog-ya02408000R0207980019320001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6nevvi$nmp@bgtnsc03.worldnet.att.net>, steina@member.ams.org (Alan H. Stein) posted:
>I've been trying to use a format in MacPerl 4.1.3. A sample attempt is:
>#!/bin/perl
>
>$~ = "TheFormat";
>write;
>
>format TheFormat =
>This is a test.
>.
works with MacPerl 5.1.4r4, which is somewhat older than what
CPAN has.
good luck :)
--
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 T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 02 Jul 1998 10:11:13 +0200
From: Matthias Neeracher <neeri@iis.ee.ethz.ch>
Subject: Re: FORMAT in MacPerl
Message-Id: <86zpes65b2.fsf@gwaihir.ee.ethz.ch>
steina@member.ams.org (Alan H. Stein) writes:
> I've been trying to use a format in MacPerl 4.1.3. A sample attempt is:
>
> Program begins on next line.
> #!/bin/perl
>
> $~ = "TheFormat";
> write;
>
> format TheFormat =
> This is a test.
> .
> Program ended on the line above, containing only a period.
One detail which often is forgotten in exactly this situation is that the
period *has* to be followed by a newline character. The error message occurs if
that character has been omitted.
It could be argued that MacPerl should supply that newline character when
saving a text window, but so far, it does not.
Matthias
--
Matthias Neeracher <neeri@iis.ee.ethz.ch> http://www.iis.ee.ethz.ch/~neeri
"Link me, Embed me ... Treat me like an object!"
------------------------------
Date: Thu, 02 Jul 1998 11:55:12 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: FORMAT in MacPerl
Message-Id: <pudge-0207980754490001@dynamic329.ply.adelphia.net>
In article <comdog-ya02408000R0207980019320001@news.panix.com>,
comdog@computerdog.com (brian d foy) wrote:
# In article <6nevvi$nmp@bgtnsc03.worldnet.att.net>, steina@member.ams.org
(Alan H. Stein) posted:
#
# >I've been trying to use a format in MacPerl 4.1.3. A sample attempt is:
#
# >#!/bin/perl
# >
# >$~ = "TheFormat";
# >write;
# >
# >format TheFormat =
# >This is a test.
# >.
#
#
# works with MacPerl 5.1.4r4, which is somewhat older than what
# CPAN has.
#
# good luck :)
Yeah, the current version is 5.2.0r4. 4.1.3 was superceded a long time
ago, and is no longer supported.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
MacPerl: Power and Ease (ISBN 1881957322), http://www.ptf.com/macperl/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Thu, 02 Jul 1998 14:49:39 GMT
From: veronica@iminet.com
Subject: FREE Shopping Cart
Message-Id: <6ng6m3$pa6$1@nnrp1.dejanews.com>
I found an awesome web-based shopping cart for free.
http://www.321website.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 2 Jul 1998 17:01:14 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: FREE Shopping Cart
Message-Id: <359BBCDA.D5893C42@inlink.com>
If it is REALLY free, would YOU trust them with your credit card and
personal information?????
Brent
------------------------------
Date: 2 Jul 1998 19:16:16 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Re: FREE Shopping Cart
Message-Id: <6ngma0$cr1$1@news.ycc.yale.edu>
In article <6ng6m3$pa6$1@nnrp1.dejanews.com>, <veronica@iminet.com> wrote:
>spam spam spam
If using the internet for 12 years (especially the last three years) has
taught me anything at all, it is that nobody is actually named Veronica, and
if there were, she would sit around in my living room all day long trying to
get me to visit filthy web sites.
miguel
------------------------------
Date: Thu, 2 Jul 1998 13:24:25 +0100
From: "Simon Fairey" <simonf@conduit.co.uk>
Subject: Re: Getting Oracle info with Perl
Message-Id: <359b7b3d.0@nnrp1.news.uk.psi.net>
All you need is the DBI and DBD::Oracle modules to get you started they are
both very simple to use as DBI defines a standard method for accessing
databases, as a simple example here is a small script to create a table and
load data to it from a supplied ';' seperated file:
#!/bin/perl
use DBI;
my $dbh = DBI->connect("dbi::$ENV{ORACLE_TNS}", $ENV{ORACLE_USER},
$ENV{ORACLE_PASS}, 'Oracle') or die "Problems chief: $DBI::errstr";
$dbh->do('DROP TABLE tokens');
# Automatically die if a database error occurs
$dbh->{RaiseError} = 1;
$dbh->do('CREATE TABLE tokens( country VARCHAR(100), map_id
VARCHAR(3),
token1 VARCHAR(3), token2 VARCHAR(100),
token3 VARCHAR(100) )');
my $sth = $dbh->prepare('INSERT INTO tokens VALUES(?,?,?,?,?)');
open LIST, shift or die $!;
while(<LIST>) {
chomp;
$sth->execute( split /;/ );
}
$sth->finish;
$dbh->disconnect;
Hope this helps....
Simon
PS: Go to http://www.perl.com and follow the database/DBI links for plenty
more information.
Vincent M. Probasco wrote in message
<359A880B.290B3593@h8mail.laf.cat.com>...
>Does anyone know of any good web sites that have information on
>accessing an Oracle database
>using Perl ? I don't remeber seeing anything in the FAQs and I haven't
>really found anything too
>usefull with search engines.
>
>Thnx in advace,
>vince
>
------------------------------
Date: 2 Jul 1998 13:13:03 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Getting Oracle info with Perl
Message-Id: <6ng10v$1u6@news-central.tiac.net>
In article <359A880B.290B3593@h8mail.laf.cat.com>,
Vincent M. Probasco <probavm@h8mail.laf.cat.com> wrote:
>Does anyone know of any good web sites that have information on
>accessing an Oracle database
>using Perl ? I don't remeber seeing anything in the FAQs and I haven't
>really found anything too
>usefull with search engines.
You might consider looking at http://www.hermetica.com/technologia/DBI/
if you're using perl 5.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 2 Jul 1998 16:43:52 +0100
From: kh052@cks1.rz.uni-rostock.de (Kajetan Hinner)
Subject: hash of hash - how to foreach over the 2nd hash?
Message-Id: <359b9ca8.0@news.uni-rostock.de>
Hello!
Well, the subject says it all...
I created a hash of hash like
channels{$channel}{$datestring} = $anzahl;
and when i do a
foreach $channel (sort keys %channels) {
it really works fine and i can print all channels in the hash.
BUT: how can i access all $datestring ? (regardless if there is $channel
defined or not for a specific $datestring)?
I tried everything, didn't work. please help cc Kajetan.Hinner@wisofak.uni-rostock.de
thanks
K.
------------------------------
Date: Thu, 02 Jul 1998 11:00:25 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <comdog-ya02408000R0207981100250001@news.panix.com>
Keywords: from just another new york perl hacker
In article <359b9ca8.0@news.uni-rostock.de>, kh052@cks1.rz.uni-rostock.de (Kajetan Hinner) posted:
>I created a hash of hash like
>
>channels{$channel}{$datestring} = $anzahl;
>
>and when i do a
>
>foreach $channel (sort keys %channels) {
>
>
>it really works fine and i can print all channels in the hash.
>
>BUT: how can i access all $datestring ? (regardless if there is $channel
>defined or not for a specific $datestring)?
if $channel is not defined, how did you store $datestring?
>I tried everything, didn't work.
you didn't try *everything*, or you wouldn't be here :)
foreach my $channel ( sort keys %channels )
{
# $channel is the key, with a hash reference as a value
foreach my $datestring ( sort keys %{ $channels{$channel} } )
{
# do what you need to do
}
}
also see perldsc (perl data structure cookbook).
good luck :)
--
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 T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 2 Jul 1998 14:53:33 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <6ng6td$cj2$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
kh052@cks1.rz.uni-rostock.de (Kajetan Hinner) writes:
:Well, the subject says it all...
So does the perldsc manpage. :-)
--tom
--
I might be able to shoehorn a reference count in on top of the numeric
value by disallowing multiple references on scalars with a numeric value,
but it wouldn't be as clean. I do occasionally worry about that. --lwall
------------------------------
Date: Thu, 02 Jul 1998 16:22:09 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <359BA5A1.AB25F418@nortel.co.uk>
Kajetan Hinner wrote:
>
> Hello!
>
> Well, the subject says it all...
>
%hash1 = qw(name john iq 67);
%hash2 = qw(name paul iq -2);
%main_hash = ('person1', \%hash1, 'person2', \%hash2);
foreach $value(values %main_hash) {
foreach $key (keys %$value) {
print "$key = $value->{$key}\n";
}
}
I am sure there are better ways, and for a more enlightened and efficient
learning experience you could have a look at the
perlref and perdsc pieces of documentation. here only a few tips that help me
manage to put something together wothout having to look at the documentation all
the time. Be really literal. If you want to see a value of a reference,
DEREFERENCE. Perl usually doesn't do it for you. read the section on references
in the camel book. Try a few easy things, after a week or so, read the same
section AGAIN. It is almost scary how much that helps!
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 02 Jul 1998 16:25:41 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <359BA675.155FEEC8@nortel.co.uk>
F.Quednau wrote:
> %hash1 = qw(name john iq 67);
> %hash2 = qw(name paul iq -2);
I almost forgot:
***disclaimer ***disclaimer ***disclaimer ***disclaimer
note that john and paul are purely fictional characters and exist only within
their hashes. Offensiveness towards any john or paul isn't intended and I do not
take any reponsability for johns and pauls who have been offended in the past 2
minutes.
***disclaimer ***disclaimer ***disclaimer ***disclaimer
------------------------------
Date: 02 Jul 1998 13:06:12 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <m3vhpgtc6z.fsf@mail.biol.sc.edu>
"F.Quednau" <quednauf@nortel.co.uk> writes:
...
> I am sure there are better ways, and for a more enlightened and efficient
> learning experience you could have a look at the
> perlref and perdsc pieces of documentation. here only a few tips that help me
> manage to put something together wothout having to look at the documentation all
> the time. Be really literal. If you want to see a value of a reference,
> DEREFERENCE. Perl usually doesn't do it for you. read the section on references
> in the camel book. Try a few easy things, after a week or so, read the same
> section AGAIN. It is almost scary how much that helps!
Let's be clear here: Perl (essentially) _never_ dereferences
automatically. Always assume that you must explicitly dereference.
The very special cases where Perl auto-dereferences are documented in
Programming Perl 2e p 245 (and boil down to kinda-sorta with function
prototypes, and a really obscure case with filehandles).
If you program wondering when or whether Perl will automatically
dereference for you, you'll be wrong whenever you decide that it will.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Thu, 2 Jul 1998 17:10:13 +0100
From: "Simon Fairey" <simonf@conduit.co.uk>
Subject: Re: hash of hash - how to foreach over the 2nd hash?
Message-Id: <359bb029.0@nnrp1.news.uk.psi.net>
I'm just about to go so I don't have time to check the exact syntax
( sorry ) but a quick play should resolve your problem. Essentially you want
something like
foreach $datestring ( keys %{$channels{$channel}} )
This will obviously give you access to all the datestrings for a given
channel.
Note, you have to have a $channel otherwise there would be no hash to
access.
Hope this helps but for the best advice check ther perllol, perldata and
perldsc ( I think ) man pages which go into extensive detail regarding
hashes of hashes etc.
Simon
Kajetan Hinner wrote in message <359b9ca8.0@news.uni-rostock.de>...
>Hello!
>
>Well, the subject says it all...
>
>I created a hash of hash like
>
>channels{$channel}{$datestring} = $anzahl;
>
>and when i do a
>
>foreach $channel (sort keys %channels) {
>
>
>it really works fine and i can print all channels in the hash.
>
>BUT: how can i access all $datestring ? (regardless if there is $channel
>defined or not for a specific $datestring)?
>
>I tried everything, didn't work. please help cc
Kajetan.Hinner@wisofak.uni-rostock.de
>
>thanks
>
>K.
------------------------------
Date: Fri, 03 Jul 1998 02:07:36 -0700
From: jack <jack@uci.edu>
Subject: help wanted. on intalling Perl on Windows95.
Message-Id: <359C9F58.4A93CD3E@uci.edu>
I am trying to install Perl on Windows95. I understand there is a
problem about the command prompt is 16 bit. So the help file told me to
do the following:
Most of the compatibility problems that occurred in previous builds are
due
to the 16-bit shell (COMMAND.COM) use on Win95. (These problems included
pipes
and shell escapes).
------------------------------------------------------------------------------------------
To fix the shell problems, we have shipped a 32-bit shell wrapper with
Perl for Win32.
You can also configure perl to use another shell if you like.
To change the shell setting you must edit the registry.
The string:
HKEY_LOCAL_MACHINE\Software\ActiveWare\Perl5\COMSPEC
must be set to the full path your shell.
--------------------------------------------------------------------------------------------
Could some one tell me how can I do this? I understand how to access the
system registry, and I could see
HKEY_LOCAL_MACHINE\Software\ActiveWare\Perl5\
but there is no COMSPEC around. What does this mean?
And how am I suppose to "set to the full path your shell"?
thanks.
Jack
------------------------------
Date: Fri, 03 Jul 1998 10:08:19 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: help wanted. on intalling Perl on Windows95.
Message-Id: <359C9F83.41851921@nortel.co.uk>
jack wrote:
>
> Could some one tell me how can I do this? I understand how to access the
> system registry, and I could see
> HKEY_LOCAL_MACHINE\Software\ActiveWare\Perl5\
> but there is no COMSPEC around. What does this mean?
> And how am I suppose to "set to the full path your shell"?
I think this is more of a Windos question than Perl. Buy any of the many
computer magazines around, one of them will certainly have a report or two on
the windows registry :)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 2 Jul 1998 13:10:43 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: HELP....! Very simple array sort question!
Message-Id: <6ng0sj$1u6@news-central.tiac.net>
In article <359A82B3.7E25@co.douglas.or.us>,
Kevin Potter <krpotter@co.douglas.or.us> wrote:
>I would like to be able to sort this array into a new array, based on
>the state field, or zip field. I'm somewhat new to Perl, have been
>pouring over the man pages, but don't really understand the sort
>function yet. Could anyone offer some help with a line or two or
>code... THANKS.
>
>I expect I need something like:
>@sorted = sort { $a =~ /????/ <=> $b =~ /????/ } @ary;
>
>But I'm stumped. Thanks to anyone who will help me!
You probably want to use a technique which has become known as the
Schwartzian Transform which builds a temporary data structure containing
the key you're sorting on to avoid processing 2 data items for eachg
comparison. You can find it decribed at
http://www.perl.com/CPAN-local//doc/FMTEYEWTK/sort.html
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Thu, 02 Jul 1998 14:50:27 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: HELP....! Very simple array sort question!
Message-Id: <359B9023.742B0D81@nortel.co.uk>
Mike Stok wrote:
>
>
> http://www.perl.com/CPAN-local//doc/FMTEYEWTK/sort.html
>
What a WICKED document! Read it, read it, read it! Makes your head buzz...:)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Fri, 3 Jul 1998 10:48:50 -0700
From: "Srinivas Rama" <rama_srinivas@hotmail.com>
Subject: Help: Passing string arrays to Perl extensions
Message-Id: <6nj5lv$nh0$1@newssvr04-int.news.prodigy.com>
Hi,
I am trying to write a Perl extension(using the native Win32 Perl port
5.004_69). What I am trying to do is to call a C function defined in a DLL
and I require to pass in an array of strings as an argument like this:
myfunction(numargs, argarray)
int numargs
char *argarray
CODE:
blah, blah, blah....
How ever, when I try to make this .xs file using Makemaker.pm, I get a
compilation error
Error: invalid argument declaration 'char *argarray[]' in
mytest.xs
Now, my question is how to pass an array of strings into this
function(none of the args are modified in the function). If anyone has used
this before, please copy me by e-mail(rama_srinivas@usa.net).
------------------------------
Date: Thu, 02 Jul 1998 15:20:32 +0200
From: CRETEL Dominique <dominique.cretel@cfwb.be>
Subject: HELP: Problem building Perl5 on Cygnus target
Message-Id: <359B8920.4E14@cfwb.be>
Hi all,
I'm trying to build Perl5.00_04 on Cygnus-Win32 target.
All is OK untill the shell script want to use the gcc2 file (that I have
copied in the same place than gcc.exe, i.e. in the bin directory which
is in my PATH!!!
------------
bash-2.01$ gcc
gcc: No input files
bash-2.01$ gcc2
bash: //D/Cygnus/B19/H-i386-cygwin32/bin/gcc2: No such file or directory
bash-2.01$
------------
I get this message
-------------
Use which C compiler? [gcc2]
Checking for GNU cc in disguise and/or its version number...
*** WHOA THERE!!! ***
Your C compiler "gcc2" doesn't seem to be working!
You'd better start hunting for one and let me know about it.
bash-2.01$
----------
What can I do???
Thanks,
D. Cretel
------------------------------
Date: 2 Jul 1998 23:08:27 GMT
From: scotan@selinc.com (Scott Anderson)
Subject: How do chang groups
Message-Id: <6nh3tb$k0f$2@supernews.com>
Hi,
Is it possible to have perl change a users group id?
$grp = $(;
$groupname = getgrgid($grp);
gets the current group name correctly. So, I tried
$( = $grpnum;
and got an error message telling me setgid was not implemented. Is there some
other way to change groups? I haven't had much luck finding info on this
topic so I would be grateful for any help.
TIA
Scott Anderson
------------------------------
Date: 03 Jul 1998 09:23:05 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: How do chang groups
Message-Id: <ispvfncs9y.fsf@godzilla.kiere.ericsson.se>
scotan@selinc.com (Scott Anderson) writes:
> So, I tried
>
> $( = $grpnum;
>
> and got an error message telling me setgid was not implemented. Is there some
> other way to change groups?
That is the correct way to do it. There may or may not be other ways,
but that would depend heavily on your operating system and/or specific
Perl version.
For the future: it's much easier to answer your questions if you say
what sort of computer, operating system and Perl you're using.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 2 Jul 1998 11:17:52 -0500
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Re: How do you do system administration with perl?
Message-Id: <6ngbrg$1jo$1@Starbase.NeoSoft.COM>
In article <359982cb.610639@news.direct.ca>, <charlesh@direct.ca> wrote:
>Advanced perl users,
> I'd like to read some real examples as mentioned in subject.
>Anyone can point some places or books for me?
.
.
.
Section 7. of <URL:http://www.sunworld.com/swol-05-1998/swol-05-perl.html>
hints at this subject. It could easily fill an entire book (and perhaps
it should ...).
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 713 996 8546 FAX
------------------------------
Date: Fri, 03 Jul 1998 11:24:43 -0400
From: Ed Finch <efinch@cais.com>
Subject: Re: How do you do system administration with perl?
Message-Id: <359CF7BB.C5C3D578@cais.com>
Cameron Laird wrote:
> In article <359982cb.610639@news.direct.ca>, <charlesh@direct.ca> wrote:
> >Advanced perl users,
> > I'd like to read some real examples as mentioned in subject.
> >Anyone can point some places or books for me?
I've put some of my work at http://www.vais.net/~efinch
Regards,
Ed
Microsoft Windows: the Budweiser of operating systems.
------------------------------
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 3047
**************************************
