running a short perl script in a windows XP arena

All,

Here is my script and it is outputting "file is not present" when it should
be outputting "temp file is good and $MHfile is there\n";
Am I missing something since I am running this is a Windows env?
thank you,
derek


#!/usr/bin/perl

use strict;
use warnings;
require 5.8.0;
$ENV{"PATH"} = qq(C:\\Documents*\\mh-hl7:C:\\Perl\\bin);

my $p= qq(--passphrase-fd 0);
my $de= qw(--decrypt);
my $outp= qw(--output);
my $MHfile= qq(C:\\Documents*\\mh-hl7\\MHFM.*);
my $pass= qq(C:\\temp\\pass.txt);

# unlink qq(C:\\Documents*\\mh-hl7\\MHFM.*);

if ( -s $MHfile ) {
print "temp file is good and $MHfile is there\n";
open (PASS, "C:\\temp\\pass.txt");
for (;<PASS>;) {
print $_;
}
}
else {
print "file not present\n";
#system ("C:\\WINDOWS\\notepad.exe C:\\temp\\pass.txt");
}

close (PASS);

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams


.

Relevant Pages

  • RE: running a short perl script in a windows XP arena
    ... Subject: RE: running a short perl script in a windows XP arena ... this is the correct way to do it within Unix. ... Derek B. Smith ... be outputting "temp file is good and $MHfile is there\n"; ...
    (perl.beginners)
  • RE: running a short perl script in a windows XP arena
    ... this is the correct way to do it within Unix. ... Derek B. Smith ... be outputting "temp file is good and $MHfile is there\n"; ... For additional commands, e-mail: beginners-help@xxxxxxxx ...
    (perl.beginners)