User:TaxonBot/exe1.tcl

} $sei {}] set sei [split $sei =] set ei2 [string trim [lindex $sei 1]] if {$ei2 == {}} { lappend mei \[\[$ei\]\] } } } } set tei [join $mei "\n# "] puts [edit user:Kopiersperre/Proteine_ohne_PDB {Liste von Proteinen ohne PDB} "# $tei"]

exit

set catlemma {Animated film stubs} set catns 14 set lcat14 [format Template:%s $catlemma] lassign {0 1} olenlcat14 lenlcat14 while {$lenlcat14 != $olenlcat14} {

1. if {$lenlcat14 == $olenlcat14} {break}

set olenlcat14 $lenlcat14 set lcat14 [split $lcat14] foreach cat14 [join $lcat14] {lappend lcat14 [sqlcat $cat14 14]} set lcat14 [lsort -unique [join $lcat14]] set lenlcat14 [llength $lcat14] }

1. lremove lcat14 $catlemma

foreach cat14 $lcat14 {lappend lcat [sqlcat $cat14 $catns]} puts [lsort -unique [join $lcat]]:[llength [lsort -unique [join $lcat]]]

exit

1. set revc [mysqlsel $db "select count(*) from revision join page on rev_page = page_id where page_title = \"[join $src _]\" and page_namespace = 0" -list]

1. puts [mysqlsel $db "select page_title from page, categorylinks where page_id = cl_from and cl_type = 'subcat' and cl_to = 'Mineralogie';" -list]

1. puts [mysqlsel $db "select * from page where page_title = 'ABC';;" -list]

set data [mysqlsel $db "select page_title from page, categorylinks where page_id = cl_from and cl_to = 'Stage_actors' and page_namespace = 14 ;" -list] puts $data\n[llength $data]

</source> -->