Чтение датчика температуры DS18B20 на Perl (Raspberry Pi)

[kolganov_su]

Открою небольшую серию заметок по взаимодействию с различными примитивными устройствами на языке Perl из ОС Linux. Устройство - Raspberry Pi 3, либо 4, как наиболее используемый одноплатный компьютер.

Выкладывать начинаю в виде утилитки (скрипта), но если кому-то нужен не пример или готовый простенький сценарий, а библиотека - могу и в виде

Comments

[trilirium]

Спасибо, любопытно!

(Но - чтение файла через подстановку вывода '/bin/cat'??? Не извращение ли?? ))

[kolganov_su]

Вариант для ленивых, как и через more, tail, less, да что угодно. Как правило, там содержимого с гулькин нос.

Через perl чуть длиннее все же (\@ - слеш лишний).
my \@slaves = getFile('/sys/bus/w1/devices/w1_bus_master1/w1_master_slaves');
sub getFile {
my $file = shift;
my \@source;
if (open(my $fh, '<', $file)) {
while (<$fh>) {
s/[\r\n]+$//;
push(@source, $_);
}
return \@source;
}
return undef;
}

Интересно, как в ЖЖ обойти автозамену \@user на ссылку на пользователя. С подсечением тоже текст портится, т.к. слеш не скрывается.

[vedomir_li]

С совершенно чуждого мира C# Python смотрится гораздо приятнее Perl ))

[kolganov_su]

Дело привычки.
Для меня perl - любимый язык из-за его чуть большей близости к человеческому (английскому) языку по конструкции предложений. Проще писать, как думаешь. А вот читать, наоборот, сложнее.

[vedomir_li]

Ну чтение кода это гораздо более важная вещь чем написание, особенно когда он чужой, старый и его надо править. )))