(common.inc.plp)><: my $wordlist = 'wordlist.eng.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 => <<'EOT', EOT }); :>
Under construction. Zie ook dieren.
<: my $table = do $wordlist or die $@ // $!; sub showimg { my ($name) = @_; my ($imgname) = $name =~ /^([\w -]+)/; $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)//gx; $name =~ s{/(.*)}{ ($1)}g; my $hidden = $name =~ s/\?$//; my $alt = $name; $name = "$name" if $name =~ s/\?$//; $name = "