Автор Тема: Помощ за perl  (Прочетена 4414 пъти)

axelic

  • Участници
  • ***
  • Публикации: 9
    • Профил
Помощ за perl
« Отговор #15 -: Aug 27, 2006, 13:59 »
VladSun, благодаря ти, но скрипта изрично трябва да бъде на Perl(не е нещо зависещо от мен).

soulcollector, благодаря ти и на теб, но какво ще стане, ако в някакъв момент температурата е била 27.7, в следващия е 27.2?
Примерен код

if ($temp >= $critical and ($temp_t == 0.0 or $temp - $temp_t >= 0.5)) {
       temp_warn $file, $temp;
       print "Send note with temperature: $temp\n";

Както аз го виждам - ще е по-голяма от критичната(ще е 27.2),  $temp_t == 0.0 няма да е вярно, а 27.2-27.7 ще е по-малко от 0.5 '<img'>. т.е. температурата ще е паднала с 0.5 градуса, но това няма да доведе до съобщение.
Активен

VladSun

  • Moderator
  • Напреднали
  • *****
  • Публикации: 2166
    • Профил
Помощ за perl
« Отговор #16 -: Aug 27, 2006, 18:07 »
axelic - имаш структурата, работи - прехвърли я на Perl.
Само не разбирам, при условие, че ползваш bash команди в скрипта как изпълняваш изискването '<img'> - то би имало смисъл единствено, ако правиш нещо, което да работи и под Линукс и под Уиндоус.
И още нещо - това с използването на 0.0 като маркер е абсолютно безсмислено, при условие, че имаш във всеки един момент текущата темпераура и последната такава.



Активен

KISS Principle ( Keep-It-Short-and-Simple )
http://openfmi.net/projects/flattc/
Има 10 вида хора на този свят - разбиращи двоичния код и тези, които не го разбират :P

soulcollector

  • Напреднали
  • *****
  • Публикации: 54
    • Профил
Помощ за perl
« Отговор #17 -: Sep 05, 2006, 02:25 »
Аз  в предния си пост бях сложил
Примерен код

abs ($temp - $temp_t) >= 0.5

 но от обяснението ти какво точно трябва да прави разбрах (явно погрешно), че при падане на температурата съобщение се праща само когато падне под критичната.
Активен

This place inside my brain
another kind of pain. (Korn)

Подобни теми
Заглавие Започната от Отговора Прегледи Последна публикация
Perl
Общ форум
x11r6 5 3666 Последна публикация Aug 09, 2003, 10:03
от x11r6
Perl
Общ форум
Йордан 3 3095 Последна публикация Nov 13, 2003, 16:14
от Йордан
Gtk-Perl
Хардуерни и софтуерни проблеми
apogza 0 1998 Последна публикация Jan 24, 2004, 12:52
от apogza
Ползва ли се Perl в България и за какво?
Общ форум
berov 63 19521 Последна публикация Jan 31, 2005, 11:17
от toxigen
Четене от Серийни портове с Perl
Общ форум
berov 2 2829 Последна публикация Jun 15, 2004, 18:17
от berov