the subject of "deleting elements from array questions" comes up pretty often, so i decided to write a subroutine that would handle the job once and for all. note that it will only remove elements from array questions, not array statements or other types of questions.
$ques = "how do i make an array spin around?";
$element = 4;
print delete_element($element, $ques), "\n";
sub delete_element {
my ($element, $question) = @_;
if($question =~ /array.*\?$/i) {
@elements = split(' ', $question);
$elements[$element] = '';
return join(' ', @elements);
}
else {
print "That is not an array question!\n";
return $question;
}
}
output:
how do i make array spin around?
