(common.inc.plp)><: my $wordlist = 'wordlist.inc.pl'; 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.inc.pl' or die $@ // $!; sub showimg { my ($name) = @_; my ($img) = $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/\?$//; if ($img and -e ($img = "data/word/$img.jpg")) { my $alt = -l $img && readlink($img) =~ s/\.jpg$//r; if ($alt) { $name .= " ($alt)"; } else { $alt = $name; } $name = "