The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"perl curses"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"perl curses"  
Сообщение от klim_old email(??) on 05-Янв-07, 11:34 
Впервые столкнулся. Нужно накатать инетрфейс на перловке, нашел и установил Curses, а как его юзать незнаю нашел на CPAN описание Curses::Forms в синопсисе:

#!/usr/bin/perl

  use Curses::Forms;

  $obj = Curses::Forms->new({
    ALTBASE     => 'MyCompany::Widgets',
    ALTFBASE    => 'MyCompany::Forms',
    COLUMNS     => 40,
    LINES       => 20,
    BORDER      => 1,
    BORDERCOL   => 'white',
    CAPTION     => 'New Record',
    CAPTIONCOL  => 'yellow',
    FOREGROUND  => 'black',
    BACKGROUND  => 'white',
    Y           => 1,
    X           => 1,
    INPUTFUNC   => \&scankey,
    DERIVED     => 0,
    AUTOCENTER  => 1,
    TABORDER    => [qw(btnOKCancel edtLogon edtPsswd)],
    FOCUSED     => 'edtLogon',
    WIDGETS     => {
      btnOKCancel   => {
        TYPE        => 'ButtonSet',
        LABELS      => [qw(OK Cancel)],
        Y           => 8,
        X           => 3,
        FOREGROUND  => 'white',
        BACKGROUND  => 'green',
        OnExit      => \&btns,
        },
      edtLogon      => {
        TYPE        => 'TextField',
        FOREGROUND  => 'white',
        BACKGROUND  => 'blue',
        CAPTION     => 'Logon',
        CAPTIONCOL  => 'yellow',
        LENGTH      => 21,
        Y           => 2,
        X           => 8,
        },
      edtPsswd      => {
        TYPE        => 'TextField',
        FOREGROUND  => 'white',
        BACKGROUND  => 'blue',
        CAPTION     => 'Password',
        CAPTIONCOL  => 'yellow',
        LENGTH      => 21,
        Y           => 5,
        X           => 8,
        PASSWORD    => 1,
      },
    });

  $form->setField(BORDER => 1);
  @taborder = @{$form->getField('TABORDER')};

  $form->addWidget('btnClose', { %options });
  $widget = $form->getWidget('btnClose');

  $form->addSubform('MainSubFrm', { %options });
  $subform = $form->getSubform('MainSubFrm');

  $form->execute($mwh);

  pushwh($mwh);
  popwh();
  refreshwh();
  lowerwh($wh);
  raisewh($wh);

но у меня выдает ошибку:

syntax error at ./test2.pl line 55, near "})"
Missing right curly or square bracket at ./test2.pl line 72, at end of line
Execution of ./test2.pl aborted due to compilation errors.

Где можно надыбать доки по сабжу желательно на великом и могучем. Или как использовать синопсис чтоб разобраться в этих Curses

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

  • perl curses, ACCA, 09:35 , 06-Янв-07, (1)  
    • perl curses, klim_old, 06:40 , 08-Янв-07, (2)  

Сообщения по теме [Сортировка по времени, UBB]


1. "perl curses"  
Сообщение от ACCA (ok) on 06-Янв-07, 09:35 
>Впервые столкнулся. Нужно накатать инетрфейс на перловке, нашел и установил Curses, а

Интерфейсы сейчас модно на CGI писать, нафига Curses?


[...]
>        X           => 8,
>        PASSWORD    => 1,
>      },

Вставь ещё раз (для WIDGETS):
       },


>    });
>
>  $form->setField(BORDER => 1);

[...]


>syntax error at ./test2.pl line 55, near "})"
>Missing right curly or square bracket at ./test2.pl line 72, at end
>of line
>Execution of ./test2.pl aborted due to compilation errors.


Тебе Perl сказал - там ошибка, скобка пропущена.

"
- У меня программа зависла.
- А что говорит?
- Нажмите Ок для продолжения.
- Нажимать пробовал?
- Как-то не догадался...
"

На будущее - программы на Perl должны начинаться так:

#!/usr/bin/perl -w
use strict;


Без этого есть шанс дописывать прогу в дурдоме.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "perl curses"  
Сообщение от klim_old email(??) on 08-Янв-07, 06:40 
Смутило что в синопсисе так написано, (АВТОР ВСЕТАКИ ПИСАЛ), а про скобку я и сам сразу понял но смутился


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру