Nie można „cleartool setview” w procesie powłoki otwieranym za pomocą Perl IPC :: open2
Tworzę skrypt Perla, który między innymi ustawia się w widoku ClearCase, tworzy środowisko i uruchamia narzędzia do syntezy, a na koniec generuje raporty z procesów końcowych. Robi to poprzez przekierowanie do procesu powłoki otwartego za pomocąIPC::open2
.
Jeśli ustawię ręcznie widok przed uruchomieniem skryptu Perla, wydaje się, że działa poprawnie (podkomendy cleartool, takie jakpwv
praca). Jednak kiedy uruchomię$ct setview anassar_$proj
w skrypcie wyświetla następujący komunikat o błędzie:
stty: standard input: Invalid argument
Nie znam żadnych ograniczeń, które uniemożliwiają uruchomieniect setview
poprzez potokowanie go do procesu powłoki. Jakaś pomoc?
my ( $readme, $writeme );
# Open the default shell and hook to its stdin and stdout.
my $pid = open2( $readme, $writeme, "$ENV{SHELL}" ) or
croak "Cannot open IPC handles to $ENV{SHELL}\n";
runCmd("$ct pwv");
runCmd("$ct setview anassar_$proj");
runCmd("$ct pwv");
runCmd('source /vobs/blah/blah/blah/env.csh');
runCmd('echo env_var1 = $env_var1');
runCmd('echo env_var2 = $env_var2');
runCmd('echo env_var3 = $env_var3');
runCmd('exit'); # Exit from ClearCase View
runCmd('exit'); # Exit from shell.
sub runCmd {
my ( $cmd ) = @_;
my $sentinel = '___SOME_STRING_THAT_CANNOT_OCCUR_IN_OUTPUT___';
print $writeme "$cmd && echo $sentinel\n";
while ( my $output = <$readme> ) {
last if ( $output =~ /$sentinel/ );
print $output;
}
}