Làm thế nào để gọi kịch bản Perl trong ứng dụng C#?

Question

Tôi muốn chụp đầu ra của một chương trình Perl và hiển thị dữ liệu đầu ra (chuỗi trên màn hình) trong một hộp văn bản trên C# Windows Form.

Đây là chính mã của tôi C#:

public partial class frmMain : Form 
{ 
    private Process myProcess = null; 
    public frmMain() 
    { 
     InitializeComponent();    
    } 

    public delegate void UpdateUIDelegate(string data); 
    private void btnRun_Click(object sender, EventArgs e) 
    { 
     myProcess = new Process(); 
     ProcessStartInfo myProcessStartInfo = new ProcessStartInfo("perl.exe"); 
     myProcessStartInfo.Arguments = "test.pl"; 
     myProcessStartInfo.UseShellExecute = false; 
     myProcessStartInfo.RedirectStandardOutput = true; 
     myProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden; 
     myProcessStartInfo.CreateNoWindow = true; 
     myProcess.StartInfo = myProcessStartInfo; 
     myProcess.OutputDataReceived += new DataReceivedEventHandler(myProcess_OutputDataReceived); 
     myProcess.Start(); 
     myProcess.BeginOutputReadLine(); 
    } 

    void myProcess_OutputDataReceived(object sender, DataReceivedEventArgs e) 
    { 
     if (txtOutput.InvokeRequired) 
     { 
      UpdateUIDelegate updateDelegate = new UpdateUIDelegate(UpdateUI);     
      this.Invoke(updateDelegate, e.Data); 
     }    
    } 

    void UpdateUI(string data) 
    { 
     txtOutput.Text += data + "\r\n"; 
    } 
} 

và mã cho test.pl:

my @a = qw{1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19}; 
my @b = qw{a b c d e f g h i j k l m n o p q r s }; 
print 'start' . "\n"; 
while (my ($item1, $item2) = (splice (@a, 0, 1), splice (@b, 0, 1))) { 
    print 'Item 1: ' . $item1 . "\n"; 
    print 'Item 2: ' . $item2 . "\n"; 
    warn 'Finish one item' . "\n"; 
    sleep(1); 
} 

Tôi có một vấn đề là các dữ liệu đầu ra chỉ được hiển thị trên hộp văn bản cho đến khi Perl Đã hoàn thành xong.

Điều thú vị hơn khi tôi thấy rằng, Nếu tôi làm tương tự với một ứng dụng giao diện điều khiển (C#) mọi thứ có vẻ ổn.

Dưới đây là đoạn code cho các ứng dụng giao diện điều khiển:

class Program 
{ 
    static void Main(string[] args) 
    { 
     Process myProcess = new Process(); 
     ProcessStartInfo myProcessStartInfo = new ProcessStartInfo("perl.exe"); 
     myProcessStartInfo.Arguments = "test.pl"; 
     myProcessStartInfo.UseShellExecute = false; 
     myProcessStartInfo.RedirectStandardOutput = true; 
     myProcess.StartInfo = myProcessStartInfo; 

     myProcess.OutputDataReceived += new DataReceivedEventHandler(myProcess_OutputDataReceived);          
     myProcess.Start();    
     myProcess.BeginOutputReadLine();    
     Console.Read(); 
    } 

    static void myProcess_OutputDataReceived(object sender, DataReceivedEventArgs e) 
    { 
     Console.WriteLine(e.Data); 
    } 
} 

Tôi đang cố gắng để tìm ra những gì xảy ra với ứng dụng hình thức của tôi, nhưng vẫn không tìm thấy bất kỳ manh mối. Một điều nữa là tôi không thể nhận được thông báo cảnh báo bằng ứng dụng biểu mẫu cửa sổ.

Answer 1

Bạn sẽ cần phải sử dụng nhiều luồng vì vậy nó không ngắt của bạn Giao diện người dùng. Tôi có một lớp tiện ích khá lớn để khởi chạy các quy trình trên luồng và đường ống riêng của mình cho các sự kiện được ủy quyền.

Xin lỗi, tôi đưa ra một ví dụ nhưng tôi thực sự đang rất vội vã. Nhưng một điều khác bạn sẽ muốn xem ra cho bằng cách sử dụng kịch bản Perl là họ không tự động tuôn ra đầu ra độc đáo. Bạn cần phải đặt:

local $| = 1; 

Ở đầu tập lệnh bạn đang chạy để nó tự động tuôn ra.

Answer 2

Trước tiên, bạn phải cập nhật các xử lý sự kiện

void myProcess_OutputDataReceived(object sender, DataReceivedEventArgs e)  
    {   
     if (txtOutput.InvokeRequired)   
     {    
       UpdateUIDelegate updateDelegate = new UpdateUIDelegate 

       (UpdateUI);this.Invoke(updateDelegate, e.Data);   
      } 
      else UpdateUI(e.Data); 

    } 

và thêm dòng này trong thư mục btnRun_Click

proc.WaitForExit();