run_perl

run_perl

// Prepare NSTask
let perltask = $.NSTask.alloc.init;
perltask.setLaunchPath("/usr/bin/perl");
            
// Set up input and output pipes
const inputPipe = $.NSPipe.pipe;
const outputPipe = $.NSPipe.pipe;
const errorPipe = $.NSPipe.pipe;
            
perltask.setStandardInput(inputPipe);
perltask.setStandardOutput(outputPipe);
perltask.setStandardError(errorPipe);
            
// Write input to the process
const inputHandle = inputPipe.fileHandleForWriting;
inputHandle.writeData(perlData);
inputHandle.closeFile;
            
// Launch task
perltask.launch;  
perltask.waitUntilExit;
            
// Read output
const outputHandle = outputPipe.fileHandleForReading;
const errorHandle = errorPipe.fileHandleForReading;
const outputData = outputHandle.readDataToEndOfFile;
const errorData = errorHandle.readDataToEndOfFile; 
const outputString = $.NSString.alloc.initWithDataEncoding(outputData, $.NSUTF8StringEncoding);
const errorString = $.NSString.alloc.initWithDataEncoding(errorData, $.NSUTF8StringEncoding);

// Aggregate Response
let response1pe = ObjC.unwrap(outputString);
let response2pe = ObjC.unwrap(errorString);
let responsepe = response1pe + response2pe;
return {"user_output":responsepe, "completed": true};