You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Ro...@deluxe.com on 2000/08/02 19:19:45 UTC
Expect Problem
I'm using the Expect module to perform some shell commands to automate some
processing, but for some reason I'm not able to perform an "rm" function as
I would from a shell prompt. All I want to do is to delete all of the files
in the directory without a prompt or without using a recursive option. The
command I would like to execute would be like the following shell command
for a remove of all files starting with I*, i*, x*, y*, etc. The command
that I would normally use would be rm /directory/[Iixy]* and this works. I
have the same code included in my script, yet the "rm" doesn't seem to want
to execute. Note that the before buffer contains the copy and the "rm".
The files get copied without any problem and I can substitute the rm with
another command and it seems to execute. Why is "rm" any different?
Any suggestions, comments or other would be greatly appreciated.
Sample Code:
print "\n Start of the copy process $TFTPCopy --> $BackupDirectory \n\n";
$command->debug(2); unless ($InvalidSwitch){ # Copy the files
$CopyMembers=$TFTPCopy."[Iixyz]*";
print $command "cp $CopyMembers $BackupDirectory\n";
unless ($command->expect(undef,">>>")){ # Copy failed
print " ** \">>>\" copy failed \n";
print " BACKUP FAILED\n ";
die " FATAL Error $TFTPServer";
}
}
print "\n Delete All $CopyMembers in the $TFTPCopy directory \n ";
print " execute the command rm $CopyMembers \r\n\r";
unless ($InvalidSwitch){ # Copy the files
print $command "rm $CopyMembers\n"; # Set the enable
unless ($command->expect(undef,">>>")){ # Copy failed
$PrintMsg1= "** Delete of members failed \n";
$PrintMsg2= "Delete of the files in the $TFTPCopy Failed \n";
PrintFailure(); # Print Failure Routine
die " FATAL Error $TFTPServer";
PrintFailure(); # Print Failure Routine
}
}
PrintFailure(); # Print Failure Routine
}
"Killed after the delete \n";} # End of the CopyToBackup
Diagnostic Display :
shvop701>>>shvop701>>> Start of the copy process /home/tftpuser/ -->
/tmp/tftpbackup Beginning expect from spawn id(5).
Accumulator: 'shvop701>>>'
Expect timeout time: unlimited seconds.
expect: Pty=spawn id(5), time=965236546, loop_time=undef
Matched pattern 1 ('>>>')!
Before match string: 'shvop701'
Match string: '>>>'
After match string: ''
Returning from expect successfully.
Accumulator: ''
Delete All /home/tftpuser/[Iixyz]* in the /home/tftpuser/ directory
execute the command rm /home/tftpuser/[Iixyz]*
Beginning expect from spawn id(5).
Accumulator: ''
Expect timeout time: unlimited seconds.
expect: Pty=spawn id(5), time=965236546, loop_time=undef
expect: handle spawn id(5) ready.
expect: read 44 byte(s) from spawn id(5).
cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup
expect: handle spawn id(5) ready.
expect: read 28 byte(s) from spawn id(5).
rm /home/tftpuser/[Iixyz]*
expect: handle spawn id(5) ready.
expect: read 11 byte(s) from spawn id(5).
shvop701>>>Matched pattern 1 ('>>>')!
Before match string: 'cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup\r\nrm
/home/tftpuser/[Iixyz]*\r\nshvop701'
Match string: '>>>'
After match string: ''
Returning from expect successfully.
Accumulator: ''
******************************************************
++++++ FAILURE of EXPECT +++++ **
Values of the match(>>>)
Before(cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup
rm /home/tftpuser/[Iixyz]*
shvop701)
After() ******************************************************
Killed before the delete
Re: Expect Problem
Posted by dreamwvr <dr...@dreamwvr.com>.
hi Ron,
well here is one suggestion that i am not really certain that
the expect.pm handles .. but if you can try to insert 'interact' to
see what prompts rm wants on the other side as remember that
you need to expect from process the prompt for y or no and then send
a reply..
Best Regards,
dreamwvr@dreamwvr.com
RE: Expect Problem
Posted by jb...@team-linux.com.
You've got the wrong mailing list. This list is for the discussion of the
mod_perl Apache module. You probably want to contact the module author or try
comp.lang.perl.misc or comp.lang.perl.modules or comp.lang.perl.moderated. Or
maybe even www.perlmonks.org.
On 02-Aug-2000 Ron.W.Flolid@deluxe.com wrote:
> I'm using the Expect module to perform some shell commands to automate some
> processing, but for some reason I'm not able to perform an "rm" function as
> I would from a shell prompt. All I want to do is to delete all of the files
> in the directory without a prompt or without using a recursive option. The
> command I would like to execute would be like the following shell command
> for a remove of all files starting with I*, i*, x*, y*, etc. The command
> that I would normally use would be rm /directory/[Iixy]* and this works. I
> have the same code included in my script, yet the "rm" doesn't seem to want
> to execute. Note that the before buffer contains the copy and the "rm".
>
> The files get copied without any problem and I can substitute the rm with
> another command and it seems to execute. Why is "rm" any different?
>
> Any suggestions, comments or other would be greatly appreciated.
>
>
>
> Sample Code:
> print "\n Start of the copy process $TFTPCopy --> $BackupDirectory \n\n";
> $command->debug(2); unless ($InvalidSwitch){ # Copy the files
> $CopyMembers=$TFTPCopy."[Iixyz]*";
> print $command "cp $CopyMembers $BackupDirectory\n";
> unless ($command->expect(undef,">>>")){ # Copy failed
>
> print " ** \">>>\" copy failed \n";
> print " BACKUP FAILED\n ";
> die " FATAL Error $TFTPServer";
> }
> }
> print "\n Delete All $CopyMembers in the $TFTPCopy directory \n ";
> print " execute the command rm $CopyMembers \r\n\r";
> unless ($InvalidSwitch){ # Copy the files
> print $command "rm $CopyMembers\n"; # Set the enable
> unless ($command->expect(undef,">>>")){ # Copy failed
> $PrintMsg1= "** Delete of members failed \n";
> $PrintMsg2= "Delete of the files in the $TFTPCopy Failed \n";
> PrintFailure(); # Print Failure Routine
> die " FATAL Error $TFTPServer";
> PrintFailure(); # Print Failure Routine
> }
> }
> PrintFailure(); # Print Failure Routine
> }
>
> "Killed after the delete \n";} # End of the CopyToBackup
>
>
> Diagnostic Display :
>
> shvop701>>>shvop701>>> Start of the copy process /home/tftpuser/ -->
> /tmp/tftpbackup Beginning expect from spawn id(5).
> Accumulator: 'shvop701>>>'
> Expect timeout time: unlimited seconds.
> expect: Pty=spawn id(5), time=965236546, loop_time=undef
> Matched pattern 1 ('>>>')!
> Before match string: 'shvop701'
> Match string: '>>>'
> After match string: ''
> Returning from expect successfully.
> Accumulator: ''
> Delete All /home/tftpuser/[Iixyz]* in the /home/tftpuser/ directory
> execute the command rm /home/tftpuser/[Iixyz]*
> Beginning expect from spawn id(5).
> Accumulator: ''
> Expect timeout time: unlimited seconds.
> expect: Pty=spawn id(5), time=965236546, loop_time=undef
> expect: handle spawn id(5) ready.
> expect: read 44 byte(s) from spawn id(5).
> cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup
> expect: handle spawn id(5) ready.
> expect: read 28 byte(s) from spawn id(5).
> rm /home/tftpuser/[Iixyz]*
> expect: handle spawn id(5) ready.
> expect: read 11 byte(s) from spawn id(5).
> shvop701>>>Matched pattern 1 ('>>>')!
> Before match string: 'cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup\r\nrm
> /home/tftpuser/[Iixyz]*\r\nshvop701'
> Match string: '>>>'
> After match string: ''
> Returning from expect successfully.
> Accumulator: ''
>
>
> ******************************************************
> ++++++ FAILURE of EXPECT +++++ **
> Values of the match(>>>)
>
> Before(cp /home/tftpuser/[Iixyz]* /tmp/tftpbackup
> rm /home/tftpuser/[Iixyz]*
> shvop701)
>
> After() ******************************************************
>
> Killed before the delete
--
Jason Bodnar + jbodnar@team-linux.com + Team Linux
Marge: Wow, you can't find this stuff anywhere. Seals and Crofts, Pablo
Cruise, Air Supply, oh, Loggins and Oates...and it's free!
Lisa: I've never heard of these bands, Mom, what kind of music do they
play?
Bart: Crap rock?
Marge: [thinking] No...
Homer: Wuss rock?
Marge: That's it!
Viva Ned Flanders