[25947] in Perl-Users-Digest
Perl-Users Digest, Issue: 8166 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 12 09:05:29 2005
Date: Sun, 12 Jun 2005 06:05:07 -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 Sun, 12 Jun 2005 Volume: 10 Number: 8166
Today's topics:
ActiveState: Can't spawn "cmd.exe"? <occitan@esperanto.org>
Re: chown recursively <joe@inwap.com>
Re: chown recursively <joe@inwap.com>
Glob Q <jkrugman345@yahbitoo.com>
Re: Mail::DomainKeys example needed <news@LearnQuick.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 12 Jun 2005 13:02:26 +0200
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: ActiveState: Can't spawn "cmd.exe"?
Message-Id: <42AC1642.1090906@esperanto.org>
Hi,
I am a developer of makepp.sourceforge.net, a way enhanced (GNU) make
replacement. I have been busy these last weeks extending the Cygwin port
first to MinGW (the easy part) and then to ActiveState Perl, with just the
native Windows 2000 (no Unixy stuff around).
We have an extensive test suite. Most of what fails is related to test Shell
scripts, which are beyond the capabilities of the system call. These will
have to be ported to Perl (in which both makepp and the test harness are written).
But the test variable_expansion gives an error -1 when running a simple echo
command. And additional_tests/2003_10_11_idash is also baffling, with more
detailed analysis:
A rule excutes this command (with CC set to the first two words) on one line.
This single string gets passed to the system function:
echo nocc -g -I subdir1 -I- -Isubdir2 -c compilation_test.c -o compilation_test.o
This gives a warning (I installed a $SIG{__WARN__} locally around system):
Can't spawn "cmd.exe": No such file or directory at C:/TEMP/cvs/Rule.pm line 1128.
And system gives a return of 255 << 8. What could be causing this, and how
could it be evited?
NB: Passing the identical string to perl -e "system '...'" works just fine.
If this is not a known issue with ActiveState Perl (I tried both 5.6.1 and
5.8.6), I would be extremely glad for help by a Windows expert! This would
require picking up the latest makepp version from CVS.
thank you very much in advance!
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
--
lerne / learn / apprends / lär dig / ucz się Esperanto:
http://lernu.net/
------------------------------
Date: Sun, 12 Jun 2005 01:39:11 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: chown recursively
Message-Id: <KdCdnYnXWMYyaTbfRVn-gg@comcast.com>
Tim Hammerquist wrote:
> For example, if you decide to shell out to an external chown(1) command,
> it will work on Linux, *BSD, Solaris, and even Mac OS X, and several
> others... but fail on Win32.
Works just fine in Win32 under cygwin.
-Joe
------------------------------
Date: Sun, 12 Jun 2005 01:50:30 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: chown recursively
Message-Id: <-c2dnSZuT7HFajbfRVn-jA@comcast.com>
Tim O'Donovan wrote:
> So I can assume that using:
>
> open(FIND, "find $path -lname '/home/$username/*' |");
> @links = <FIND>;
> close(FIND);
>
> to find all the symbolic links in the given path to files in a users
> home directory is also not the most resourceful method?!
You could capture the output from
find2perl PATH -l -name '/home/USER/*'
and modify that to do the -lname operation.
Just change
/^\/home\/jms\z/s &&
print("$name\n");
to
readlink $_ =~ m%/home/USER/.*% &&
push @links,$name;
The find2perl program that comes with the perl installation doesn't
do everything that GNU find does, but it is a good starting point.
-Joe
------------------------------
Date: Sun, 12 Jun 2005 11:31:02 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Glob Q
Message-Id: <d8h6dm$d6i$1@reader1.panix.com>
Why is it that I find globs so mysterious? Am I alone in this?
Or is it a common thing?
Anyway, my question is this: what's the difference between $x, $y,
and $z in
my $x = *VAR;
my $y = local *VAR;
my $z = do { local *VAR };
Thanks!
jill
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: Sun, 12 Jun 2005 02:34:54 GMT
From: "Herb Martin" <news@LearnQuick.com>
Subject: Re: Mail::DomainKeys example needed
Message-Id: <ibNqe.39707$j51.7741@tornado.texas.rr.com>
Found one on SourceForge in a Project I had seen before,
but had missed the example in a subproject Package:
commands
http://sourceforge.net/projects/domainkeys/
If you know of others then I would love to see them though
this looks like what I needed.
--
Herb Martin
Accelerated MCSE
http://www.LearnQuick.Com
------------------------------
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 8166
***************************************
