C# uygulamasında Perl komut dosyasını nasıl ararım?

Question

Bir Perl programının çıktısını almak ve C# Windows Formunda bir metin kutusuna çıktı verilerini (ekran üzerindeki dize) görüntülemek istiyorum. Bir sorun çıktı verileri sadece Perl kadar metin kutusuna görüntülenen olmasıdır sahip

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); 
} 

: test.pl için

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"; 
    } 
} 

ve kod: Burada

benim ana C# kodu bitti.

Bunu bulduğumda daha ilginç, eğer bir konsol uygulamasıyla (C#) aynısını yaparsam her şey iyi görünüyor. Ben benim form uygulaması ile olur ama yine de herhangi bir ipucu bulamadık anlamaya çalışıyorum

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); 
    } 
} 

:

İşte konsol uygulaması için kod. Bir şey daha Windows form uygulaması ile mesaj alamıyorum.

Answer 1

bu çizgiyi eklemek zorunda senin UI. Kendi iş parçacığı ve borularındaki süreçleri temsilci olaylara başlatan oldukça büyük bir yardımcı program sınıfım var.

Üzgünüm, bir örnek vereyim ama aslında büyük bir acelem var. Ama Perl betikleri kullanarak dikkat etmek isteyeceğiniz başka bir şey de çıktıyı otomatik olarak temizlememesidir. Koymanız gerekir:

local $| = 1; 

Çalıştığınız komut dosyasının üst kısmında otomatik olarak temizlenir.

Answer 2

Önce olay işleyicisi

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

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

    } 

güncelleme ve Sen interupt vermez birden çok konuları kullanmaya gerek olup olmadığınız btnRun_Click

proc.WaitForExit();