Forum Webscript.Ru

Программирование => Perl => Тема начата: MTsv DN от 31 Октября 2003, 20:34:11

Название: Пожалуйста, помогите с написанием скрипта на PERL\'е.......
Отправлено: MTsv DN от 31 Октября 2003, 20:34:11

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

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

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

Название: Пожалуйста, помогите с написанием скрипта на PERL\'е.......
Отправлено: Phoinix от 01 Ноября 2003, 10:13:29

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

Название: Пожалуйста, помогите с написанием скрипта на PERL\'е.......
Отправлено: MTsv DN от 01 Ноября 2003, 11:30:23

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

Название: Пожалуйста, помогите с написанием скрипта на PERL\'е.......
Отправлено: Wyclef от 02 Ноября 2003, 21:49:59

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

#!/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;