User talk:Nichalp/infobox

#!/usr/local/bin/perl


open(LYST,">list.txt") or die "Could not write file.\n";
        
for($count=1;$count<=70;$count++) 
{

$iter="|-\n| {{#if: {{{hasc$count|}}}|{{{hasc$count}}}}}\n| {{#if: {{{district$count|}}}|{{{district$count}}}}}\n| {{#if: {{{hq$count|}}}|{{{hq$count}}}}}\n| {{#if: {{{pop$count|}}}|{{{pop$count}}}}}\n| {{#if: {{{areakm$count|}}}|{{{areakm$count}}}}}\n| {{#if: {{{areakm$count|}}}|{{#expr: (({{{areakm$count|}}}/1.609344) round 0)}}}}\n| {{#if: {{{areakm$count|}}}|{{#if: {{{pop$count|}}}|{{#expr: (({{{pop$count}}} / {{{areakm$count}}}) round 0)}}}}}}\n| {{#if: {{{areakm$count|}}}|{{#if: {{{pop$count|}}}|{{#expr: (({{{pop$count}}} * 1.609344 / {{{areakm$count}}}) round 0)}}}}}}\n";
print LYST $iter;

}
close (LYST);