[23801] in Perl-Users-Digest
Perl-Users Digest, Issue: 6004 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 29 19:16:02 2004
Date: Thu, 29 Jan 2004 16:15:34 -0800 (PST)
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, 29 Jan 2004 Volume: 10 Number: 6004
Today's topics:
Exepect, curses, and screen control (Matthew Twomey)
ExtUtils::Install <kj345@lycos.com>
Re: ExtUtils::Install <usenet@morrow.me.uk>
Re: ExtUtils::Install <tassilo.parseval@rwth-aachen.de>
Re: ExtUtils::Install <jwillmore@remove.adelphia.net>
Re: ExtUtils::Install <nospam@nospam.com>
Re: ExtUtils::Install <tassilo.parseval@rwth-aachen.de>
Re: ExtUtils::Install <rgarciasuarez@free.fr>
Fake root dir with Perl (Phil Jacobson)
Re: Fake root dir with Perl <usenet@morrow.me.uk>
Re: Fake root dir with Perl <pkent77tea@yahoo.com.tea>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jan 2004 13:03:29 -0800
From: mtwomey@beakstar.com (Matthew Twomey)
Subject: Exepect, curses, and screen control
Message-Id: <92dd4f50.0401221303.757fcb02@posting.google.com>
I can't for the life of me figure this out:
I have a script I am working on that uses the Perl expect module. It
is sort of an interactive script. It lets the user interact with the
spawned process, then when the user hits a control key - it leaves the
interactive process, does something, possibly prints something, then
returns to "interact" mode. This all works fine and dandy.
I would like to add some screen control to this. The effect I am after
is as follows:
The user is interacting with the expect spawned process and hits the
control key. My perl script records the text of the line they were one
and the cursor X position (for later re-display) and proceeds about
it's business. At the end of this it re-prints that last line (before
the control key) and repositions the curser where is was.
I can do the screen control with the curses Perl module, but all the
output from expect is in a separate process and it's printing to
stdout, it's seems this means it's invisible to curses.
Any suggestions or other way I might achieve this?
-Matt
------------------------------
Date: Mon, 26 Jan 2004 20:54:46 +0000 (UTC)
From: kj <kj345@lycos.com>
Subject: ExtUtils::Install
Message-Id: <bv3uqm$knb$1@reader2.panix.com>
I've been reading the source for ExtUtils/Install.pm, and it is a
disgrace. Code like that is what gives Perl a bad name. I just
can't believe that this dreck is part of the standard library...
kj
------------------------------
Date: Mon, 26 Jan 2004 21:04:59 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: ExtUtils::Install
Message-Id: <bv3vdr$ib9$2@wisteria.csv.warwick.ac.uk>
kj <kj345@lycos.com> wrote:
>
>
> I've been reading the source for ExtUtils/Install.pm, and it is a
> disgrace. Code like that is what gives Perl a bad name. I just
> can't believe that this dreck is part of the standard library...
Ummm... what exactly is wrong with it?
Ben
--
For the last month, a large number of PSNs in the Arpa[Inter-]net have been
reporting symptoms of congestion ... These reports have been accompanied by an
increasing number of user complaints ... As of June,... the Arpanet contained
47 nodes and 63 links. [ftp://rtfm.mit.edu/pub/arpaprob.txt] * ben@morrow.me.uk
------------------------------
Date: 26 Jan 2004 21:47:38 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: ExtUtils::Install
Message-Id: <bv41tq$bro$1@nets3.rz.RWTH-Aachen.DE>
Also sprach kj:
> I've been reading the source for ExtUtils/Install.pm, and it is a
> disgrace. Code like that is what gives Perl a bad name. I just
> can't believe that this dreck is part of the standard library...
Please elaborate a little. What is so wrong with it? To me it looks
rather unconspicuous.
Also, have you read the AUTHOR section? It makes clear that this is
legacy code which offen suffers from stylistic (and other) problems. But
considering that I think the code is actually quite good. It is well
documented, has sensible variable names etc. There are worse examples in
a Perl source distribution.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 27 Jan 2004 00:59:00 -0500
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: ExtUtils::Install
Message-Id: <pan.2004.01.27.05.58.59.151165@remove.adelphia.net>
On Mon, 26 Jan 2004 20:54:46 +0000, kj wrote:
> I've been reading the source for ExtUtils/Install.pm, and it is a
> disgrace. Code like that is what gives Perl a bad name. I just
> can't believe that this dreck is part of the standard library...
My truck is really old and is in such poor shape ... I can't believe the
Commonwealth of Pennsylvania actually allows it to be on the road ;-)
If you're more specific, I can be more specific :-)
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
"I'm willing to sacrifice anything for this cause, even other
people's lives"
------------------------------
Date: Tue, 27 Jan 2004 10:57:32 +0000 (UTC)
From: kj <nospam@nospam.com>
Subject: Re: ExtUtils::Install
Message-Id: <bv5g6s$66i$1@reader2.panix.com>
OK, the latest example I've been dealing with: the policy for
permissions when copying files from the build to the install
directories is hard-coded and embedded in a huge sub. The only
way to override it it is to cut-and-paste the whole goddam thing
into your code and hope that it doesn't use file-scoped lexicals...
If programming required a license, that sort of crap should be
enough to have it revoked... Yeah, I know, one can always think
of worse, but that's true of any crime...
kj
------------------------------
Date: 27 Jan 2004 11:06:30 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: ExtUtils::Install
Message-Id: <bv5gnm$hl5$1@nets3.rz.RWTH-Aachen.DE>
Also sprach kj:
> OK, the latest example I've been dealing with: the policy for
> permissions when copying files from the build to the install
> directories is hard-coded and embedded in a huge sub. The only
> way to override it it is to cut-and-paste the whole goddam thing
> into your code and hope that it doesn't use file-scoped lexicals...
> If programming required a license, that sort of crap should be
> enough to have it revoked... Yeah, I know, one can always think
> of worse, but that's true of any crime...
Maybe you just missed this piece from the DESCRIPTION in the PODs:
Both install() and uninstall() are specific to the way
ExtUtils::MakeMaker handles the installation and deinstallation of
perl modules. They are not designed as general purpose tools.
If you don't want to do it the EU::MakeMaker way, then you should not be
trying to use this module.
As a side note: You are beating dead camels here. Michael G Schwern
doesn't get weary of emphasizing that EU::MakeMaker is seriously flawed
and that instead Module::Build should be used.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 27 Jan 2004 11:07:58 GMT
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Subject: Re: ExtUtils::Install
Message-Id: <slrnc1chn9.21t.rgarciasuarez@dat.local>
kj wrote in comp.lang.perl.misc :
> OK, the latest example I've been dealing with: the policy for
> permissions when copying files from the build to the install
> directories is hard-coded and embedded in a huge sub. The only
> way to override it it is to cut-and-paste the whole goddam thing
> into your code and hope that it doesn't use file-scoped lexicals...
> If programming required a license, that sort of crap should be
> enough to have it revoked... Yeah, I know, one can always think
> of worse, but that's true of any crime...
Rewrite it. Send a patch. Do something constructive. Don't rely
on others doing all the work for free.
------------------------------
Date: 26 Jan 2004 20:28:41 -0800
From: p_jacobson@hotmail.com (Phil Jacobson)
Subject: Fake root dir with Perl
Message-Id: <2453019.0401262028.486b1949@posting.google.com>
Hi. I'm seeing if anyone can shed light on whether Perl can do what
I'm trying to accomplish and possibly reference a good starting point
or existing module.
I'm running Windows XP-SP1 and ActiveState Perl 5.8.0 build 806. Can
Perl monitor a given directory and force any executables in that
directory to believe that it's actually in the root directory?
I hope this example make sense. Assume we have directory
"c:\perl\temp" and in that directory there is an executable "test.exe"
which when launched will create a directory "..\newdir"
Under normal circumstances, if you ran "test.exe" it would create
directory "c:\perl\newdir" but what I'd like to do is run a perl
script and tell it to monitor "c:\perl\temp" so that the directory and
any files in it will believe they are in the root directory. Then when
"test.exe" is ran it will actually create "c:\perl\temp\newdir"
instead.
Thank you for your time,
Phil Jacobson
------------------------------
Date: Tue, 27 Jan 2004 04:39:41 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Fake root dir with Perl
Message-Id: <bv4q2d$790$2@wisteria.csv.warwick.ac.uk>
p_jacobson@hotmail.com (Phil Jacobson) wrote:
> I'm running Windows XP-SP1 and ActiveState Perl 5.8.0 build 806. Can
> Perl monitor a given directory and force any executables in that
> directory to believe that it's actually in the root directory?
No. Sorry.
Ben
--
Every twenty-four hours about 34k children die from the effects of poverty.
Meanwhile, the latest estimate is that 2800 people died on 9/11, so it's like
that image, that ghastly, grey-billowing, double-barrelled fall, repeated
twelve times every day. Full of children. [Iain Banks] ben@morrow.me.uk
------------------------------
Date: Tue, 27 Jan 2004 22:13:25 +0000
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: Fake root dir with Perl
Message-Id: <pkent77tea-59F699.22132527012004@pth-usenet-01.plus.net>
In article <2453019.0401262028.486b1949@posting.google.com>,
p_jacobson@hotmail.com (Phil Jacobson) wrote:
> Hi. I'm seeing if anyone can shed light on whether Perl can do what
> I'm trying to accomplish and possibly reference a good starting point
> or existing module.
>
> I'm running Windows XP-SP1 and ActiveState Perl 5.8.0 build 806. Can
> Perl monitor a given directory and force any executables in that
> directory to believe that it's actually in the root directory?
It sounds like the thing you want is what is called a 'chroot' in Unix,
or in a more sophisticated guise a 'jail' in BSD. Search the web and see
if you can get those on Windows. A userspace program (even perl) just
isn't the right tool, it needs OS-level stuff.
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6004
***************************************
