perl -lane 'undef $h{ $F[0] }[ $_ - 1 ]{ $F[$_] } for 1,2
}{
for my $k (keys %h) {
print join " ", $k, map scalar keys $_, @{ $h{$k} }
}' < input
По сути, вы создаете такой хеш:
'apple' => [
{
'abc' => undef,
'xyz' => undef,
'qrs' => undef
},
{
'jkl' => undef,
'xyz' => undef
}
],
'banana' => [
{
'abcdefg' => undef,
'lmnop' => undef,
'lmnopq' => undef,
'abc' => undef
},
{
'lmno' => undef,
'pqrs' => undef,
'tuv' => undef,
'jkl' => undef,
'xyz' => undef
}
],
'cucumber' => [
{
'abcd' => undef,
'abc' => undef
},
{
'lmno' => undef,
'jkl' => undef,
'xyz' => undef
}
]
А затем просто подсчитываете ключи для каждого внутреннего хеша.
Поскольку ручное разбиение не помогло, я выбрал автоматическое разбиение.
Раздел EFI был автоматически установлен как загрузочный, я удалил раздел ext4 /home, добавил новый раздел ext4 /opt и btrfs /home.
Кажется, сейчас все идет хорошо..