perl/curses/plaincurses.pl

   1 #!/usr/bin/env perl
   2 use Curses;
   3
   4 initscr;
   5 END{endwin;}
   6
   7 printw("Normalni text\n");
   8 attron(A_BOLD);
   9 printw("Tucny text\n");
  10 attron(A_UNDERLINE);
  11 printw("Tucny a podtrzeny text\n");
  12 attron(A_BLINK);
  13 printw("Tucny, podtrzeny a blikajici text\n");
  14 attron(A_STANDOUT);
  15 printw("Jeste navic zvyrazneny text\n");
  16 attroff(A_BLINK);
  17 printw("Vypiname blikani\n");
  18 attrset(A_BLINK | A_BOLD);
  19 printw("Nyni je text pouze blikajici a tucny\n");
  20
  21 getch;