This script generates the mult-mesh field template for Wikipedia's Infobox_disease

gistfile1.txt

# This script generates the mult-mesh field template for Wikipedia's Infobox_disease

print "| label8     = [[Medical Subject Headings|MeSH]]\n";
print "| data8      = ";
print "{{#if:{{{MeshID|}}}{{{MeSH|}}}{{{MeSH1|}}}";
print   "|{{mesh2|{{{MeshID|{{{MeSH|{{{MeSH1}}}}}}}}}";
print           "|year={{{MeshYear|{{{MeshYear1|{{CURRENTYEAR}}}}}}}}}}}}";

my $startm = "{{{MeshID|}}}{{{MeSH|}}}{{{MeSH1|}}}";
my $starty = "{{{MeshYear|{{{MeshYear1|}}}}}}";

for (my $i = 2; $i < 10; ++$i) {
    print "{{#if:{{{MeSH$i|}}}|";
      print "{{#if:";
        print $startm;
        for (my $j = 2; $j < $i; ++$j) {
            print "{{{MeSH$j|}}}";
        }
      print "|,}}";
      print " {{mesh2|{{{MeSH$i|}}}|year={{{MeshYear$i|{{CURRENTYEAR}}}}}}}";
    print "}}";
}