[22761] in Perl-Users-Digest
Perl-Users Digest, Issue: 4982 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 14 11:06:28 2003
Date: Wed, 14 May 2003 08:05:16 -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 Wed, 14 May 2003 Volume: 10 Number: 4982
Today's topics:
Re: Can't locate sub.pl <pierre@couderc.cc>
Re: Conversion systems (Anno Siegel)
Re: disk usage script (Anno Siegel)
finding process that is keeping port open (kyo23)
Generic network "Messenger" <mikeother@comcast.net>
Re: Generic network "Messenger" <uri@stemsystems.com>
How to query a Microsoft SQL Server with perl? <cartensy@hotmail.com>
Re: How to query a Microsoft SQL Server with perl? <matthew@weierophinney.net>
Re: How to Store and Print this Array? <igor@rat-farm.com>
Re: How to Store and Print this Array? (Hunter)
Re: Inserting a child node at an arbitrary point in a t <goedicke@goedsole.com>
Re: Inserting a child node at an arbitrary point in a t <dodger@dodger.org>
is there a built in mathematical type "dot product" fun (Mitchell Laks)
Re: is there a built in mathematical type "dot product" <ubl@schaffhausen.de>
measuring web resource loading time <dchatter@yallara.cs.rmit.edu.au>
Re: measuring web resource loading time <allanon@hotmail.com>
Re: measuring web resource loading time <pigmalion@bigfoot.com>
Re: measuring web resource loading time (Anno Siegel)
Re: measuring web resource loading time <dchatter@cs.rmit.edu.au>
Re: measuring web resource loading time (JR)
Re: Mismatched or just plain incorrect Config.pm <rev_1318@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 May 2003 14:14:07 +0200
From: Pierre Couderc <pierre@couderc.cc>
Subject: Re: Can't locate sub.pl
Message-Id: <b9tbue$15g9$1@biggoron.nerim.net>
Thank you, I think the simplest, at least to see, is to try absolute pathes.
Pierre Couderc
Anno Siegel wrote:
> Pierre Couderc <pierre@couderc.cc> wrote in comp.lang.perl.misc:
>
>>I have a sporadic error in my mod_perl script:
>>
>>I have 2 files in /var/www/perl/ directory :
>>
>>sub.pl
>>------
>>
>>subroutine mysub{
>>...
>>}
>>
>>main.pl
>>-------
>>
>>require './sub.pl';
>
>
> When you require a file with a relative path, you rely on the current
> directory. That is unwise. While CGI processes usually run with
> the current directory that of the executable itself, this is only
> a convention and not part of the interface.
>
>
>>...
>>mysub();
>>
>>Using Apache+mod_perl and the correct URL, I call main.pl, and all is fine :
>>mysub() is correcly executed.
>>
>>But, later sporadicly, when repeating the execution, I got the message
>>in error.log:
>>
>> [Wed May 14 07:23:43 2003] [error] Undefined subroutine mysub called at
>>/var/www/perl/main.pl line xxx
>>
>>Adding traces, I got the message "can't locate ./sub.pl"
>
>
> It looks like sometimes the current directory is where sub.pl is
> located and sometimes it isn't.
>
> Check out the module FindBin. It will allow you to create the full
> path name for sub.pl, or make sure the current directory is what you
> expect it to be.
>
> Anno
------------------------------
Date: 14 May 2003 10:15:19 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Conversion systems
Message-Id: <b9t4vn$2p6$2@mamenchi.zrz.TU-Berlin.DE>
Kuba <kubusieczek@poczta.onet.pl> wrote in comp.lang.perl.misc:
> Hello everybody,
>
> At the begining of my existing at this group I say a few words about me.
> Generally I'm Polish (I live in Warsaw, Poland) student (not IT), but IT is
> my the most interesting hobby. For a short period of time I learn Perl.
> Today I stroke upon an idea about writing script in Perl, what it would be
> recount from number givin' in one system for other systems (eg: When I would
> entered the number '255' in decimal system this program shows me other
> values like that
> > Enter the number what you can recount (prompt from programm): 255, and in
> next a few lines program gives me other values in other systems (sth like
> that):
>
> 255 (dec) ----- [0]377 (oct) ----- [0b]1111111 (bin) ----- [0x]FF
>
> I would like, that this program working in this case that when I enter some
> number in one of every systems this program gives other values in other
> systems itself.
>
> Do you know when I could find some help for this subject, or if I can't find
> help anywhere could You give me some information about it ?
>
> I would be very satisfited for Your answer and help.
That is easily done with printf. Perl's printf has conversions for
all the common formats you mention. See "perldoc -f sprintf" (sic)
for the details.
Anno
------------------------------
Date: 14 May 2003 10:10:08 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: disk usage script
Message-Id: <b9t4m0$2p6$1@mamenchi.zrz.TU-Berlin.DE>
Shawn <spedwards@qwest.net> wrote in comp.lang.perl.misc:
> Hi,
>
> I currently us this script to add up the disk usage for each user and
> ranking them by usage, in a rather expansive directory.
>
> /opt/bin/find . -ls -mount | perl -ne 'chomp; $u{(split(/\s+/))[5]}
> +=(split(/\s+/))[7]; END {foreach $key (sort {$u{$b} <=> $u$a}} keys
^^
There' s a "}" missing. Please don't re-type code, copy-and-paste it.
> %u){printf "%-5s %-10d\n",$key, $u{$key};}}'
>
> Recently we have migrated to new servers and the script started acting
> differently.
> Instead of adding up the usage by the userid it now uses the group of the
> users.
>
> This is what it used to look like:
>
> greg 4297
> fred 678
> sue 605
> joe 51
>
>
> It is now returning this:
>
> joegrp 0
> suegrp 0
> other 0
On some systems (Sys V-like) "ls -l" lists the group of a file by
default, on others (BSD-like) it doesn't. That seems to have bitten
you here.
The quick fix is to correct the indices (5 and 7) in the code snippet
above to reflect the position of user and size with the current variant
of ls.
> So, really it isn't adding the numbers right either. When I run the find
> command alone I return this:
>
> 6600512 4 -rwxr-xr-x 1 fred joegrp 678 Dec 10 1998
> ./NYRV/GQ19NYR1.sql
> 6600513 4 -rwxr-xr-x 1 sue suegrp 605 Dec 10 1998
[...]
Try the same thing on the previous machine. If it doesn't show the
group entries, go ahead as indicated.
The real fix would be to avoid the use of external commands and
do everything in Perl. File::Find lets you traverse a file system
much like find does, and stat() gives you the uid and the size of
a file.
Anno
------------------------------
Date: 14 May 2003 07:54:02 -0700
From: kyo23@hotmail.com (kyo23)
Subject: finding process that is keeping port open
Message-Id: <6ffe7399.0305140654.247ddbee@posting.google.com>
Hello All,
This may be more of a general unix question, however I'm trying to
implement this in perl so I thought I would ask here (I anticipate it
will require some extended functionality from an existing module).
Please do feel free to point me in the direction of a general unix
solution as well if one exists!
The problem:
Our webserver allows normal users to run cgi's, php, etc., many times
either by mistake or malicious act, processes are started that open a
port. When we periodically restart the webserver, those processes
prevent the server from restarting - the server sees port 80 as being
opened by the left over process.
We then run something like:
/bin/netstat -plant | grep "LIST"
to find the offending process id's and then kill them off manually.
I am wondering how I can access what ever system call, /proc/ entry,
etc. that shows what processes are holding a particular port open.
Ideally our apache restarter could then:
try to HUP apache
if ok, all is well
if not, find any processes keeping open port 80 and kill it
restart apache
Any ideas?
This is under RedHat Linux 7.3, apache 1.3.27.
Thanks for any advice or help! I realize the better solution would be
to stop the rogue processes in the first place (and we are working on
that) but until then I'd like to be able to code something up so that
I atleast don't have to get out of bed in the middle of the night to
fix things up myself! :)
Thanks,
kyo
------------------------------
Date: Wed, 14 May 2003 07:35:16 -0400
From: "Michael L. Artz" <mikeother@comcast.net>
Subject: Generic network "Messenger"
Message-Id: <feGcnTcLJ8sdsF-jXTWcpg@comcast.com>
I am trying to create a generic "messenger" object in perl (i.e. tell it
where you are sending to at object creation and it handles how to get
messages there). Guess this would be akin to an "agent" but I try to
stay away from that word as much as possible.
Anyway, the I figured that the initial implementation would focus on
standard tcp/ip sockets, and I was wondering if some sort of module like
this already exists, or, barring that, if anyone had any ideas/caveats
involved with this. I scanned the Net:: space in CPAN and didn't come
up with anything useful.
Thanks
-Mike
------------------------------
Date: Wed, 14 May 2003 14:23:16 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Generic network "Messenger"
Message-Id: <x7of25ehf0.fsf@mail.sysarch.com>
>>>>> "MLA" == Michael L Artz <mikeother@comcast.net> writes:
MLA> I am trying to create a generic "messenger" object in perl
MLA> (i.e. tell it where you are sending to at object creation and it
MLA> handles how to get messages there). Guess this would be akin to
MLA> an "agent" but I try to stay away from that word as much as
MLA> possible.
check out stem at stemsystems.com. does exactly what you want and much
more.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Wed, 14 May 2003 16:29:14 +0200
From: "Cartensy" <cartensy@hotmail.com>
Subject: How to query a Microsoft SQL Server with perl?
Message-Id: <3ec252bb$0$11150$ba620e4c@reader0.news.skynet.be>
Do I have to use Win32::OLE? Anybody has a exemple of a sample programm
which connect an MSSQL server and execute un simple query?
------------------------------
Date: Wed, 14 May 2003 14:33:59 GMT
From: Matthew Weier O'Phinney <matthew@weierophinney.net>
Subject: Re: How to query a Microsoft SQL Server with perl?
Message-Id: <slrnbc4kun.18l.matthew@kavalier.weierophinney.net>
* Cartensy <cartensy@hotmail.com>:
> Do I have to use Win32::OLE? Anybody has a exemple of a sample programm
> which connect an MSSQL server and execute un simple query?
You may want to check out the modules DBIx::MSSQLReporter and/or
DBD::Sybase; both give MSSQL server connectivity.
--
Matthew Weier O'Phinney
matthew@weierophinney.net
http://matthew.weierophinney.net
------------------------------
Date: Wed, 14 May 2003 05:51:15 -0500
From: Igor <igor@rat-farm.com>
Subject: Re: How to Store and Print this Array?
Message-Id: <Xns937B2799CFCD7igorratfarmcom@216.166.71.239>
On 13 May 2003, dave_h4@yahoo.com (Hunter) in
news:27ad91d2.0305130626.4325f4be@posting.google.com said something that
resembled:
> Hi - I need to query a database and print the rows returned. I would
> like to count the number of people from each country. Of course - I
> only want to query and print the country's that are populated - not
> the entire list of countries.
>
> My query is as such:
> "select count(country), country from customers GROUP BY country"
>
> returns:
> count | country
> -------+---------
> 1 | AE
> 1 | DE
> 2 | DZ
> 2 | FR
> 3 | ZA
> 5 | US
> 84 | CA
> (7 rows)
>
> HOW can I store this query into a hash so I can print it to the
> browser using cgi ?
>
> Thank you!
>
> dh
>
my $statement = <<"EOF";
SELECT COUNT(country) as count, country
FROM customers
GROUP BY country
EOF
my $query = $dbh->prepare($statement);
$query->execute;
my %country;
while (my $c = $query->fetchrow_hashref) {
$country{$c->{country}} = $c->{count};
}
$query->finish;
--
Dodger
------------------------------
Date: 14 May 2003 06:43:37 -0700
From: dave_h4@yahoo.com (Hunter)
Subject: Re: How to Store and Print this Array?
Message-Id: <27ad91d2.0305140543.5eb9d3ec@posting.google.com>
"Bob Dover" <dover@nortelnetworks.com> wrote in message news:<b9r1k7$h08$1@zcars0v6.ca.nortel.com>...
> "Hunter" wrote...
> > Hi - I need to query a database and print the rows returned.
>
> Homework Alert -- How's the weather up in Oregon, btw?
Hmm. What are you talking about? I'm Canadian and this is definitely not homework.
Thanks for the (bizarre) respsonse anyway.
dave
------------------------------
Date: Wed, 14 May 2003 11:05:41 GMT
From: William Goedicke <goedicke@goedsole.com>
Subject: Re: Inserting a child node at an arbitrary point in a tree
Message-Id: <m3wugtss8v.fsf@mail.goedsole.com>
Dear Dodger -
Dodger <dodger@dodger.org> writes:
> And of course, I hadn't weeded out the typoes. But this works. B^) Yeehee!
> Wahaaa!
>
> (Am I the only one who reacts like this when I figure out something like
> this?)
You're not alone. I recently solved a similar problem with the Graph
module. It makes this really easy.
Yours - Billy
============================================================
William Goedicke goedicke@goedsole.com
http://www.goedsole.com:8080
============================================================
Lest we forget:
It's noon somewhere.
- Moko
------------------------------
Date: Wed, 14 May 2003 10:03:03 -0500
From: Dodger <dodger@dodger.org>
Subject: Re: Inserting a child node at an arbitrary point in a tree
Message-Id: <Xns937B524BAC169dodgerdodgerorg@216.166.71.239>
On 14 May 2003, William Goedicke <goedicke@goedsole.com> in
news:m3wugtss8v.fsf@mail.goedsole.com said something that resembled:
> Dear Dodger -
>
> Dodger <dodger@dodger.org> writes:
>
>> And of course, I hadn't weeded out the typoes. But this works. B^)
>> Yeehee! Wahaaa!
>>
>> (Am I the only one who reacts like this when I figure out something
>> like this?)
>
> You're not alone. I recently solved a similar problem with the Graph
> module. It makes this really easy.
Do you mean a problem writing the Graph module or that you solved it using
the Graph module?
I'm past the problem and the solution provded almost disturbingly elegant
and simple (much better than most of the rest of the thing), but I'd like
to hear about other solutions, if the latter.
The nice part about the solution I came up with is that you can keep this
'unheirarchy' around after doing all this to be able to look up parents
easily later.
This was in the creation of a module to parse Poser 3D
scene/figure/prop/pose documents
(http://www.dodger.org/ttt/poserParser/PoserParser.pm is where the pre-
release code is at -- I update it fairly often -- like, six times yesterday
B^)
The trick in this case was needed to be able to parse the 'addChild'
directives in the files which determines the heirarchy of the scene,
figure, multi-item prop, or whatnot.
Right now the module is at the point where it can read and parse the entire
scene into a data structure (albeit a pretty damned huge one) and figure
some things out about it (including the heirarchy, now).
I haven't gotten to the output yet, butit's next in line.
Honestly, I'm not sure what newsgroups this should be posted to, so I'm
talking about it here. It might be better in c.l.p.modules, though it's not
a released module yet. It fits well into the subject matter or
alt.binaries.3d.poser, but not as many of the people there know what I'm
talking about with this Perl stuff B^)
Hopefully, they will when I'm done -- at least enough to automate batch
editing of Poser docs -- when I'm done people will have no excuse to leave
their geometry embedded!
Even if they don't catch on to the power available (Poser Pro Pack comes
with Python, but that's built in so that you use it IN Poser, not to batch
process things OUTSIDE Poser), I'll be able to set matching materials on
100+ props in less than a minute, and I might get the honour of starting a
top level namespace on CPAN (there's nothing that deals with or addresses
3D modelling of any sort).
--
Dodger
Just Another Poser Hacker
------------------------------
Date: 14 May 2003 05:31:34 -0700
From: mlaks2000@yahoo.com (Mitchell Laks)
Subject: is there a built in mathematical type "dot product" function for arrays in perl? How about composition of Hashes?
Message-Id: <ab3b13db.0305140431.1ed9b00e@posting.google.com>
Dear Perl Gurus,
is there a built in mathematical "dot product" of arrays in perl (ie
component wise "combination", for each array element) or do we simply
write the obvious loop?
For instance if I am given two arrays of scalars and I want to form a
new array by concatenating the corresponding elements of each array -
(and if they have disparate sizes treat the undef as "" say). Or if I
want to add the corresponding elements of the two arrays as well, with
a appropriate variant syntax appropriate for each situation where we
might use this vector "dot product".
Similarly is there a composition operation for Hashes. Ie: G(F(x)) =
?G and F ?
its trivial to do each of these by a loop, Its just that I haven't
found a built in operator for it, and I thought that since these are
such natural operations for vectors or hashes, and it must be very
commonly used, like the map function is, that Larry and friends might
have incorporated built ins for it. After all, like in APL, if we
have vector constructs, we might have alot of vector operations built
in...
Thanks, Gurus,
Mitchell
------------------------------
Date: Wed, 14 May 2003 15:28:50 +0200
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: is there a built in mathematical type "dot product" function for arrays in perl? How about composition of Hashes?
Message-Id: <b9tjfc$gi9$1@news.dtag.de>
Mitchell Laks wrote:
> Dear Perl Gurus,
> is there a built in mathematical "dot product" of arrays in perl (ie
> component wise "combination", for each array element) or do we simply
> write the obvious loop?
In Perl 5 you need a loop. Hyperoperators in Perl 6 will make this
possible with a sigle operations (Of course the algorithm remains O(n)).
> For instance if I am given two arrays of scalars and I want to form a
> new array by concatenating the corresponding elements of each array -
> (and if they have disparate sizes treat the undef as "" say). Or if I
> want to add the corresponding elements of the two arrays as well, with
> a appropriate variant syntax appropriate for each situation where we
> might use this vector "dot product".
>
> Similarly is there a composition operation for Hashes. Ie: G(F(x)) =
> ?G and F
A "Perl hash" is a function that maps keys to values, so the existence
of a valid composition operations is trivial.
$hash1{$hash2{"key"}} = "value";
malte
------------------------------
Date: 14 May 2003 20:14:12 +1100
From: Devarshi Chatterjee <dchatter@yallara.cs.rmit.edu.au>
Subject: measuring web resource loading time
Message-Id: <3ec216f4@itsawnews.its.rmit.edu.au>
Keywords: loading time
Hi,
I was wondering if there is a way to measure the time taken
by a cgi program to execute. The cgi program in question
requires client input and the time measurement is to be done
at the server side. You could say that I need something similar
to the timefetch script (CPAN), just that the timefetch script
measures the time taken for html pages (with embedded objects)
to load.
Any help is appreciated.
Regards,
Devarshi
==========================================
Devarshi Chatterjee
Sessional Staff
RMIT's School of CS and IT
http://yallara.cs.rmit.edu.au/~dchatter
==========================================
------------------------------
Date: Wed, 14 May 2003 11:49:37 +0100
From: "Allanon" <allanon@hotmail.com>
Subject: Re: measuring web resource loading time
Message-Id: <b9t702$lk2@newton.cc.rl.ac.uk>
"Devarshi Chatterjee" <dchatter@yallara.cs.rmit.edu.au> wrote in message
news:3ec216f4@itsawnews.its.rmit.edu.au...
> Hi,
> I was wondering if there is a way to measure the time taken
> by a cgi program to execute.
Can you not just place the line:
$start = time;
and
$stop = time;
strategically in your code and then $stop-$start will give you the number of
seconds elapsed between the 2 points on your server?
Allanon
------------------------------
Date: Wed, 14 May 2003 12:01:23 +0100
From: pigmalion <pigmalion@bigfoot.com>
Subject: Re: measuring web resource loading time
Message-Id: <i884cv88th22gtp2ib80aj8mk0dg8qelh8@4ax.com>
On Wed, 14 May 2003 11:49:37 +0100, "Allanon" <allanon@hotmail.com>
wrote:
>"Devarshi Chatterjee" <dchatter@yallara.cs.rmit.edu.au> wrote in message
>news:3ec216f4@itsawnews.its.rmit.edu.au...
>> Hi,
>> I was wondering if there is a way to measure the time taken
>> by a cgi program to execute.
>Can you not just place the line:
>
>$start = time;
>
>and
>
>$stop = time;
>
>strategically in your code and then $stop-$start will give you the number of
>seconds elapsed between the 2 points on your server?
>
>Allanon
>
That's what I did, but too often the page is soo small that it doesn't
even take a second.
Is there any way to count milliseconds?
--
www.pigmalion.info
www.pigmalion.info/perl/
------------------------------
Date: 14 May 2003 11:09:51 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: measuring web resource loading time
Message-Id: <b9t85v$4sv$1@mamenchi.zrz.TU-Berlin.DE>
pigmalion <pigmalion@bigfoot.com> wrote in comp.lang.perl.misc:
[...]
> Is there any way to count milliseconds?
Check out Time::Hires.
Anno
------------------------------
Date: 14 May 2003 22:26:55 +1100
From: Devarshi Chatterjee <dchatter@cs.rmit.edu.au>
Subject: Re: measuring web resource loading time
Message-Id: <3ec2360f@itsawnews.its.rmit.edu.au>
Allanon <allanon@hotmail.com> wrote:
> "Devarshi Chatterjee" <dchatter@yallara.cs.rmit.edu.au> wrote in message
> news:3ec216f4@itsawnews.its.rmit.edu.au...
>> Hi,
>> I was wondering if there is a way to measure the time taken
>> by a cgi program to execute.
> Can you not just place the line:
> $start = time;
> and
> $stop = time;
> strategically in your code and then $stop-$start will give you the number of
> seconds elapsed between the 2 points on your server?
> Allanon
I wanted to time any cgi program which requires *user input*,
*not wanting* to have to edit the existing code.
I apologise for not making this clearer earlier.
=======================================
Devarshi Chatterjee
Sessional Staff
RMIT's School of CS and IT
http://yallara.cs.rmit.edu.au/~dchatter
=======================================
------------------------------
Date: 14 May 2003 06:17:19 -0700
From: jrolandumuc@yahoo.com (JR)
Subject: Re: measuring web resource loading time
Message-Id: <b386d54b.0305140517.722676f7@posting.google.com>
pigmalion <pigmalion@bigfoot.com> wrote in message news:<i884cv88th22gtp2ib80aj8mk0dg8qelh8@4ax.com>...
> On Wed, 14 May 2003 11:49:37 +0100, "Allanon" <allanon@hotmail.com>
> wrote:
>
> >"Devarshi Chatterjee" <dchatter@yallara.cs.rmit.edu.au> wrote in message
> >news:3ec216f4@itsawnews.its.rmit.edu.au...
> >> Hi,
> >> I was wondering if there is a way to measure the time taken
> >> by a cgi program to execute.
> >Can you not just place the line:
> >
> >$start = time;
> >
> >and
> >
> >$stop = time;
> >
> >strategically in your code and then $stop-$start will give you the number of
> >seconds elapsed between the 2 points on your server?
> >
> >Allanon
> >
>
> That's what I did, but too often the page is soo small that it doesn't
> even take a second.
> Is there any way to count milliseconds?
This may be useful to you, especially the second paragraph. Good luck.
perldoc -f time
time Returns the number of non-leap seconds since whatever time the
system considers to be the epoch (that's 00:00:00, January 1,
1904 for MacOS, and 00:00:00 UTC, January 1, 1970 for most other
systems). Suitable for feeding to "gmtime" and "localtime".
For measuring time in better granularity than one second, you
may use either the Time::HiRes module from CPAN, or if you have
gettimeofday(2), you may be able to use the "syscall" interface
of Perl, see the perlfaq8 manpage for details.
------------------------------
Date: Wed, 14 May 2003 12:48:34 +0200
From: "Paul van Eldijk" <rev_1318@hotmail.com>
Subject: Re: Mismatched or just plain incorrect Config.pm
Message-Id: <pan.2003.05.14.10.48.34.344422@hotmail.com>
On Tue, 13 May 2003 14:56:18 -0400 Jason Parker-Burlingham wrote:
> I have a small amount of work to do on an AIX box, for which I've
> written a few classes and want to install one or two more from CPAN.
>
> The development environment is Perl 5.6.0; perl -V reports that @INC
> is set to look under /usr/local/lib. Unfortunately this isn't correct
> because Perl seems to have been moved to another directory hierarchy
> entirely (which is not really /Foo but the exact name is not important
> and the paths are otherwise identical).
[snip]
> Is there any other easy solution to this problem?
The easiest way is to create a syslink from /usr/local/lib/perl5 to
/Foo/APP/utils/perl560/lib/perl5
No modification of module.pm, PERLLIB etc. needed...
HTH
Paul
--
$_=q{ ^4;c;14;1b:a^5;16:c^17:e^a;11;19:h^9;15:j^0:k^18:l^13
:n^6:o^7:p^10:r^b;12;1a:s^2:t^3;8:u^1};s{(?<=[;^])(\d)?([\d
abc])}{$a=$1;$2=~/([abc])/?$a*13+ord($1)%87:$1*13+$2}egx;
for(split/:/){($a,@_)=split/[;^]/;@@[@_]=($a)x@_}print@@
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 4982
***************************************
