Perl File globbing and environment setup question.

This is a multi-part message in MIME format.

--===============0183742820==
Content-type: multipart/alternative;
boundary="Boundary_(ID_sqhbnYfKikG3HiazyHZKDA)"
Content-class: urn:content-classes:message

This is a multi-part message in MIME format.

--Boundary_(ID_sqhbnYfKikG3HiazyHZKDA)
Content-type: text/plain; charset=us-ascii
Content-transfer-encoding: 7BIT

I am trying to adapt to Active Perl on the DOS command line from cygwin.
I've tried to get File:DosGlob to work on my system (this script works
on a co-worker's system, but not mine), but does not work as expected.

When I run the script fileglob.pl, [at] ARGV seems to get lost.

Code:

#! /usr/bin/perl

if ( $^O == "MSWin32" )

{

use File::DosGlob;

[at] ARGV = map {

my [at] g = File::DosGlob::glob($_) if /[*?]/;

[at] g ? [at] g : $_;

} [at] ARGV;

}

print "foo\n";

foreach $filename ( [at] ARGV)

{

print "$filename\n";

}

Run as fileglob.pl:

C:\Unix\dev>fileglob.pl *.pl

foo

Put perl in front of it and it works as expected:

C:\Unix\dev>perl fileglob.pl *.pl

foo

cycleSelect.pl

fileglob.pl

foo.pl

get_permissions.pl

if.pl

ioscan.pl

OLE.pl

regexp.pl

splat.pl

Why won't the first call work?

Here's my environment settings:

C:\Unix\dev>perl fileglob.pl *.pl

foo

cycleSelect.pl

fileglob.pl

foo.pl

get_permissions.pl

if.pl

ioscan.pl

OLE.pl

regexp.pl

splat.pl

C:\Unix\dev>assoc .pl

..pl=PerlScript

C:\Unix\dev>ftype PerlScript

PerlScript="C:\Program Files\Perl\bin\perl.exe" %1 %*

Thanks,

Steve

--Boundary_(ID_sqhbnYfKikG3HiazyHZKDA)
Content-type: text/html; charset=us-ascii
Content-transfer-encoding: 7BIT

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<style>

</style>

</head>

<body lang=EN-US link=blue vlink="#606420">

<div class=Section1>

I am trying to adapt to Active Perl on the DOS command line
from cygwin. I’ve tried to get File:DosGlob to work on my system
(this script works on a co-worker’s system, but not mine), but does not
work as expected.<o:p></o:p>

<o:p> </o:p>

When I run the script fileglob.pl, [at] ARGV seems to get lost.<o:p></o:p>

<o:p> </o:p>

Code:<o:p></o:p>

#! /usr/bin/perl <o:p></o:p>

<o:p> </o:p>

if ( $^O == "MSWin32" )<o:p></o:p>

{<o:p></o:p>

 use File::DosGlob;<o:p></o:p>

 [at] ARGV = map {<o:p></o:p>

 my
[at] g = File::DosGlob::glob($_) if /[*?]/;<o:p></o:p>

 [at] g
? [at] g : $_;<o:p></o:p>

 } [at] ARGV;<o:p></o:p>

}<o:p></o:p>

<o:p> </o:p>

print "foo\n";<o:p></o:p>

<o:p> </o:p>

foreach $filename ( [at] ARGV)<o:p></o:p>

{<o:p></o:p>

 print
"$filename\n";<o:p></o:p>

}<o:p></o:p>

<o:p> </o:p>

Run as fileglob.pl:<o:p></o:p>

<o:p> </o:p>

C:\Unix\dev>fileglob.pl *.pl<o:p></o:p>

foo<o:p></o:p>

<o:p> </o:p>

Put perl in front of it and it works as expected:<o:p></o:p>

C:\Unix\dev>perl fileglob.pl *.pl<o:p></o:p>

foo<o:p></o:p>

cycleSelect.pl<o:p></o:p>

fileglob.pl<o:p></o:p>

foo.pl<o:p></o:p>

get_permissions.pl<o:p></o:p>

if.pl<o:p></o:p>

ioscan.pl<o:p></o:p>

OLE.pl<o:p></o:p>

regexp.pl<o:p></o:p>

splat.pl<o:p></o:p>

<o:p> </o:p>

Why won’t the first call work?<o:p></o:p>

<o:p> </o:p>

Here’s my environment settings:<o:p></o:p>

<o:p> </o:p>

C:\Unix\dev>perl fileglob.pl *.pl<o:p></o:p>

foo<o:p></o:p>

cycleSelect.pl<o:p></o:p>

fileglob.pl<o:p></o:p>

foo.pl<o:p></o:p>

get_permissions.pl<o:p></o:p>

if.pl<o:p></o:p>

ioscan.pl<o:p></o:p>

OLE.pl<o:p></o:p>

regexp.pl<o:p></o:p>

splat.pl<o:p></o:p>

<o:p> </o:p>

C:\Unix\dev>assoc .pl<o:p></o:p>

.pl=PerlScript<o:p></o:p>

<o:p> </o:p>

C:\Unix\dev>ftype PerlScript<o:p></o:p>

PerlScript="C:\Program
Files\Perl\bin\perl.exe" %1 %*<o:p></o:p>

<o:p> </o:p>

Th anks,<o:p></o:p>

