FreeBSD: управление вентиляторами на материнской плате tyan с датчиками w83793-i2c

Perl приходит на помощь!

Вам нужен словарь, то есть файл, в котором по одному слову в строке. В моей системе он существует как / var / lib / dict / words , я также видел похожие файлы, как / usr / share / dict / british и т. Д.

Сначала , вы помните все слова из словаря. Затем вы читаете введенные строки построчно и пытаетесь добавить символы к слову. Если есть возможность, запомните слово и попытайтесь проанализировать оставшуюся часть строки. Если вы дойдете до конца строки, вы выведете строку.

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $words = '/var/lib/dict/words';
my %word;

sub analyze {
    my ($chars, $words, $pos) = @_;
    if ($pos == @$chars) {
        $_[3] = 1;  # Found.
        say "@$words";
        return
    }
    for my $to ($pos .. $#$chars) {
        my $try = join q(), @$chars[ $pos .. $to ];
        if (exists $word{$try}) {
            analyze($chars, [ @$words, $try ], $to + 1, $_[3]);
        }
    }
}


open my $WORDS, '<', $words or die $!;
undef @word{ map { chomp; lc $_ } <$WORDS> };

while (<>) {
    my @chars = map lc, /\S/g;
    analyze(\@chars, [], 0, my $found = 0);
    warn "Unknown: $_" unless $found;
}

На ваш выбор он генерирует 4092 возможных показаний в моей системе.