$Expect::Debug = 1;
$Expect::Log_Stdout = 1;
$Expect::Exp_Internal = 1;
my $cvs_root = 'export CVSROOT=:pserver:user11@10.x.x.X:/export/DEMO' . "\r\n";
my $echo_cmd = "echo \$CVSROOT \r\n";
#cvs, give me a token
my $shell_obj = new Expect or die "Couldn't spawan a process : $!\n";
#pty return all sends itself as it is. Making your reposnse unpredictable. Get it corrected
$shell_obj->raw_pty(1);
$shell_obj = Expect->spawn("$cvs_root") or die "Couldn't start a program: $!\n";
while spawning process to export CVSROOT, i am getting this error when executing this script
Cannot exec(export CVSROOT=:pserver:user11@10.x.x.x:/export/demo ): Permission deniedNot sure what i am missing here. Monks could you please give me hint or direction to walk on.
In reply to Expect.pm spawn for exporting evn variables by anilfunde
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |