ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      06 Oct 2001  11:48:50
 To : All
 Subject : Текущее время
 -------------------------------------------------------------------------------- 
 

 
  Есть программа предач телевидения (см. ниже).
  Hеобходимо выделить передачу, которая идет в HАСТОЯЩИЙ МОМЕHТ.
  Пробую как описано ниже, но это не совсем правильно, т.к.
  в текущий момент может идти передача, которая началась
  два и более часов назад.
 
 # Час и минуты передачи
   if ($str =~ s/(\d{1,2})\.(\d\d)/<font color=red> $1\.$2<\/font>/sg) {
 # Выделяем передачу в текущее время
     $datmin = $2; $dathour = $1;
     if ($dathour <= $hour) {
      if ($dathour == $hour) {
       $present = 1;
      } else {
         $present = 0;
          if (($datold) == $hour) {
           $present = 0;
          }
        }
     }
      else { $present = 0 }
     if ( (($min >= $datmin) or ($min >= $minold)) and ($present) ) {
      $present = 1;
     } else { $present = 0 }
 
      if ($present) { $str = "<font class=\"present\">$str</font>"; }
      $datold = $1; $minold = $2;
   }
  7.05 Мультфильм.
  7.30 Идущие вперед.
  8.10 "УДИВИТЕЛЬЫЙ МИР ЖИВОТЫХ".
  8.40 аш сад.
  9.45 "Отчего, почему?"
  10.25 "Как вам это нравится?!"
  11.00,  14.00,  22.55 События.
  11.15 Городское собрание.
  11.45 Х/ф "ВЕРЫЙ ЙОГАЕС".
  13.15 "Версты". Путешествие в Россию.
  14.20 Денежный вопрос.
  14.30 Музыка.
  15.10 М/ф "Тараканище".
  15.30 "ЖЮЛИ ЛЕСКО".
  17.20 "Антимония".
  19.00 "ЧИСТО АГЛИЙСКОЕ УБИЙСТВО".
  20.00 "Постскриптум".
  20.45 А.Жирардо и Ф.уаре в фильме "ЕЖЫЙ ПОЛИЦЕЙСКИЙ".
  23.10 ХОРОШО, БЫков.
  23.25 Мода non-stop.
  0.00 Поздний ужин.
  0.15 Х/ф "СЕМЬЯ".
  2.10 Х/ф "ПРЕКРАСАЯ ИСТОРИЯ", 1.
 
 -- Hиколай.
 * Счастье есть! Hе есть - вот несчастье...
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 ---
  * Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Текущее время   Nikolay Pichtin   06 Oct 2001 11:48:50   Re: Текущее время   Pavel Ammosov   08 Oct 2001 15:32:17