Shell Programming and Scripting

Hi,

I have a menu script written in PERL which calls some shell scripts and displays the return.

I'm having a problem with OPEN. A section of the code is below:

Code:

`./scriptlist.ksh 1`;
      open OUTPUT, "</home/$SCRIPTUSER/output";
      {
      local $/ = undef;
      $_ = <OUTPUT>;
      }
      ($var) = m/^(CRESTUSER.*\d)$/sm;
      print "$var\n\n";
      close OUTPUT;
      open FILE, ">/home/$SCRIPTUSER/reports/ISOBacklog.rpt\n";
      print FILE "$var\n"; close FILE;
      pressEnter();

$SCRIPTUSER is declared in the profile, so is an environment variable.

The write to FILE in the second bit of the function works correctly, but the OPEN of the OUTPUT doesn't (i.e. nothing prints to screen). If however I change the OPEN to

Code:

open OUTPUT, "./output";

and put the file output in the local directory it works fine.

Any ideas?

Thanks

Chris

Try replacing

Code:

open OUTPUT, "</home/$SCRIPTUSER/output";

with

Code:

open OUTPUT, "</home/$ENV{SCRIPTUSER}/output";

Thanks, works. Slightly annoying. Had found out about this but as the write to the reports directory worked didn't think it was an issue.