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
