Wie kann ich Forking Pipes in Perl unter Windows arbeiten lassen?

Question

Ich versuche, ein Perl-Skript von Unix zu Windows zu portieren, aber ich habe eine fast unmögliche Zeit, es zu arbeiten wegen der nicht unterstützten Forking Pipes in der offenen Funktion. Hier ist der Code:

sub p4_get_file_content { 
    my $filespec = shift; 
    return 'Content placeholder!' if ($options{'dry-run'}); 
    debug("p4_get_file_content: $filespec\n"); 
    local *P4_OUTPUT; 
    local $/ = undef; 
    my $pid = open(P4_OUTPUT, "-|"); 
    die "Fork failed: $!" unless defined $pid; 
    if ($pid == 0) { # child 
     my $p4 = p4_init(); 
     my $result = undef; 
     $result = $p4->Run('print', $filespec); 
     die $p4->Errors() if $p4->ErrorCount(); 
     if (ref $result eq 'ARRAY') { 
      for (my $i = 1; $i < @$result; $i++) { 
       print $result->[$i]; 
      } 
     } 
     $p4->Disconnect(); 
     exit 0; 
    } 
    my $content = <P4_OUTPUT>; 
    close(P4_OUTPUT) or die "Close failed: ($?) $!"; 
    return $content; 
} 

Der Fehler ist:

'-' is not recognized as an internal or external command, 
operable program or batch file. 

Wer weiß, wie diese Arbeit zu machen? Vielen Dank!

Mike

Answer 1

Ich weiß, es ist nicht eine direkte Antwort auf Ihre Frage, aber es sieht aus wie Sie etwas auf der Perforce in Perl sind Scripting? Wenn dem so ist, könnte es sein, dass eine existierende Bibliothek bereits das tut, was Sie wollen, und Sie sich eine Menge Kopfzerbrechen ersparen können, oder Ihnen zumindest einen Beispielcode zum Arbeiten geben.

Zum Beispiel:

• P4Perl
• P4::Server
• P4::C4

EDIT: Nun, da ich weiß, was du tust, ich vermute, Sie versuchen zu Port p42svn zu Windows, oder machen Sie es zumindest kompatibel mit Windows. Eine Erörterung dieses genauen Problems finden Sie unter this thread. Die Empfehlung (ungetestet) besteht darin, die unter http://perldoc.perl.org/perlfork.html aufgelisteten Codebeispiele unter "Forking Pipe Open() noch nicht implementiert" auszuführen, um stattdessen explizit die Pipe zu erstellen.

Answer 2

Es funktioniert nicht wie es ist. Sie müssen eine andere Methode finden, um zu erreichen, was es tut. Es sieht nicht so aus, als würde das Fork-Pipe brennen, aber es ist schwer zu sagen, da ich nicht weiß, was ein p4 ist und viel Code geht verloren, wenn die Klammern interpretiert werden.