Как сделать в Perl пронзительный продолжительный гудок из динамика!
Я делал \a но это только короткий писк.
Как сделать в Perl вывод на КОНСОЛЬ в цвете. Мне удалось вывести в цвете в файл, удалось вывести мигающую строку на консоль, а как в цвете

• Perl цвет звук,DogEater, 12:55 , 01-Июн-04
  • Perl цвет звук,A Clockwork Orange, 14:21 , 01-Июн-04
    • Perl цвет звук,DogEater, 14:45 , 01-Июн-04
      • Perl цвет звук,A Clockwork Orange, 15:02 , 01-Июн-04

>Как сделать в Perl пронзительный продолжительный гудок из динамика!
>Я делал \a но это только короткий писк.
>Как сделать в Perl вывод на КОНСОЛЬ в цвете. Мне удалось вывести
>в цвете в файл, удалось вывести мигающую строку на консоль, а
>как в цвете
в линуксах можно менять длительность/тон на консоли через искейпы
так же и цвет
я себе написал скрипт играющий мобильные мелодии для сименса
а в БСД на консоли при загрузке есть цветные сообщения?
Если есть - посмотри rc скрипты, там должны быть нужные последовательности
зы. ты всё цискин лог мучаешь? :-)

При загрузке нет цветных сообщений, только жирный белый.
Да мучаю. Вот только хочется красного да погромче и пронзительнее, самое интересное что \a , что \а\а\а\а\а\а  один черт один слабенький писк, тольк курсор сдвигает, а с шаблоном так и не получилось, поставил туда реальную фразу что не есть красиво.

>При загрузке нет цветных сообщений, только жирный белый.
>Да мучаю. Вот только хочется красного да погромче и пронзительнее, самое интересное
>что \a , что \а\а\а\а\а\а  один черт один слабенький писк,
>тольк курсор сдвигает, а с шаблоном так и не получилось, поставил
>туда реальную фразу что не есть красиво.
прпробуй так:

use Time::HiRes qw{usleep};
$dur = длительность в микросекундах
$note = частота(нота) в герцах
$mult = множитель(для октавы)
    $sound=$note*$mult;
    my $note="\33[10;" . $sound. "]\33[11;" . $dur . "]\a";
    print ($note);
    usleep ($dur*1500);

Молчит, не звука