Just used the following code to delete a specific value from an array, populated from
text read from file. Please let me know if i can be of any help.
sub doDeleteProvider {
my $cgi = shift;
my $counter = 0;
my $index;
my $del_name = $cgi->param("names");
my $TITLE = "Nighthawk Database";
foreach (@pro_list) {
if($_ eq "$del_name") {
$index = $counter;
}
$counter++;
}
print $cgi->header;
print $cgi->start_html($TITLE);
print start_form();
splice (@pro_list, $index, 1);
@pro_list = sort(@pro_list);
print @pro_list;
open($PROVIDER_FILE, "> provider_names.txt") or die "Can't open data file: $!";
foreach (@pro_list) {
print $PROVIDER_FILE "$_\n";
}
close($PROVIDER_FILE);
print br;
print h3("The new Name Has Been Deleted Successfully");
print br;
print center;
print submit(
-NAME => "display_main_menu",
-VALUE => "Main Menu",
);
} #end of doDeleteProvider
Regards,
Ebaad.Get more from the Web. FREE MSN Explorer download : http://explorer.msn.com
