Адаптер Wi-Fi не найден

perl -lne '
    $h{"$_"}=$h[@h]=$_,next if @ARGV && !exists $h{$_};
    for my $h (@h) { 1+index(s/\h+/ /rg, " $h chromosome ") && $s{$h}++; }
    }{print "$_ $s{$_}" for @h;
' file1 file2

Выход:

Equus caballus 10
Monodelphis domestica 5
Saccharomyces cerevisiae S288c 1

Пояснение:

• -nвызовет Perlчтение файла построчно И не будет печатать, если об этом не попросят.
• -lсделаетRS = ORS = \n

• Задействованные структуры данных:

  • хэш %hбудет иметь ключи как гены, считанные из file1.
  Массив
  • @hбудет иметь гены (не -дупликации )в том порядке, в котором они встретились при чтении из file1.
  • хэш %sдолжен иметь ключи, иметь гены и значения, сколько раз этот ген встречался в file2.

• Работа:

  • @ARGVдолжен иметь содержимое 1 файла при чтении первого аргумента (файл1 )и быть пустым при чтении второго аргумента (файл2 ). Следовательно, первая строка будет применяться только к fileи будет заполнять хэш %hи массив @h.
  • Вторая строка будет применяться к строкам, считанным из file2, и обновит хэш %sдо количества раз, когда конкретный ген был найден в данной строке.
    Функция
    • index(str, substr)вернет позицию подстроки в строке, если она найдена, otw a -1 возвращается в случае ошибки.
  • Третья строка будет запущена после того, как файл2 будет прочитан, и содержимое хэша %sбудет напечатано в соответствии с порядком ключей, заданным массивом @h.