At 05:08 PM 8/15/2001 -0500, Patrick Spinler wrote:
>Sorry about the last message, I hit the reply too soon.
>
>Anyway, thanks for the answer. It _almost_ works. Try the following
>script:
>
> use VMS::Stdio "getname";
> open IN, "<mpa0:" || die $^E;
> print getname(*IN), "\n";
> system ("show device /full mpa");
> sleep (5);
>
>I get the result "MPA0:[].;". Yet, as the "show device" command
>displays, my real device is something like MPA8: or MPA30:.
>
>Sigh. I'll just have to put the perl in a DCL wrapper.
Maybe. Try stripping off the "[].;" stuff and see what $ENV{MPA0} and
$ENV{MPA0:} look like.
Dan
--------------------------------------"it's like this"-------------------
Dan Sugalski even samurai
[EMAIL PROTECTED] have teddy bears and even
teddy bears get drunk
