Это довольно простой -перл-скрипт:
#!/usr/bin/perl -w
use strict;
my %words = ();
while (<>) {
chomp;
my %linewords = ();
map { $linewords{$_}=1 } split / /;
foreach my $word (keys %linewords) {
$words{$word}++;
}
}
foreach my $word (sort keys %words) {
print "$word:$words{$word}\n";
}
Основная идея состоит в том, чтобы зациклить ввод; для каждой строки, разбить ее на слова, затем сохранить эти слова в хэш (ассоциативный массив ), чтобы удалить любые дубликаты, затем перебрать этот массив слов и добавить единицу к общему счетчику для этого слова. В конце сообщите о словах и их количестве.
Повторив процедуру на другой машине,Я понял, что в Synaptic Manager я выбрал и установил только метапакет xfce4 -и принял другие пакеты, «строго необходимые» для этого.
Я не осознавал, что мне нужно явно выбрать для установки каждый компонент для Xfce , например Меню приложений .
Таким образом, решение состоит в том, чтобы снова запустить диспетчер пакетов Synaptic и установить все остальные компоненты Xfce.