Re: NT Version?

1998-02-19 18:44:52
At 03:07 PM 2/19/98 -0800, Earl Hood 
<ehood(_at_)hydra(_dot_)acs(_dot_)uci(_dot_)edu> wrote:

Yes.  The only problem I have found is that I/O redirection does
not appear to work.  For example:

   > -single message.822 > message.html

Does nothing.  message.html is created, but it has no data.  The
HTML data vanishes.  Doing

   > -single message.822

does cause the HTML data to be printed to the screen.  But it appears
I cannot capture it.

Mailbox/folder processing appears to work okay.

   Try putting your command line in a batch file wrapper somewhere along the
path.  Here's an example; 
@rem = '--*-Perl-*--';
@rem = '
@echo off
:: Runs Perl and launches a script.
:: Arguments: whatever you like 
:: I/O redirection symbols ( > | < ) get stripped by Windows.  Use the caret
notation (^>) instead.
perl.exe %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
if errorlevel 10 goto perlerror
if errorlevel 1 goto badparam
goto done
@rem ';

BEGIN{ @INC = qw(C:/perl/lib C:/perl/scripts); } ## reset as needed

## This is a logging facility.  Call it from within your script like this:
sub LogMe
   $msg = shift;
   use Win32::EventLog;
   $Event = {'EventType' => EVENTLOG_INFORMATION_TYPE, 
             'Category'  => 0,
             'EventID'   => 1, 
             'Data'      => $msg,
                       'Source'    => $testee,
                       'Computer'  => $ENV{'COMPUTERNAME'}};
   Win32::EventLog::Open($logger, "PerlTest") &&  $logger->Report($Event); 

## This nicely formats any Win32 errors.  You can use it with the logger
above: &LogMe(&Error);
sub Error
   use Win32;
   $! = Win32::GetLastError;
   return Win32::FormatMessage($!);

## Do your Perl thing here.  DOS parameter %0 is the batch file name of this
## It's also the first argument to perl (line 6).  Massage the caret
notation here and 
## handle redirection within this script.  Use the exit function to return
an errorlevel 
## to the batch file wrapper.  

@echo Unexplained Perl error!
goto done
@echo Usage: thisfile your_parameters
@echo  thisfile = script (FQPN if not in current directory)
@echo on

--- end script ---
   I use MHonarc on NT v3.51 with Activestate Perl build 315, no problems.
Home of the Cybernautic Hiker's Guide(tm)

<Prev in Thread] Current Thread [Next in Thread>