(common.inc.plp)><: my $wordlist = "data/wordlist.en.inc.pl"; my $limit = $get{v} // (exists $get{v} ? 4 : 3); Html({ title => 'words cheat sheet', version => '1.0', description => "Visual words", keywords => [qw' language '], data => [$wordlist], raw => (exists $get{q} && <<'EOT') EOT . <<'EOT', EOT }); if (exists $get{debug}) { say ''; } :>
Under construction. Zie ook dieren. Omit translations to test.
<: my $table = do $wordlist or die $@ // $!; sub showimg { my ($id, $name) = @_; my ($imgname) = $name =~ m{^([^/]+)}; $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)//gx; ($name, my @morenames) = split m{/}, $name; $name =~ s{\( ([^/]+) \)}{$1}x; $name .= " ($_)" for @morenames; my $hidden = $name =~ s/\?$//; $name = "$name" if $name =~ s/\?$//; $name = "