Acme-MetaSyntactic-Themes

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/nobel_prize.pm  view on Meta::CPAN

 2022   Literature  Annie Ernaux
 2022   Medicine    Svante Pääbo
 2022   Peace       Ales Bialiatski
 2022   Peace       Memorial
 2022   Peace       Center for Civil Liberties
 2022   Physics     Alain Aspect
 2022   Physics     John F. Clauser
 2022   Physics     Anton Zeilinger

 2023   Chemistry   Moungi G. Bawendi
 2023   Chemistry   Louis E. Brus
 2023   Chemistry   Aleksey Yekimov
 2023   Economics   Claudia Goldin
 2023   Literature  Jon Fosse
 2023   Medicine    Katalin Karikó
 2023   Medicine    Drew Weissman
 2023   Peace       Narges Mohammadi
 2023   Physics     Pierre Agostini
 2023   Physics     Ferenc Krausz
 2023   Physics     Anne L'Huillier

 2024   Chemistry   David Baker
 2024   Chemistry   Demis Hassabis
 2024   Chemistry   John Jumper
 2024   Economics   Daron Acemoglu
 2024   Economics   Simon Henry Roberts Johnson
 2024   Economics   James A. Robinson
 2024   Literature  Han Kang
 2024   Medicine    Victor Ambros
 2024   Medicine    Gary Ruvkun
 2024   Peace       Nihon Hidankyo
 2024   Physics     John J. Hopfield
 2024   Physics     Geoffrey Hinton

 2025   Chemistry   Susumu Kitagawa
 2025   Chemistry   Richard Robson
 2025   Chemistry   Omar M. Yaghi
 2025   Economics   Joel Mokyr
 2025   Economics   Philippe Aghion
 2025   Economics   Peter Howitt
 2025   Literature  László Krasznahorkai
 2025   Medicine    Mary E. Brunkow
 2025   Medicine    Frederick J. Ramsdell
 2025   Medicine    Shimon Sakaguchi
 2025   Peace       Maria Corina Machado
 2025   Physics     John Clarke
 2025   Physics     Michel H. Devoret
 2025   Physics     John M. Martinis

=cut

        next unless $line =~ /^\s+(\d+)\s+(\w+)\s+(.*)/;
        my ($year, $category, $name) = ($1, lc $2, $3);
        $name = Acme::MetaSyntactic::RemoteList::tr_nonword( Acme::MetaSyntactic::RemoteList::tr_accent( $name ) );
        $name =~ s/__+/_/g;
        $name =~ s/^_//g;
        $name =~ s/_$//g;
        $data->{names}{$category}{$year} .= "$name ";
        $data->{names}{$year}{$category} .= "$name ";
    }
    $data->{default} = ':all';

    __PACKAGE__->init( $data );
}

1;

__END__

=pod

The official website for the Nobel Prize is L<http://nobelprize.org/>.

=head1 CONTRIBUTOR

Abigail

=head1 CHANGES

=over 4

=item *

2026-01-12 - v1.010

Updated with the Nobel prizes for 2021, 2022, 2023, 2024 and 2025, and
published in Acme-MetaSyntactic-Themes version 1.056.

=item *

2021-04-30 - v1.009

Updated with the Nobel prizes for 2020, and
published in Acme-MetaSyntactic-Themes version 1.055.

=item *

2019-10-28 - v1.008

Updated with the Nobel prizes for 2019, and
published in Acme-MetaSyntactic-Themes version 1.054.

=item *

2018-10-29 - v1.007

Updated with the Nobel prizes for 2018, and
published in Acme-MetaSyntactic-Themes version 1.052.

=item *

2017-11-13 - v1.006

Updated with the Nobel prizes for 2017, and
published in Acme-MetaSyntactic-Themes version 1.051.

=item *

2017-06-12 - v1.005

Updated with the Nobel prizes for 2016, and



( run in 2.141 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )