Úr Wikipediu, frjálsa alfræðiritinu
#!/usr/bin/env perl
@data = <DATA>;
for ($i=0;$i<$#data;++$i) {
($nafn, $tala, $takn) = split /:/, $data[$i];
chomp($takn);
print "| [[$nafn]] || $takn || $tala \n|-\n"
}
__DATA__
Aktín:89:Ac
Ameríkín:95:Am
Antimon:51:Sb
Argon:18:Ar
Arsen:33:As
Astat:85:At
Ál:13:Al
Barín:56:Ba
Berkelín:97:Bk
Beryllín:4:Be
Bismút:83:Bi
Blý:82:Pb
Bohrín:107:Bh
Bór:5:B
Brennisteinn:16:S
Bróm:35:Br
Darmstadtín:110:Ds
Dubnín:105:Db
Dysprósín:66:Dy
Einsteinín:99:Es
Erbín:68:Er
Evrópín:63:Eu
Fermín:100:Fm
Flúor:9:F
Fosfór:15:P
Fransín:87:Fr
Gadólín:64:Gd
Gallín:31:Ga
German:32:Ge
Gull:79:Au
Hafnín:72:Hf
Hassín:108:Hs
Helín:2:He
Hólmín:67:Ho
Indín:49:In
Iridín:77:Ir
Járn:26:Fe
Joð:53:I
Kadmín:48:Cd
Kalifornín:98:Cf
Kalín:19:K
Kalsín:20:Ca
Kísill:14:Si
Klór:17:Cl
Kolefni:6:C
Kopar:29:Cu
Kóbolt:27:Co
Króm:24:Cr
Krypton:36:Kr
Kúrín:96:Cm
Kvikasilfur:80:Hg
Lantan:57:La
Lawrensín:103:Lr
Liþín:3:Li
Lútetín:71:Lu
Magnesín:12:Mg
Mangan:25:Mn
Meitnerín:109:Mt
Mendelevín:101:Md
Mólýbden:42:Mo
Natrín:11:Na
Neon:10:Ne
Neódým:60:Nd
Neptúnín:93:Np
Nikkel:28:Ni
Nitur:7:N
Níóbín:41:Nb
Nóbelín:102:No
Osmín:76:Os
Palladín:46:Pd
Platína:78:Pt
Plúton:94:Pu
Pólon:84:Po
Praseódým:59:Pr
Prómetín:61:Pm
Prótaktín:91:Pa
Radín:88:Ra
Radon:86:Rn
Reníum:75:Re
Ródín:45:Rh
Rutherfordín:104:Rf
Rúbidín:37:Rb
Rúþen:44:Ru
Samarín:62:Sm
Seborgín:106:Sg
Selen:34:Se
Serín:58:Ce
Sesín:55:Cs
Silfur:47:Ag
Sink:30:Zn
Sirkon:40:Zr
Skandín:21:Sc
Strontín:38:Sr
Súrefni:8:O
Tantal:73:Ta
Teknetín:43:Tc
Tellúr:52:Te
Terbín:65:Tb
Tin:50:Sn
Títan:22:Ti
Túlín:69:Tm
Ununbín:112:Uub
Ununhexín:116:Uuh
Ununoctín:118:Uuo
Ununpentín:115:Uup
Ununquadín:114:Uuq
Ununseptín:117:Uus
Ununtrín:113:Uut
Unununín:111:Uuu
Úran:92:U
Vanadín:23:V
Vetni:1:H
Volfram:74:W
Xenon:54:Xe
Ytterbín:70:Yb
Yttrín:39:Y
Þallín:81:Tl
Þórín:90:Th
