Skip to content

Instantly share code, notes, and snippets.

@mrallen1

mrallen1/pro.pl

Created Aug 1, 2018
Embed
What would you like to do?
Russian personal pronouns
#!/usr/bin/env perl
use 5.014;
use utf8;
use Text::CSV qw(csv);
use List::Util qw(shuffle pairs);
use List::MoreUtils qw(zip);
my $pn = {
я => [qw(меня мне меня мной мне)],
мы => [qw(нас нам нас нами нас)],
ты => [qw(тебя тебе тебя тобой тебе)],
вы => [qw(вас вам вас вами вас)],
он => [qw(его ему его им нём)],
оно => [qw(его ему его им нём)],
она => [qw(её ей её ей ней)],
они => [qw(их им их ими них)]
};
my @cases = qw(gen dat acc inst prep);
my @out;
for my $nom ( keys %{ $pn } ) {
for my $p ( pairs (zip @cases, @{ $pn->{$nom} }) ) {
my ($c, $w) = @{ $p };
push @out, [ qq|$nom ($c)|, qq|$w| ];
}
}
my @rout = shuffle @out;
csv(in => \@rout, encoding => "UTF-8", out => "pp.csv");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment