Re: ActivePERL is the devil?

As the (yet non-official) maintainer of Shell as a CPAN distribution, I would like to defend there are good uses for Shell. But this does not seem one of them: all of the external programs you are calling have Perl builtins or core libraries to do it portably and faster.

use Shell qw( perl ); # { local @ARGV = (...); do $filename; } 
use Shell qw( dir );  # glob() seems enough
use Shell qw( copy ); # File::Copy
use Shell qw( del );  # unlink
use Shell qw( cd );   # chdir
[download]

All the advices of the monks who replied to this node still apply. Some refactoring and moving filenames and tasks to configuration metadata driving the script could produce a much more robust and useful tool. But probably this isn't a priority or a need. So just two suggestions: (1) use / everywhere because Perl at Windows understand it very well unlike Windows itself; (2) maybe the Perl scripts "d:/perl/macc1" and "d:/perl/mmac3" can be converted to Perl modules with advantages to maintenance.

Comment on Re: ActivePERL is the devil? Download Code

Replies are listed 'Best First'.
Re^2: ActivePERL is the devil? by ikegami (Patriarch) on Jun 08, 2007 at 13:22 UTC
use / everywhere because Perl at Windows understand it very well unlike Windows itself I've been told (on PerlMonks) that Windows system calls understand `/` just fine. It's the individual tools and shell commands that don't. In fact, it seems the shell tools understand `/` just fine if it's in quotes: `G:\>md /test The syntax of the command is incorrect. G:\>md "/test" G:\>copy nul /test/file The syntax of the command is incorrect. G:\>copy nul "/test/file" 1 file(s) copied. G:\>dir /test Invalid switch - "". G:\>dir "/test" Volume in drive G is CLFS01-USR-N Volume Serial Number is 5C24-AC1F Directory of G:\test 2007/06/08 09:21 AM <DIR> . 2007/06/08 09:21 AM <DIR> .. 2007/06/08 09:21 AM 0 file 1 File(s) 0 bytes 2 Dir(s) 81,590,624,256 bytes free` [download]	[reply] [d/l] [select]
Re^2: ActivePERL is the devil? by naikonta (Curate) on Jun 08, 2007 at 15:24 UTC
`use Shell qw( perl ); # { local @ARGV = (...); do $filename; }` Or, `system $^X, 'otherscript', 'someargs';` [download] to ensure the use of the exact same copy of perl. Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!	[reply] [d/l] [select]