Hi,
Any of you know of a way of getting to the raw DCL command line in perl,
before it has been globbed, argv chunked and otherwise mangled?
I am looking at something which will fake a particular DCL command without
the users or scripts knowing the difference. However, the environmental
stuff seems to get in the way. For example, to disable wildcard expansion or
globbing as Unixers call it requires an additional pair of quotes (which
need to be doubled up to pass in the quotes, and an extra layer of quotes
put roung the outside, looks pretty horrible really but it works!).
$ perl munge.pl dir/size=all """*.c"""
What would be really handy is something like this:
use VMS::RawDCL;
$command = VMS::RawDCL::command_line;
$command =~ s/^\w+//; #Remove the MUNGE command itself
print "You typed $command\n";
open DCL,"$command|" or die "Failed to spawn $!\nStopped";
print "Here are the results\n";
while (<DCL>)
{
print;
}
