Пожалуйста, помогите с написанием скрипта на PERL\'е.......

[MTsv DN]

Ситуация следующая...
  Есть скрипт ./script.cgi, файл ./database/data.base.

  В data.base три строчки:
    1_абв
    2_где
    3_жзи
   
  Сделал отображение на страничке в виде:
  {checkbox_1} абв
  {checkbox_2} где
  {checkbox_3} жзи
            {button_delete}

  Надо по нажатию {button_delete} удалить те строчки у которых включены флажки....

[Phoinix]

MTsv DN
Ммм... ну файл ./database/data.base я увидел, а где скрипт ./script.cgi

[MTsv DN]

Так мне и нужен скрипт выводящий сначала список с checkbox\'ами и button\'ом, а потом удаляющий не нужные строчки..... Смысл в том,что отображение я сделал, только полный скрипт очень объемный.....

[Wyclef]

Код: [Выделить]

#!/usr/bin/perl

use strict;
use CGI qw/:standard/;

open F, "databse.txt" or die;
my @lines = ;
close F;

if (param()) {
    my @new;
    for (@lines) {
        my @parts = split /_/;
        next if defined param("checkbox_$parts[0]");
        push @new, $_;
    }
    @lines = @new;

    open F, ">databse.txt" or die;
    print F @lines;
    close F;
}

print header,
    start_html(\'drop boxes\'),
    h1(\'drop boxes\'),
    start_form;
             
for (@lines) {
    my @parts = split /_/;
    print checkbox("checkbox_$parts[0]", "", "1", $parts[1]), br;
}

print p,
    submit,
    end_form,
    end_html;