Проблемы с импульсным звуком, аналоговый выход не отображается

Мы можем сделать это, используя режим абзаца из Perl, в котором мы читаем фрагменты файлов размером с абзац в виде записей и создаем хеш-ключи с идентификаторами и значениями по времени. В конце файла мы сортируем числа в обратном порядке по затраченному времени, а затем печатаем желаемое сообщение.

$ perl -ln -00 -e '
    %h = (%h, /^Req_id=(\d+)\n.*^Time_taken=(\d+)/ms)}{
    print "The below IDs took more than expected:" if scalar keys %h;
    print join " ", "Req ID:", "$_,", "Time taken", $h{$_}, "sec"
       for (sort { $h{$b} <=> $h{$a}  } keys %h)[0..2];
' input.file

Выход:

The below IDs took more than expected:
Req ID: 3456, Time taken 200 sec
Req ID: 3001, Time taken 15 sec
Req ID: 1234, Time taken 10 sec