форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"perl и кратные числа"
Сообщение от HAN on 12-Апр-03, 01:22  (MSK)
Hi! 1. Как в скрипте на перле получить действие на счетчик кратный например 100, 200 и тд. 2. Как можно в скрипте отлавливать прерывание его работы пользователем (например, по Ctrl+C или Ctrl+D)? Принимаются любые советы! Удачи! HAN
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "perl и кратные числа"
Сообщение от pth on 13-Апр-03, 12:15  (MSK)
>Hi! >1. Как в скрипте на перле получить действие на счетчик кратный например >100, 200 и тд. Что есть счетчик? Может подойдет что-то типа: ---- sub counter { my ($val, $func) = @_; my $count; return sub { (++$count % $val) || &$func; $count; } } my $c = counter(5, sub { print "Yes: " }); for(1 .. 16) { print &$c, "\n"; } ---- :) >2. Как можно в скрипте отлавливать прерывание его работы пользователем (например, по >Ctrl+C или Ctrl+D)? Как обычно. Установить обработчик сигнала. ---- sub sigint { $SIG{'INT'} = \&sigint; print "пришел SIGINT"; } $SIG{'INT'} = \&sigint; ---- Ctrl-D - ? Обычно это eof. > >Принимаются любые советы! > >Удачи! >HAN
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "perl и кратные числа"
	Сообщение от HAN on 15-Апр-03, 01:51  (MSK)
	Hi! Спасибо! хоть мне уже и подсказали! первый вопрос можно через int(). Уже все методы в работе :) Удачи! HAN
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.