m
700 -> 770
(kód skriptu, dodatečně i s komentářem ;-), pokud by bylo ještě někdy potřeba) |
m (700 -> 770) |
||
Generování vnitřku obsahové tabulky skriptem v [[w:Perl|Perlu]]; šlo by to i jedním printem, ale za cenu méně přehledného zápisu.
<source lang="perl">
for ($i=1; $i<=
print "|" if $i % 10 != 1; # všechny buňky kromě první začínají dvěma místo jedním svislítkem
print "| [[/$i.|$i.]] ";
|