RE: running a short perl script in a windows XP arena

[Timothy Johnson]

Try printing out the result of the variables you are creating.  Maybe
I'm just not getting what you're trying to do, but I don't think it's
doing what you think it's doing.


-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, December 28, 2005 3:48 PM
To: Timothy Johnson
Cc: beginners@perl.org
Subject: RE: running a short perl script in a windows XP arena

ok I will take that out .... I reran it and still get the same error.
This
is not the problem.
Note: this is the correct way to do it within Unix.

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




 

             "Timothy Johnson"

             <[EMAIL PROTECTED]

             eckpoint.com>
To 
                                       <[EMAIL PROTECTED]>,

             12/28/2005 05:06          <beginners@perl.org>

             PM
cc 
 

 
Subject 
                                       RE: running a short perl script
in  
                                       a windows XP arena

 

 

 

 

 

 






For starters, you aren't formatting your PATH variable correctly.  That
should be a semicolon before "C:\\Perl".

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 28, 2005 2:01 PM
To: beginners@perl.org
Subject: 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



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>