[О блоге] [наверх] [пред] [2025-04-26 11:02:36+03:00] [da382e7bc79e2984983f3e4a42f713610b103d11]
Темы: [concert][perl]

В какие месяцы и годы чаще всего хожу на концерты?

Недавно сконвертировал список концертов из Texinfo в recfile. Из него
zsh-скриптом генерирую Texinfo. Переписываясь с одним человеком, брякнул
факт о том, что летом мало концертов проходит. И теперь можно моментально
подтвердить это

    $ for m ({01..12}) { echo -n $m ; recsel -P date concerts.rec | grep ....-$m- | wc -l }
    01      18
    02      26
    03      24
    04      17
    05      11
    06       9
    07       9
    08       5
    09      12
    10      15
    11      20
    12      16

Похоже, только сейчас я обратил внимание на то, что whitespace-ы которые
добавляет "wc -l" удобно сочетаются с "echo -n" выводом и вот так красиво
автоматически всё выравнивается.

    $ recsel -C -P date concerts.rec |
    perl -F- -lane '$a{$F[0]}++;
        END { foreach my $y (sort keys %a) { print "$y $a{$y}" } }'
    199x 3
    2004 1
    2005 3
    2006 13
    2007 10
    2008 7
    2009 6
    200x 2
    2010 4
    2012 8
    2013 10
    2014 9
    2015 5
    2016 9
    2017 9
    2018 5
    2019 17
    2020 3
    2021 2
    2022 12
    2023 20
    2024 16
    2025 11

Удивительно, но 2000-ые мне запомнились тем, что я там очень часто ходил
на всякие грайндовые концерты. А статистика говорит, что самый массовый
год был 2023-ий, да и вообще после начала СВО. Сейчас в этом списке есть
и оперы, но их по пальцам посчитать. В общем, неожиданные для меня данные.

    [оставить комментарий]