かつては分岐配管作業Perl Windows?
質問
ようにしているポートPerlスクリプトからのUnixインタラクティブなプロトタイが有する近な時間をできるのではないかと考えて仕事による非対応の分岐管の機能です。こちらのコード:
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;
}
のエラー:
'-' is not recognized as an internal or external command,
operable program or batch file.
というかこの仕事?よろしく!
マイク
解決
んなの質問に直接お答えする答えのようにも見えばスクリプティングも上Perforce Perl?その場合を感じるかもしれませんが、既存の図書館は何をしたい既存の自分の頭痛、少なくとも過ごせばよいかを教えてくれるサンプルコードを創出。
例えば:
編集:ることを知ったきっ推測を行うポートp42svnインタラクティブなプロトタイ、いやい対応窓口とします。見 このスレッド のための議論の正確な課題です。の勧告(未審査は、次のコードサンプル http://perldoc.perl.org/perlfork.html 下"分岐管open()まだ実装されていません"明示的に作りのパイプです。
他のヒント
そのままで仕事に行くのではありません。あなたはそれがやっている何を達成する別の方法を見つける必要があります。フォークパイプの必要性を燃やし、私はP4であり、あなたのコードの多くは、アングルブラケットの解釈のために失われているかわからないので、それが伝えるのは難しいことがありますようにそれは見えません。
所属していません StackOverflow