St eve <o:p></o:p>

 <o:p></o:p>

<o:p> </o:p>

</div>

</body>

</html>

--Boundary_(ID_sqhbnYfKikG3HiazyHZKDA)--

--===============0183742820==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0183742820==--

steven.m.evans [ Di, 01 Mai 2007 23:19 ] [ ID #1702416 ]

Re: Perl File globbing and environment setup question.

Evans, Steven M wrote:
> I am trying to adapt to Active Perl on the DOS command line from =

> cygwin. I=92ve tried to get File:DosGlob to work on my system (this =

> script works on a co-worker=92s system, but not mine), but does not work =

> as expected.

Please post in plain text only.

> When I run the script fileglob.pl, [at] ARGV seems to get lost.
> =

....
> =

> Run as fileglob.pl:
> =

> C:\Unix\dev>fileglob.pl *.pl
> =

> foo
> =

> Put perl in front of it and it works as expected:
> =

> C:\Unix\dev>perl fileglob.pl *.pl

....

> Why won=92t the first call work?
> =

> Here=92s my environment settings:
> =

> C:\Unix\dev>perl fileglob.pl *.pl
> =

....
> =

> C:\Unix\dev>assoc .pl
> =

> .pl=3DPerlScript
> =

> C:\Unix\dev>ftype PerlScript
> =

> PerlScript=3D"C:\Program Files\Perl\bin\perl.exe" %1 %*

Try this one with only two real changes:

use strict;
use warnings;

if ($^O eq "MSWin32") { # note eq vs =3D=3D
require File::DosGlob; # require vs use prevents loading
[at] ARGV =3D map {
my [at] g =3D File::DosGlob::glob($_) if /[*?]/;
[at] g ? [at] g : $_;
} [at] ARGV;
}

foreach my $filename ( [at] ARGV) {
print "$filename\n";
}

__END__
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Bill Luebkert [ Mi, 02 Mai 2007 01:14 ] [ ID #1703250 ]

RE: Perl File globbing and environment setup question.

Bill,

Thanks for the style tips, but I was just trying to get the code to work
and didn't care about strict & other nuances. The code works when run
through perl explicitly and on another system - I need to know why my
environment is not working. I did run with your changes, but it did not
help.

Steve
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

steven.m.evans [ Mi, 02 Mai 2007 04:07 ] [ ID #1703251 ]

Re: Perl File globbing and environment setup question.

Evans, Steven M wrote:
> Bill,
>
> Thanks for the style tips, but I was just trying to get the code to work
> and didn't care about strict & other nuances. The code works when run

Well if you started caring about the nuances, you would have caught the
'==' vs 'eq' bug (and hopefully many more in your future).

> through perl explicitly and on another system - I need to know why my
> environment is not working. I did run with your changes, but it did not
> help.

Maybe you need to expound a bit more on your env.

I ran the script I sent you on both Perls (Cygwin 5.8.6 and
AS 5.8.6) with the same result.

The only other thing I noticed that probably isn't related is you're
missing "" on you %1 below:

> ftype PerlScript
PerlScript="C:\Program Files\Perl\bin\perl.exe" %1 %*

SB: PerlScript="C:\Program Files\Perl\bin\perl.exe" "%1" %*
otherwise you'll have trouble with spaces in paths.
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Bill Luebkert [ Mi, 02 Mai 2007 05:08 ] [ ID #1703252 ]

Re: Perl File globbing and environment setup question.

Here's something interesting - I added a
print "^O: $^O\n";
before the if and got this for a result:

>perl xx.pl <arg>
^O: cygwin
<file list>

>xx.pl <arg>
^O: MSWin32
<file list>

It picks up the AS Perl when you don't specify which Perl due to the ftype
path. The file list is the same in both cases, but sorted differently.

Is this your AS or Cygwin version ? C:\Program Files\Perl\bin\perl.exe
which Perl does 'perl fileglob.pl' pick up ? Cygwin or AS ?
Try perl -v.
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Bill Luebkert [ Mi, 02 Mai 2007 05:20 ] [ ID #1703253 ]

Re: Perl File globbing and environment setup question.

This is a multipart message in MIME format.
--===============1042252001==
Content-Type: multipart/alternative;
boundary="=_alternative 0033765DC12572CF_="

This is a multipart message in MIME format.
--=_alternative 0033765DC12572CF_=
Content-Type: text/plain; charset="US-ASCII"

Hi,

Add

print "$^X called with: '$0 ".join (" ", [at] ARGV)."'\n" ;

and maybe,
print "\ [at] INC:".join ("\n :", [at] INC)."'\n" ;

at the top of your test, and you should see the difference which might
help to locate the problem.

HTH
George
--=_alternative 0033765DC12572CF_=
Content-Type: text/html; charset="US-ASCII"

 Hi,
 
 Add 
 
 print "$^X called with: '$0 ".join
(" ", [at] ARGV)."'\n" ;
 
 and maybe, 
 print "\ [at] INC:".join ("\n
:", [at] INC)."'\n" ;
 
 at the top of your test, and you should
see the difference which might help to locate the problem. 

 HTH
 George
--=_alternative 0033765DC12572CF_=--

--===============1042252001==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1042252001==--

Georg.Mavridis [ Mi, 02 Mai 2007 11:22 ] [ ID #1703254 ]