Մասնակից:Nimeru23/Ավտոմատացնող գործիքներ

Վիքիպեդիայից՝ ազատ հանրագիտարանից
Jump to navigation Jump to search

Իմ կողմից ստեղծված ավտոմատացնող խմբագրումների ծրագրեր Tcl լեզվով[խմբագրել | խմբագրել կոդը]

wiki py[խմբագրել | խմբագրել կոդը]

python ./login.py python pagefromfile.py -notitle -start:xxxx -end:yyyy -file:out.txt

python replace.py -cat:Ալաշկերտի_գավառի_բնակավայրեր " = Ալաշկերտի գավառ" " = Ալաշկերտի գավառակ" "Ալաշկերտի գավառ" "Ալաշկերտի գավառակ"

python replace.py -cat:Արմավիրի_մարզի_հուշարձանների_ցանկեր "ԵԿԵՂԵՑԻ" "Եկեղեցի" "ՈՐՄՆԱՆԿԱՐՆԵՐ" "Որմնանկարներ" "ՈՐՄՆԱՆԿԱՐ" "Որմնանկար" "ՀՈՒՇԱՐՁԱՆ" "Հուշարձան" "ՄԱՏՈՒՌ" "Մատուռ" "ՎԱՆՔ" "Վանք" -always

python replace.py -cat:Գորիցիա_գավառի_բնակավայրեր "Ֆրիուլի Վենեցիա Ջուլյա" "Ֆրիուլի Վենետիկ Ջուլիա" -always

Բնակչության աճի աղյուսակ[խմբագրել | խմբագրել կոդը]

proc pop {a} {
	regsub -all {\-} $a " " a
	regsub -all {[^0-9\ ]} $a "" b
	set k [llength $b]
set k1 [expr $k / 2]
set l0 ""
set l1 ""
for { set i 0 } { $i < $k } { incr i } {
set c [expr $i % 2]
if { $c == 0 } {
	lappend l0 [lindex $b $i]
} else {
	lappend l1 [lindex $b $i]
}
}
puts "\{| class=\"wikitable\""
puts "! Տարի"
foreach j $l0 {
puts "| $j"
}
puts "|-"
puts "! Բնակիչ"
foreach j $l1 {
puts "| $j"
}
puts "|-"
puts "|\}"
}

Բնակչության աճի աղյուսակ Իտալիա[խմբագրել | խմբագրել կոդը]

proc jox {h l} {
puts "== Ժողովրդագրություն =="
puts "Բնակչության աճը"
puts "<timeline>"
puts "Colors="
puts " id:lightgrey value:gray(0.9)"
puts " id:darkgrey value:gray(0.7)"
puts " id:sfondo value:rgb(1,1,1)"
puts " id:barra value:rgb(0.6,0.8,0.6)"
puts "ImageSize = width:455 height:373"
puts "PlotArea = left:50 bottom:50 top:30 right:30"
puts "DateFormat = x.y"
puts "Period = from:0 till:$h"
puts "TimeAxis = orientation:vertical"
puts "AlignBars = justify"
puts "ScaleMajor = gridcolor:darkgrey increment:500 start:0"
puts "ScaleMinor = gridcolor:lightgrey increment:100 start:0"
puts "BackgroundColors = canvas:sfondo"
puts "BarData="
puts " bar:1861 text:1861"
puts " bar:1871 text:1871"
puts " bar:1881 text:1881"
puts " bar:1901 text:1901"
puts " bar:1911 text:1911"
puts " bar:1921 text:1921"
puts " bar:1931 text:1931"
puts " bar:1936 text:1936"
puts " bar:1951 text:1951"
puts " bar:1961 text:1961"
puts " bar:1971 text:1971"
puts " bar:1981 text:1981"
puts " bar:1991 text:1991"
puts " bar:2001 text:2001"
puts " bar:2011 text:2011"
puts "PlotData="
puts " color:barra width:20 align:left"
puts " bar:1861 from:0 till: [lindex $l 0]"
puts " bar:1871 from:0 till: [lindex $l 1]"
puts " bar:1881 from:0 till: [lindex $l 2]"
puts " bar:1901 from:0 till: [lindex $l 3]"
puts " bar:1911 from:0 till: [lindex $l 4]"
puts " bar:1921 from:0 till: [lindex $l 5]"
puts " bar:1931 from:0 till: [lindex $l 6]"
puts " bar:1936 from:0 till: [lindex $l 7]"
puts " bar:1951 from:0 till: [lindex $l 8]"
puts " bar:1961 from:0 till: [lindex $l 9]"
puts " bar:1971 from:0 till: [lindex $l 10]"
puts " bar:1981 from:0 till: [lindex $l 11]"
puts " bar:1991 from:0 till: [lindex $l 12]"
puts " bar:2001 from:0 till: [lindex $l 13]"
puts " bar:2011 from:0 till: [lindex $l 14]"
puts "PlotData="
puts " bar:1861 at: [lindex $l 0] fontsize:S text: [lindex $l 0] shift:(-8,5)"
puts " bar:1871 at: [lindex $l 1] fontsize:S text: [lindex $l 1] shift:(-10,5)"
puts " bar:1881 at: [lindex $l 2] fontsize:S text: [lindex $l 2] shift:(-10,5)"
puts " bar:1901 at: [lindex $l 3] fontsize:S text: [lindex $l 3] shift:(-10,5)"
puts " bar:1911 at: [lindex $l 4] fontsize:S text: [lindex $l 4] shift:(-10,5)"
puts " bar:1921 at: [lindex $l 5] fontsize:S text: [lindex $l 5] shift:(-10,5)"
puts " bar:1931 at: [lindex $l 6] fontsize:S text: [lindex $l 6] shift:(-10,5)"
puts " bar:1936 at: [lindex $l 7] fontsize:S text: [lindex $l 7] shift:(-10,5)"
puts " bar:1951 at: [lindex $l 8] fontsize:S text: [lindex $l 8] shift:(-10,5)"
puts " bar:1961 at: [lindex $l 9] fontsize:S text: [lindex $l 9] shift:(-10,5)"
puts " bar:1971 at: [lindex $l 10] fontsize:S text: [lindex $l 10] shift:(-10,5)"
puts " bar:1981 at: [lindex $l 11] fontsize:S text: [lindex $l 11] shift:(-10,5)"
puts " bar:1991 at: [lindex $l 12] fontsize:S text: [lindex $l 12] shift:(-10,5)"
puts " bar:2001 at: [lindex $l 13] fontsize:S text: [lindex $l 13] shift:(-10,5)"
puts " bar:2011 at: [lindex $l 14] fontsize:S text: [lindex $l 14] shift:(-10,5)"
puts "TextData="
puts " fontsize:S pos:(20,20)"
puts " text:Ըսը ISTAT-ի"
puts "</timeline>"
}

Բնակչության աճի աղյուսակ Իտալիա (Իտալերեն Վիքիից)[խմբագրել | խմբագրել կոդը]

proc jox {k} {

set p1 0
set p2 0
set p3 0
set p4 0
set p5 0
set p6 0
regexp {popmax = ([0-9]+)} $k a h
regexp {p1 = ([0-9]+)} $k a p1
regexp {p2 = ([0-9]+)} $k a p2
regexp {p3 = ([0-9]+)} $k a p3
regexp {p4 = ([0-9]+)} $k a p4
regexp {p5 = ([0-9]+)} $k a p5
regexp {p6 = ([0-9]+)} $k a p6
regexp {p7 = ([0-9]+)} $k a p7
regexp {p8 = ([0-9]+)} $k a p8
regexp {p9 = ([0-9]+)} $k a p9
regexp {p10 = ([0-9]+)} $k a p10
regexp {p11 = ([0-9]+)} $k a p11
regexp {p12 = ([0-9]+)} $k a p12
regexp {p13 = ([0-9]+)} $k a p13
regexp {p14 = ([0-9]+)} $k a p14
regexp {p15 = ([0-9]+)} $k a p15

regexp {a1 = ([0-9]+)} $k a a1
regexp {a2 = ([0-9]+)} $k a a2
regexp {a3 = ([0-9]+)} $k a a3
regexp {a4 = ([0-9]+)} $k a a4
regexp {a5 = ([0-9]+)} $k a a5
regexp {a6 = ([0-9]+)} $k a a6
regexp {a7 = ([0-9]+)} $k a a7
regexp {a8 = ([0-9]+)} $k a a8
regexp {a9 = ([0-9]+)} $k a a9
regexp {a10 = ([0-9]+)} $k a a10
regexp {a11 = ([0-9]+)} $k a a11
regexp {a12 = ([0-9]+)} $k a a12
regexp {a13 = ([0-9]+)} $k a a13
regexp {a14 = ([0-9]+)} $k a a14
regexp {a15 = ([0-9]+)} $k a a15

regexp {passo1 = ([0-9]+)} $k a r1
regexp {passo2 = ([0-9]+)} $k a r2

puts "== Ժողովրդագրություն =="
puts "Բնակչության աճը"
puts "<timeline>"
puts "Colors="
puts " id:lightgrey value:gray(0.9)"
puts " id:darkgrey value:gray(0.7)"
puts " id:sfondo value:rgb(1,1,1)"
puts " id:barra value:rgb(0.6,0.8,0.6)"
puts "ImageSize = width:455 height:373"
puts "PlotArea = left:50 bottom:50 top:30 right:30"
puts "DateFormat = x.y"
puts "Period = from:0 till:$h"
puts "TimeAxis = orientation:vertical"
puts "AlignBars = justify"
puts "ScaleMajor = gridcolor:darkgrey increment:$r1 start:0"
puts "ScaleMinor = gridcolor:lightgrey increment:$r2 start:0"
puts "BackgroundColors = canvas:sfondo"
puts "BarData="
if {$p1 != 0} {
puts " bar:$a1 text:$a1"
}
puts " bar:$a2 text:$a2"
puts " bar:$a3 text:$a3"
puts " bar:$a4 text:$a4"
puts " bar:$a5 text:$a5"
puts " bar:$a6 text:$a6"
puts " bar:$a7 text:$a7"
puts " bar:$a8 text:$a8"
puts " bar:$a9 text:$a9"
puts " bar:$a10 text:$a10"
puts " bar:$a11 text:$a11"
puts " bar:$a12 text:$a12"
puts " bar:$a13 text:$a13"
puts " bar:$a14 text:$a14"
puts " bar:$a15 text:$a15"
puts "PlotData="
puts " color:barra width:20 align:left"
if {$p1 != 0} {
puts " bar:$a1 from:0 till: $p1"
}
puts " bar:$a2 from:0 till: $p2"
puts " bar:$a3 from:0 till: $p3"
puts " bar:$a4 from:0 till: $p4"
puts " bar:$a5 from:0 till: $p5"
puts " bar:$a6 from:0 till: $p6"
puts " bar:$a7 from:0 till: $p7"
puts " bar:$a8 from:0 till: $p8"
puts " bar:$a9 from:0 till: $p9"
puts " bar:$a10 from:0 till: $p10"
puts " bar:$a11 from:0 till: $p11"
puts " bar:$a12 from:0 till: $p12"
puts " bar:$a13 from:0 till: $p13"
puts " bar:$a14 from:0 till: $p14"
puts " bar:$a15 from:0 till: $p15"
puts "PlotData="
if {$p1 != 0} {
puts " bar:$a1 at: $p1 fontsize:S text: $p1 shift:(-8,5)"
}
puts " bar:$a2 at: $p2 fontsize:S text: $p2 shift:(-10,5)"
puts " bar:$a3 at: $p3 fontsize:S text: $p3 shift:(-10,5)"
puts " bar:$a4 at: $p4 fontsize:S text: $p4 shift:(-10,5)"
puts " bar:$a5 at: $p5 fontsize:S text: $p5 shift:(-10,5)"
puts " bar:$a6 at: $p6 fontsize:S text: $p6 shift:(-10,5)"
puts " bar:$a7 at: $p7 fontsize:S text: $p7 shift:(-10,5)"
puts " bar:$a8 at: $p8 fontsize:S text: $p8 shift:(-10,5)"
puts " bar:$a9 at: $p9 fontsize:S text: $p9 shift:(-10,5)"
puts " bar:$a10 at: $p10 fontsize:S text: $p10 shift:(-10,5)"
puts " bar:$a11 at: $p11 fontsize:S text: $p11 shift:(-10,5)"
puts " bar:$a12 at: $p12 fontsize:S text: $p12 shift:(-10,5)"
puts " bar:$a13 at: $p13 fontsize:S text: $p13 shift:(-10,5)"
puts " bar:$a14 at: $p14 fontsize:S text: $p14 shift:(-10,5)"
puts " bar:$a15 at: $p15 fontsize:S text: $p15 shift:(-10,5)"
puts "TextData="
puts " fontsize:S pos:(20,20)"
puts " text:Ըստ ISTAT-ի տվյալների"
puts "</timeline>"
}

որտեղ k-ն: |popmax = 5500
|passo1 = 500
|passo2 = 100
|a1 = 1861|p1 = 2935
|a2 = 1871|p2 = 3113
|a3 = 1881|p3 = 3022
|a4 = 1901|p4 = 3137
|a5 = 1911|p5 = 3867
|a6 = 1921|p6 = 3791
|a7 = 1931|p7 = 3743
|a8 = 1936|p8 = 3599
|a9 = 1951|p9 = 4027
|a10 = 1961|p10 = 4167
|a11 = 1971|p11 = 4007
|a12 = 1981|p12 = 4063
|a13 = 1991|p13 = 4954
|a14 = 2001|p14 = 5238
|a15 = 2011|p15 = 5407

Բնակչության աճի աղյուսակ Ֆրանսիա (Ֆրանսերեն Վիքիից)[խմբագրել | խմբագրել կոդը]

proc pp {k} {

set txt ""
set k [regsub -all {\s+} $k ""]

set p31 "-"
set p32 "-"
set p33 "-"
set p34 "-"
set p35 "-"
set p36 "-"
set p37 "-"
set p38 "-"
set p39 "-"
set p40 "-"
set p41 "-"
set p42 "-"
set p43 "-"
set p44 "-"
set p45 "-"
set a31 "-"
set a32 "-"
set a33 "-"
set a34 "-"
set a35 "-"
set a36 "-"
set a37 "-"
set a38 "-"
set a39 "-"
set a40 "-"
set a41 "-"
set a42 "-"
set a43 "-"
set a44 "-"
set a45 "-"
set s3 ""

regexp {source1=([^|]+)} $k a s1
regexp {source2=([^|]+)} $k a s2
regexp {source3=([^|]+)} $k a s3

regexp {pop1=([0-9]+)} $k a p1
regexp {pop2=([0-9]+)} $k a p2
regexp {pop3=([0-9]+)} $k a p3
regexp {pop4=([0-9]+)} $k a p4
regexp {pop5=([0-9]+)} $k a p5
regexp {pop6=([0-9]+)} $k a p6
regexp {pop7=([0-9]+)} $k a p7
regexp {pop8=([0-9]+)} $k a p8
regexp {pop9=([0-9]+)} $k a p9
regexp {pop10=([0-9]+)} $k a p10
regexp {pop11=([0-9]+)} $k a p11
regexp {pop12=([0-9]+)} $k a p12
regexp {pop13=([0-9]+)} $k a p13
regexp {pop14=([0-9]+)} $k a p14
regexp {pop15=([0-9]+)} $k a p15
regexp {pop16=([0-9]+)} $k a p16
regexp {pop17=([0-9]+)} $k a p17
regexp {pop18=([0-9]+)} $k a p18
regexp {pop19=([0-9]+)} $k a p19
regexp {pop20=([0-9]+)} $k a p20
regexp {pop21=([0-9]+)} $k a p21
regexp {pop22=([0-9]+)} $k a p22
regexp {pop23=([0-9]+)} $k a p23
regexp {pop24=([0-9]+)} $k a p24
regexp {pop25=([0-9]+)} $k a p25
regexp {pop26=([0-9]+)} $k a p26
regexp {pop27=([0-9]+)} $k a p27
regexp {pop28=([0-9]+)} $k a p28
regexp {pop29=([0-9]+)} $k a p29
regexp {pop30=([0-9]+)} $k a p30
regexp {pop31=([0-9]+)} $k a p31
regexp {pop32=([0-9]+)} $k a p32
regexp {pop33=([0-9]+)} $k a p33
regexp {pop34=([0-9]+)} $k a p34
regexp {pop35=([0-9]+)} $k a p35
regexp {pop36=([0-9]+)} $k a p36
regexp {pop37=([0-9]+)} $k a p37
regexp {pop38=([0-9]+)} $k a p38
regexp {pop39=([0-9]+)} $k a p39
regexp {pop40=([0-9]+)} $k a p40
regexp {pop41=([0-9]+)} $k a p41
regexp {pop42=([0-9]+)} $k a p42
regexp {pop43=([0-9]+)} $k a p43
regexp {pop44=([0-9]+)} $k a p44
regexp {pop45=([0-9]+)} $k a p45

regexp {an1=([0-9]+)} $k a a1
regexp {an2=([0-9]+)} $k a a2
regexp {an3=([0-9]+)} $k a a3
regexp {an4=([0-9]+)} $k a a4
regexp {an5=([0-9]+)} $k a a5
regexp {an6=([0-9]+)} $k a a6
regexp {an7=([0-9]+)} $k a a7
regexp {an8=([0-9]+)} $k a a8
regexp {an9=([0-9]+)} $k a a9
regexp {an10=([0-9]+)} $k a a10
regexp {an11=([0-9]+)} $k a a11
regexp {an12=([0-9]+)} $k a a12
regexp {an13=([0-9]+)} $k a a13
regexp {an14=([0-9]+)} $k a a14
regexp {an15=([0-9]+)} $k a a15
regexp {an16=([0-9]+)} $k a a16
regexp {an17=([0-9]+)} $k a a17
regexp {an18=([0-9]+)} $k a a18
regexp {an19=([0-9]+)} $k a a19
regexp {an20=([0-9]+)} $k a a20
regexp {an21=([0-9]+)} $k a a21
regexp {an22=([0-9]+)} $k a a22
regexp {an23=([0-9]+)} $k a a23
regexp {an24=([0-9]+)} $k a a24
regexp {an25=([0-9]+)} $k a a25
regexp {an26=([0-9]+)} $k a a26
regexp {an27=([0-9]+)} $k a a27
regexp {an28=([0-9]+)} $k a a28
regexp {an29=([0-9]+)} $k a a29
regexp {an30=([0-9]+)} $k a a30
regexp {an31=([0-9]+)} $k a a31
regexp {an32=([0-9]+)} $k a a32
regexp {an33=([0-9]+)} $k a a33
regexp {an34=([0-9]+)} $k a a34
regexp {an35=([0-9]+)} $k a a35
regexp {an36=([0-9]+)} $k a a36
regexp {an37=([0-9]+)} $k a a37
regexp {an38=([0-9]+)} $k a a38
regexp {an39=([0-9]+)} $k a a39
regexp {an40=([0-9]+)} $k a a40
regexp {an41=([0-9]+)} $k a a41
regexp {an42=([0-9]+)} $k a a42
regexp {an43=([0-9]+)} $k a a43
regexp {an44=([0-9]+)} $k a a44
regexp {an45=([0-9]+)} $k a a45

append txt "<center>\'\'\'Բնակչության քանակը ըստ տարիների\'\'\'\n"
append txt "\n"
append txt "\{\| class=\"wikitable centre\" style=\"table-layout:fixed;width:48em;text-align:center;margin-top: 6px; margin-bottom: 10px;font-size:90%;line-height:120%;\"\n"
append txt "! scope=col style=\"background-color:#DFD;\" \| $a1\n"
append txt "! scope=col style=\"background-color:#DFD;\" \| $a2\n"
append txt "! scope=col style=\"background-color:#DFD;\" \| $a3\n"
append txt "! scope=col style=\"background-color:#DFD;\" \| $a4\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a5\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a6\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a7\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a8\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a9\n"
append txt "\|-\n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p1 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p2 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p3 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p4 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p5 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p6 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p7 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p8 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p9 \n"
append txt "\|\}\n"
#<!------------------------- // Line 2 // -------------------------->
append txt "\n"
append txt "\{| class=\"wikitable centre\" style=\"table-layout:fixed;width:48em;text-align:center;margin-top: 6px; margin-bottom: 10px;font-size:90%;line-height:120%;\"\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a10\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a11\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a12\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a13\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a14\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a15\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a16\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a17\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a18\n"
append txt "\|-\n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p10 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p11 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p12 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p13 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p14 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p15 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p16 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p17 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p18 \n"
append txt "\|\}\n"
#<!------------------------- // Line 3 // -------------------------->
append txt "\n"
append txt "\{| class=\"wikitable centre\" style=\"table-layout:fixed;width:48em;text-align:center;margin-top: 6px; margin-bottom: 10px;font-size:90%;line-height:120%;\"\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a19\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a20\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a21\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a22\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a23\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a24\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a25\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a26\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a27\n"
append txt "\|-\n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p19 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p20 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p21 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p22 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p23 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p24 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p25 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p26 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p27 \n"
append txt "\|\}\n"
#<!------------------------- // Line 4 // -------------------------->
append txt "\n"
append txt "\{| class=\"wikitable centre\" style=\"table-layout:fixed;width:48em;text-align:center;margin-top: 6px; margin-bottom: 10px;font-size:90%;line-height:120%;\"\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a28\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a29\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a30\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a31\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a32\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a33\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a34\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a35\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a36\n"
append txt "\|-\n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p28 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p29 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p30 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p31 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p32 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p33 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p34 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p35 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p36 \n"
append txt "\|\}\n"
#<!------------------------- // Line 5 // -------------------------->
append txt "\n"
append txt "\{| class=\"wikitable centre\" style=\"table-layout:fixed;width:48em;text-align:center;margin-top: 6px; margin-bottom: 10px;font-size:90%;line-height:120%;\"\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a37\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a38\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a39\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a40\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a41\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a42\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a43\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a44\n"
append txt "!  scope=col style=\"background-color:#DFD;\" \| $a45\n"
append txt "\|-\n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p37 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p38 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p39 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p40 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p41 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p42 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p43 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p44 \n"
append txt " \| style=\"background-color:#f3fff3;\" \| $p45 \n"
append txt "\|\}\n"
append txt "\n"
append txt "Աղբյուրներ` Ֆրանսիայի սոցիոլոգիական գիտությունների բարձրագույն դպրոցի տվյալներ<ref>$s1</ref><ref>$s2</ref><ref>$s3</ref></center>\n"
return $txt
}

Ֆրանսիայի բնակավայր բազային (Անգլերեն Վիքիից)[խմբագրել | խմբագրել կոդը]

proc jox {k u pp n} {

set demography ""
set k [regsub -all {\s+} $k " "]

set u [regsub -all {\s+} $u " "]
set u [regsub -all "&nbsp;" $u " "]
regexp {\|працездатні=([0-9]+)} $u a all
regexp {\|активні=([0-9]+)} $u a act
regexp {\|неактивні=([0-9]+)} $u a inact
regexp {\|показник активності=([0-9,]+)} $u a per
regexp {\|працювало=([0-9]+)} $u a ashx
regexp {\|працювало чол=([0-9]+)} $u a ashx_txa
regexp {\|працювало жін=([0-9]+)} $u a ashx_kin
regexp {\|безробітні=([0-9]+)} $u a gorc
regexp {\|безробітні чол=([0-9]+)} $u a gorc_txa
regexp {\|безробітні жін=([0-9]+)} $u a gorc_kin
regexp {\|учні=([0-9]+)} $u a usanox
regexp {\|пенсіонери=([0-9]+)} $u a tosh
regexp {\|інші неактивні=([0-9]+)} $u a ayl

regexp {близько ([0-9]+) км на (.*) від \[\[Париж} $u a paris p_dir
regexp {, ([0-9]+) км на (.*) від \[\[Пуатьє} $u a amyen p_amyen
#regsub -all "Клермон-Ферран\\\|Клермон-Феррана\]\]" $u "Клермон-Ферран\]\]а" u
regexp {Пуатьє\]\], ([0-9]+) км на (.*) від \[\[Ангулем} $u a s2 p_s2
#set s2 ""
#set p_s2 ""

regsub -all "південний схід" $p_dir "հարավ-արևելք" p_dir
regsub -all "північний схід" $p_dir "հյուսիս-արևելք" p_dir
regsub -all "північний захід" $p_dir "հյուսիս-արևմուտք" p_dir
regsub -all "південний захід" $p_dir "հարավ-արևմուտք" p_dir
regsub -all "північ" $p_dir "հյուսիս" p_dir
regsub -all "південь" $p_dir "հարավ" p_dir
regsub -all "схід" $p_dir "արևելք" p_dir
regsub -all "захід" $p_dir "արևմուտք" p_dir
regsub -all "південний схід" $p_amyen "հարավ-արևելք" p_amyen
regsub -all "північний схід" $p_amyen "հյուսիս-արևելք" p_amyen
regsub -all "північний захід" $p_amyen "հյուսիս-արևմուտք" p_amyen
regsub -all "південний захід" $p_amyen "հարավ-արևմուտք" p_amyen
regsub -all "північ" $p_amyen "հյուսիս" p_amyen
regsub -all "південь" $p_amyen "հարավ" p_amyen
regsub -all "схід" $p_amyen "արևելք" p_amyen
regsub -all "захід" $p_amyen "արևմուտք" p_amyen
regsub -all "південний схід" $p_s2 "հարավ-արևելք" p_s2
regsub -all "північний схід" $p_s2 "հյուսիս-արևելք" p_s2
regsub -all "північний захід" $p_s2 "հյուսիս-արևմուտք" p_s2
regsub -all "південний захід" $p_s2 "հարավ-արևմուտք" p_s2
regsub -all "північ" $p_s2 "հյուսիս" p_s2
regsub -all "південь" $p_s2 "հարավ" p_s2
regsub -all "схід" $p_s2 "արևելք" p_s2
regsub -all "захід" $p_s2 "արևմուտք" p_s2

set numeration ""
regexp {\|name = ([^ ]+)} $k a name
regexp {\|area km2 = ([0-9\.]+)} $k a surface
regexp {\|population = ([0-9\.]+)} $k a pop
regexp {\|population date = ([0-9\.]+)} $k a numeration
regexp {\|population = ([0-9\.]+)} $k a pop
set b [expr $pop/$surface]
set dens [format "%.2f" $b]
regexp {\|INSEE = ([0-9\.]+)} $k a insee
regexp {\|postal code = ([0-9\.]+)} $k a postal

regexp {Demography ([0-9\ \|=]+)} $k a demography

puts "\{\{Տեղեկաքարտ Բնակավայր"
puts " | կարգավիճակ = Համայնք"
puts " | հայերեն անվանում = $n"
puts " | բնօրինակ անվանում = $name"
puts " | երկիր = Ֆրանսիա"
puts " | երկրի քարտեզի չափ = 300"
puts " | երկրամասի քարտեզի չափ = 300"
puts " | շրջանի քարտեզի չափ = "
puts " | երկրամասի տեսակ = Մարզ"
puts " | երկրամաս = Նոր Ակվիտանիա"
puts " | երկրամասը աղյուսակում = "
puts " | շրջանի տեսակ = Գավառ"
#puts " | շրջան = Կանտալ (գավառ)\{\{!\}\}Կանտալ"
puts " | շրջան = Շարանտ"
puts " | տարածք = $surface"
puts " | կենտրոնի բարձրություն ="
puts " | բնակչություն = $pop"
puts " | մարդահամարի թվական = \[\[$numeration\]\]"
puts " | խտություն = $dens"
puts " | ժամային գոտի =+1 "
puts " | DST =կա"
puts " | փոստային ինդեքս = $postal"
puts " | իդենտիֆիկատորի տեսակ = INSEE"
puts " | թվային իդենտիֆիկատոր = $insee"
puts " | Վիքիպահեստում =  $name"
puts " | կայք = "
puts "\}\}"
puts "\'\'\'$n\'\'\' \(\{\{lang-fr\|$name\}\}\), համայնք \[\[Ֆրանսիա\]\]յի \[\[Նոր Ակվիտանիա\]\] մարզի \[\[Շարանտ\]\] գավառում<ref name=Istat>\{\{cite web|url=http://www.cartesfrance.fr/carte-france-departement/carte-departement-Charente.html#liste-communes-Charente |title=Liste des villes et villages du département de l' Charente |date= |accessdate=2017 հոկտեմբերի 31\}\}</ref>:"
puts ""
puts "Բնակչությունը $numeration թվականի դրությամբ կազմում է $pop մարդ, բնակչության խտությունը` $dens մարդ\/կմ²: Բնակավայրը զբաղեցնում է $surface կմ² տարածք:"
puts ""
puts "== Աշխարհագրություն =="
puts "Գտնվում է \[\[Փարիզ\]\] քաղաքից $paris կմ $p_dir, \[\[Պուատիե\]\] քաղաքից` $amyen կմ $p_amyen, \[\[Անգուլեմ\]\] քաղաքից` $s2 կմ $p_s2:"
#puts "Գտնվում է \[\[Փարիզ\]\] քաղաքից $paris կմ $p_dir, \[\[Կան \(Ֆրանսիա\)\|Կան\]\] քաղաքից` $amyen կմ $p_amyen:"
puts ""
puts "== Բնակչություն =="
puts $pp
puts "== Տնտեսություն =="
puts "2010 թվականին ուներ $all աշխատունակ \(15-64 տարեկան\)  բնակիչ, որոնցից ակտիվ էին $act\-ը, իսկ ոչ ակտիվները` $inact: Ակտիվության ցուցանիշը կազմում է $per %: $act աշխատունակ մարդկանցից աշխատել է $ashx անձ \($ashx_txa տղամարդ և $ashx_kin կին\): Գործազուրկ են եղել $gorc անձ \($gorc_txa տղամարդ և $gorc_kin կին\): $inact անաշխատունակներից $usanox\-ը եղել են աշակերտներ կամ ուսանողներ, $tosh\-ը` թոշակառուներ, իսկ $ayl\-ը չեն աշխատել տարբեր պատճառներով<ref>\{\{cite web| url=http:\/\/www.insee.fr\/fr\/themes\/detail.asp?reg_id=99&ref_id=base-cc-emploi-pop-active-2010| title=Base chiffres clés : emploi - population active 2010| language=ֆրանսերեն| trans_title = Բազային ցուցանիշներ. Աշխատունակությունը և զբաղվածությունը 2010 թվականին | publisher=Ֆրանսիայի տնտեսական տվյալների հետազոտման ինստիտուտ \(INSEE\)| accessdate=15 նոյեմբերի 2013\}\}<\/ref>:"
puts ""
puts "== Տես նաև =="
puts "* \[\[Շարանտ գավառի համայնքների ցանկ\]\]"
puts ""
puts "== Արտաքին հղումներ =="
puts "*\[http://www.insee.fr/en/ INSEE\]"
puts ""
puts "== Ծանոթագրություններ =="
puts "\{\{ծանցանկ\}\}"
puts ""
puts "\{\{Շարանտի գավառ\}\}\{\{Արտաքին հղումներ\}\}"
puts ""
puts "\[\[Կատեգորիա:Ֆրանսիայի բնակավայրեր\]\]"
puts "\[\[Կատեգորիա:Ֆրանսիայի համայնքներ\]\]"
}

Գերմանիայի շրջանների ցանկերի գեներացում[խմբագրել | խմբագրել կոդը]

Պատճենել շրջանի բնակավայրերը և տեքսային խմբագրով ջնջել "]]" և "[[", իսկ բառերի արանքում ապահովել " • " սիմվոլը: Հայկական ցանկը վերագրել հ, իսկ ռուսերենը r փոփոխականին:

set r {Виттельсхофен  
Вольфрамс-Эшенбах  
Вёрниц}

set h {Վիտելսհոֆեն  Վելֆրամս Էշենբախ  Վյորնից}

regsub -all \n $r "" r
regsub -all " • " $r "} {" r1
set r ""
append r \{ $r1 \}

regsub -all " • " $h "} {" h1
set h ""
append h \{ $h1 \}

foreach i $h j $r {
puts "#\[\[$i\]\] օգտվելով \[\[\:ru\: $j\|ru\]\] \(գերմ\)"
}

Իտալիայի շրջանների ցանկերի գեներացում[խմբագրել | խմբագրել կոդը]

regsub -all \n $r "" r
regsub -all " • " $r "} {" r1
set r ""
append r \{ $r1 \}

regsub -all " • " $h "} {" h1
set h ""
append h \{ $h1 \}

foreach i $h j $r {
puts "#\[\[$i\]\] օգտվելով \[\[\:en\: $j\|en\]\]"
}

Ֆրանսիայի շրջանների ցանկերի գեներացում[խմբագրել | խմբագրել կոդը]

proc france_hay { s } {
# Call without proc

regsub -all \n $s " "  a
regsub -all "  " $a " " r
regsub -all "\\-" $r " " a

set h [english_arm $a]

regsub -all \n $r "" r
regsub -all " • " $r "} {" r1
set r ""
append r \{ $r1 \}

regsub -all " • " $h "} {" h1
set h ""
append h \{ $h1 \}

foreach i $h j $r {
regsub -all {\[|\]} $j "" b
puts "#$i օգտվելով \[\[\:en\: $b\|en\]\]"
}

}

Արևմտյան Հայաստանի բնակավայրեր[խմբագրել | խմբագրել կոդը]

#!/usr/bin/tclsh
# l - list of vilage names
# p - province
# v - vilayet name
proc wiki_hay {l p v} {
set f [open "out.txt" w]
 foreach i $l {
 set i0 $i
 set i1 $i
 if { [regexp {(.*)\|(.*)} $i a b c] } {
 set i1 $c
 set i0 $b
 }
 puts $f "xxxx"
 puts $f "'''$i0'''"
 puts $f "\{\{Բնակավայր"
 puts $f "|կարգավիճակ = Գյուղ"
 puts $f "|հայերեն անվանում = "
 puts $f "|բնագիր անվանում = $i1"
 puts $f "|ենթարկում = "
 puts $f "|երկիր = Արևմտյան Հայաստան"
 puts $f "|պատկեր = "
 puts $f "|զինանշան = "
 puts $f "|զինանշանի լայնություն = "
 puts $f "|զինանշանի նկարագրում = "
 puts $f "|դրոշ = "
 puts $f "|դրոշի լայնություն = "
 puts $f "|դրոշի նկարագրում = "
 puts $f "|lat_dir = |lat_deg= |lat_min= |lat_sec="
 puts $f "|lon_dir = |lon_deg= |lon_min= |lon_sec="
 puts $f "|CoordAddon = "
 puts $f "|CoordScale = "
 puts $f "| երկրի քարտեզի չափ = "
 puts $f "| երկրամասի քարտեզի չափ = "
 puts $f "| շրջանի քարտեզի չափ = "
 puts $f "| երկրամասի տեսակ = "
 puts $f "| երկրամաս = $p\ի գավառ"
 puts $f "| երկրամասը աղյուսակում = $p\ի գավառ"
 puts $f "|շրջանի տեսակ = "
 puts $f "|շրջան = "
 puts $f "|շրջանը աղյուսակում = "
 puts $f "|համայնքի տեսակ = "
 puts $f "|համայնք = "
 puts $f "|համայնքը աղյուսակում = "
 puts $f "|երկրի քարտեզ = "
 puts $f "|երկրամասի քարտեզ = "
 puts $f "|շրջանի քարտեզ = "
 puts $f "|ներքին բաժանում = "
 puts $f "|ղեկավարի տեսակ = "
 puts $f "|ղեկավար = "
 puts $f "|հիմնադրման տարին = "
 puts $f "|առաջին հիշատակում = "
 puts $f "|այլ անվանումներ = "
 puts $f "|կարգավիճակ = գյուղ"
 puts $f "|տարածք = "
 puts $f "|բարձրության տեսակ = "
 puts $f "|բնակավայրի կենտրոնի բարձրություն = "
 puts $f "|կլիմա = "
 puts $f "|պաշտոնական լեզու = Հայերեն"
 puts $f "|բնակչություն = "
 puts $f "|մարդահամարի թվական = "
 puts $f "|խտություն = "
 puts $f "|շեղջաքարացում = "
 puts $f "|ազգային կազմ = Հայեր \(մինչև \[\[Մեծ եղեռն\]\]ը\)"
 puts $f "|կրոնական կազմ ="
 puts $f "|էթնոհորոնիմ = "
 puts $f "|ժամային գոտի = +3"
 puts $f "|DST = "
 puts $f "|հեռախոսային կոդ = "
 puts $f "|փոստային ինդեքս = "
 puts $f "|փոստային ինդեքսներ = "
 puts $f "|ավտոմոբիլային կոդ = "
 puts $f "|իդենտիֆիկատորի տեսակ = "
 puts $f "|թվային իդենտիֆիկատոր = "
 puts $f "|կատեգորիան Commons-ում = "
 puts $f "|կայք = "
 puts $f "|կայքի լեզուն = "
 puts $f "|կայքի լեզուն 2 = "
 puts $f "|կայքի լեզուն 3 = "
 puts $f "|կայքի լեզուն 4 = "
 puts $f "|կայքի լեզուն 5 = "
 puts $f "|add1n = "
 puts $f "|add1 = "
 puts $f "|add2n = "
 puts $f "|add2 = "
 puts $f "|add3n = "
 puts $f "|add3 = "
 puts $f "\}\}"
 puts $f ""
 puts $f "\'\'\'$i1\'\'\', գյուղ \[\[Արևմտյան Հայաստան\]\]ում, \[\[$v\ վիլայեթ\]\]ի \[\[$p\ի գավառ\]\]ում։" 
 puts $f ""
 puts $f "Բնակչության մասին տվյալներ չեն պահպանվել։ Նրանք բռնությամբ տեղահանվել են \[\[1915\]\] թ.-ի \[\[Մեծ եղեռն\]\]ի ժամանակ։ Նրանց մեծ մասը զոհվել է աքսորի ճանապարհին։"

 puts $f ""
 puts $f "== Աղբյուրներ =="
 puts $f "* «Հայաստանի և հարակից շրջանների տեղանունների բառարան» \(5 հատորով\), 1986-2001 թթ., Երևանի Համալսարանի հրատարակչություն"

 puts $f ""
 puts $f "== Տես նաև =="
 puts $f "* \[http:\/\/www.arevmdahaiastan.net\/am\/ Արեւմտահայաստանի եւ Արեւմտահայութեան Հարցերու Ուսումնասիրութեան Կեդրոն\]"

 puts $f ""
 puts $f "\{\{ՀՍՀ\}\}"
 puts $f "\{\{$p\ի գավառ\}\}"

 puts $f ""
 puts $f "\[\[Կատեգորիա:Արևմտյան Հայաստանի գյուղեր\]\]"

 puts $f "yyyy"
 }
 close $f
}

Դերասանների էջերի նախնական ձևավորում[խմբագրել | խմբագրել կոդը]

proc wiki_actor {} {
puts "Մուտքագրեք Անունը" 
set anun [gets stdin]
puts "Մուտքագրեք Ազգանունը" 
set azganun [gets stdin]
puts "Նկար" 
set nkar [gets stdin]
puts "Բնագիր անուն" 
set bnagir_anun_0 [gets stdin]
puts "Բնագիր անուն բնագրով" 
set bnagir_anun_1 [gets stdin]
puts "Մուտքագրեք \"x\" եթե դերասանուհի է" 
set gender [gets stdin]
puts "Հասակը" 
set hasak [gets stdin]
puts "Տարի" 
set tari [gets stdin]
puts "Ամիս անունով" 
set amis [gets stdin]
puts "Ամսաթիվ" 
set amsativ [gets stdin]
puts "Ծնված քաղաք" 
set qaxaq_0 [gets stdin]
puts "Ծնված երկիր կոդով" 
set city_0 [gets stdin]
puts "Ազգություն կոդով" 
set azg [gets stdin]
puts "Ազգություն բառով" 
set azgutyun [gets stdin]
puts "Մանսագիտություն" 
set masnaget [gets stdin]

puts "Ստեղծագործության սկիզբ" 
set work_begin [gets stdin]
puts "Ժանր 1" 
set ganre_1 [gets stdin]
puts "Ժանր 2" 
set ganre_2 [gets stdin]
puts "Ժանր 3" 
set ganre_3 [gets stdin]
puts "Ֆիլմ 1" 
set film_1 [gets stdin]
puts "Ֆիլմ 2" 
set film_2 [gets stdin]
puts "Ֆիլմ 3" 
set film_3 [gets stdin]
puts "Ֆիլմ 4" 
set film_4 [gets stdin]
puts "Ֆիլմ 5" 
set film_5 [gets stdin]
puts "imdb" 
set imdb [gets stdin]
puts "kinopoisk" 
set kinopoisk [gets stdin]
puts "Օսկար" 
set oskar [gets stdin]
puts "Գլոբուս" 
set globus [gets stdin]
puts "Ոսկե ազնվամորի" 
set mori [gets stdin]
puts "Սատուրն" 
set saturn [gets stdin]
puts "Սեզար" 
set sezar [gets stdin]



set amis_tvov "00"
if {$amis == "Հունվար"} {
	set amis_tvov 01
} elseif {$amis == "Փետրվար"} {
	set amis_tvov 02
} elseif {$amis == "Մարտ"} {
	set amis_tvov 03
} elseif {$amis == "Ապրիլ"} {
	set amis_tvov 04
} elseif {$amis == "Մայիս"} {
	set amis_tvov 05
} elseif {$amis == "Հունիս"} {
	set amis_tvov 06
} elseif {$amis == "Հուլիս"} {
	set amis_tvov 07
} elseif {$amis == "Օգոստոս"} {
	set amis_tvov 08
} elseif {$amis == "Սեպտեմբեր"} {
	set amis_tvov 09
} elseif {$amis == "Հոկտեմբեր"} {
	set amis_tvov 10
} elseif {$amis == "Նոյեմբեր"} {
	set amis_tvov 11
} elseif {$amis == "Դեկտեմբեր"} {
	set amis_tvov 12
}


# print text
puts "\{\{Տեղեկաքարտ Դերասան"
puts "| Բնագիր անուն = $anun $azganun"
puts "| պատկեր = $nkar"
puts "| նկարագիր ="
puts "| Բնագիր ԱԱՀ = $bnagir_anun_0 <br>$bnagir_anun_1"

# get current date
set a [clock seconds]
set current_time [clock format $a -format "%Y %B %d"]
regsub "January" $current_time "Հունվարի" current_time
regsub "February" $current_time "Փետրվարի" current_time
regsub "March" $current_time "Մարտի" current_time
regsub "April" $current_time "Ապրիլի" current_time
regsub "May" $current_time "Մայիսի" current_time
regsub "June" $current_time "Հունիսի" current_time
regsub "July" $current_time "Հուլիսի" current_time
regsub "August" $current_time "Օգոստոսի" current_time
regsub "September" $current_time "Սեպտեմբերի" current_time
regsub "October" $current_time "Հոկտեմբերի" current_time
regsub "November" $current_time "Նոյեմբեր" current_time
regsub "December" $current_time "Դեկտեմբեր" current_time

if { $hasak != "" } {
        puts "| Հասակը՝ = $hasak սմ<ref name=kpf>\{\{cite web|url=http:\/\/www.kinopoisk.ru\/level\/1\/film\/$kinopoisk\/ |title=kinopoisk; $anun $azganun\ |date= \|accessdate=$current_time\}\}<\/ref>"
} else {
        puts "| Հասակը՝ = "
}
puts "| Ծնվել է` = \{\{Ծննդյան ամսաթիվ և տարիք|$tari|$amis_tvov|$amsativ\}\}"
puts "| Ծնվելու վայր` = \[\[$qaxaq_0\]\], \{\{$city_0\}\}"
puts "| Վախճանի օր` = "
puts "| Վախճանվել է` ="
puts "| Այլ անուն(ներ) = "
puts "| Քաղաքացիություն` ="
puts "| Հպատակություն` ="
puts "| Ազգություն` = \{\{$azg\}\}"
puts "| Կրոն` ="
puts "| Այլ անուն(ներ) = "
set masnaget_list $masnaget
regsub {դերասան} $masnaget_list "Դերասան" masnaget_list
regsub {ռեժիսոր} $masnaget_list "Ռեժիսոր" masnaget_list
regsub {սցենարիստ} $masnaget_list "Սցենարիստ" masnaget_list
regsub {պրոդյուսեր} $masnaget_list "Պրոդյուսեր" masnaget_list
regsub {կոմպոզիտոր} $masnaget_list "Կոմպոզիտոր" masnaget_list
regsub {երգ} $masnaget_list "Երգ" masnaget_list
puts "| Մասնագիտություն = $masnaget_list"
puts "| Ակտիվ շրջան = $work_begin\–այժմ"
puts "| Ժանրեր = \[\[$ganre_1\]\], <br>\[\[$ganre_2\]\], <br>\[\[$ganre_3\]\] "
puts "| Ընտրանի = \"\[\[$film_1\]\]\", <br> \"\[\[$film_2\]\]\", <br> \"\[\[$film_3\]\]\""
puts "| Ամուսին(ներ) = "
puts "| Համատեղ ապրող(ներ) = "
puts "| Երեխա(ներ) ="
puts "| imdb_id =$imdb"
puts "| ԿինոՊոիսկ_id =$kinopoisk"
puts "| Վեբկայք = "
puts "| Պարգևներ և մրցանակներ` = "
if {[regsub {\d} $oskar "" a]} {
puts "| Օսկար = $oskar "
}
if {[ regsub {\d} $globus "" a]} {
puts "| Ոսկե Գլոբուս = $globus"
}
if {[ regsub {\d} $saturn "" a]} {
puts "| Սատուրն = $saturn"
}
if {[ regsub {\d} $sezar "" a]} {
puts "| Սեզար = $sezar"
}
if {[ regsub {\d} $mori "" a]} {
puts "| Ոսկե Ազնվամորի = $mori"
}
puts "\}\}"
puts ""

puts "\'\'\'$bnagir_anun_0\'\'\' \(\{\{lang-en|$bnagir_anun_1 \}\}, ծնվ. \{\{Ծննդյան ամսաթիվ|$tari|$amis_tvov|$amsativ\}\}, \[\[$qaxaq_0\]\], \[\[$city_0\]\]\) $azgutyun $masnaget: Հանդիսատեսին հայտնի է «\[\[$film_1\]\]», «\[\[$film_2\]\]», «\[\[$film_3\]\]», «\[\[$film_4\]\]» և «\[\[$film_5\]\]» ֆիլմերից:"

puts ""
puts "== Ծանոթագրություններ =="
puts "{{ծանցանկ}}"

puts ""
puts "\{\{Դերասան-անավարտ\}\}"

puts ""
puts "\{\{DEFAULTSORT: $azganun, $anun\}\}"
set kat_der "դերասաններ"
if {$gender eq "x"} {
	set kat_der "դերասանուհիներ"
}
puts "\[\[Կատեգորիա:Հոլիվուդյան դերասաններ\]\]\ "
puts "\[\[Կատեգորիա:Ամերիկացի $kat_der\]\] "
if {[ regsub {\d} $oskar "" a]} {
puts "\[\[Կատեգորիա:Օսկարակիրներ\]\] "
}
puts "\[\[Կատեգորիա:Ամերիկացիներ\]\] "
puts "\[\[Կատեգորիա:$tari ծնունդներ\]\] "
puts "\[\[Կատեգորիա:$amis\ի $amsativ ծնունդներ\]\] "

}

Ֆիլմագրություն[խմբագրել | խմբագրել կոդը]

Օգտագործելու համար պետք է անել հետևյալ քայլերը.

  1. kinopoisk կայքից համապատասխան ֆիլմագրությունն պատճենել excel-ի մի սյունակում
  2. excel-ի մի սյունակի ձախակողմյան սյունակում ավելացնել "{", իսկ աջակողմյանում "}"
  3. tcl shell-ի մեջ սահմանել համապատասխան proc-ը այն ամբողջությամբ պատճենելով նրա մեջ
  4. excel-ի ողջ տեքստը վերագրել որևէ փոփոխականի հետևյալ կերպ. set a "{ <տեքստ> }"
  5. Կանչել համապատասխան proc-ը որպես արգումենտ տալով excel-ի տվյալներով փոփոխականը (օրինակ "rejisor_films $a")

Ռեժիսուրա[խմբագրել | խմբագրել կոդը]

proc rejisor_films {l} {
	regsub -all {\s+} $l " " l
	regsub -all {\{\ [0-9\.]+\ \}} $l "" l
	set i [expr [llength $l] -1]
	#puts "array length-1 is $i"
	puts "=== Ռեժիսուրա ==="
	puts "\{| class=\"wikitable sortable\""
puts "|-"
puts "!Թիվ !! Ֆիլմի անուն !! Բնօրինակի անվանումը !! Ժանր !! Դերասաններ "
	for {} {$i >= 0} {set i [expr $i - 1]} {
		#puts [lindex $l $i]
		set k [lindex $l $i]
set e ""
set u [regexp { (.*)\(([0-9\-]+)\)\ (.*)\.\.\.(.*)} $k a b c d e]
if {$u == 0} {
			set u [regexp {(.*)\(([0-9\-]+)\)\ (.*)\.\.\.} $k a b c d]
		}
if {$u == 0} {
			#puts "~~~~"
			set u [regexp {(.*)\(([0-9\-]+)\),\ (.*)} $k a b c d]
		}

		if {$u == 0} {
			#puts "~~~~"
			set u [regexp {(.*)\(([0-9\-]+)\)\ (.*)} $k a b c d]
		}
		puts "|-"
		regsub -all {\-} $c " - " c
		set j "undefined"
		if {[regsub -all {\(сериал\)} $b "" b]} {
			set j "սերիալ"
		}
		if {[regsub -all {\(мини-сериал\)} $b "" b]} {
			set j "մինի սերիալ"
		}
if {[regsub -all {короткометражка} $e "" e]} {
			set j "Կարճամետրաժ ֆիլմ|Կարճամետրաժ"
		}
		regsub -all {\(ТВ\)} $b "" b
regsub -all {\(видео\)} $b "" b
		set g "| $c || $b || $d || \[\[$j\]\]  ||"
regsub -all {\s+} $g " " g
		puts $g
	}
puts "|\}"
}

Օգտակար ֆունկցիաներ[խմբագրել | խմբագրել կոդը]

Ռուսերենից հայերենի տառադարձում[խմբագրել | խմբագրել կոդը]

proc taradarc {s} {
# Hatuk anunner
        regsub -all "Франция" $s "Ֆրանսիա" s
	regsub -all "хаузен" $s "հաուզեն" s
	regsub -all "хайм" $s "հայմ" s
	regsub -all "Кэмпбелл" $s "Քեմփբել" s
	regsub -all "Кэтрин" $s "Քեթրին" s
	regsub -all "Энтони" $s "Էնթոնի" s
	regsub -all "Хью" $s "Հյու" s
	regsub -all "Энн" $s "Էն" s
	regsub -all "Хэтэуэй" $s "Հետուեյ" s
	regsub -all "Кейт" $s "Քեյթ" s
	regsub -all "ейт" $s "եյթ" s
	regsub -all "Этертон" $s "Էթերթոն" s
	regsub -all "Лейтон" $s "Լեյթոն" s
	regsub -all "Дженнифер" $s "Ջենիֆեր" s
	regsub -all "Хьюитт" $s "Հյուիթ" s
	regsub -all "Хэй" $s "Հեյ" s
	regsub -all "Петер" $s "Փեթեր" s
	regsub -all "Кэш" $s "Քեշ" s
	regsub -all "Хе" $s "Հե" s
	regsub -all "Ха" $s "Հա" s
	regsub -all "Кэрролл" $s "Քերոլ" s
	regsub -all "Элизабет" $s "Էլիզաբեթ" s
	regsub -all "Хоторн" $s "Հոտորն" s
	regsub -all "Худ" $s "Հուդ" s
	regsub -all "Паркер" $s "Փարկեր" s
	regsub -all "Тейлфорт" $s "Թեյֆորթ" s
	regsub -all "Тернер" $s "Թերներ" s
	regsub -all "Райт" $s "Ռայթ" s
	regsub -all "Стил" $s "Սթիլ" s
	regsub -all "Бекинсейл" $s "Բեքինսեյլ" s
regsub -all "Кэрол" $s "Քերոլ" s
	regsub -all "Крис" $s "Քրիս" s
	regsub -all "Кен" $s "Քեն" s
	regsub -all "хер" $s "հեր" s
	regsub -all "Хо" $s "Հո" s
	regsub -all "Кэйси" $s "Քեյսի" s
	regsub -all "Колин" $s "Քոլին" s
	regsub -all "Хуан" $s "Հուան" s
	regsub -all "Пит" $s "Փիթ" s
	regsub -all "Чоу Юнь-Фат" $s "Չոու Յուն Ֆատ" s
	regsub -all "Майкл" $s "Մայքլ" s
	regsub -all "Крус" $s "Քրուզ" s
	regsub -all "Пенелопа" $s "Պենելոպե" s
	regsub -all "Иэн" $s "Յեն" s
	regsub -all "Джемма" $s "Ջեմմա" s
	regsub -all "Том" $s "Թոմ" s
	regsub -all "Джек" $s "Ջեք" s
	regsub -all "Холландер" $s "Հոլանդեր" s
	regsub -all "Тед" $s "Թեդ" s
regsub -all "Эллиот" $s "Էլիոթ" s
regsub -all "Кроун" $s "Քրոուն" s
regsub -all "Ханс" $s "Հանս" s
regsub -all "Хайнрихс" $s "Հայնրիչ" s
	regsub -all "Бадельт" $s "Բադելթ" s
	regsub -all "Прайс" $s "Փրայս" s
	regsub -all "Хилл" $s "Հիլ" s
	regsub -all "Артур" $s "Արթուր" s
	regsub -all "Шмидт" $s "Շմիդ" s
	regsub -all "Гор" $s "Գոռ" s
	regsub -all "Кира" $s "Քիրա" s
	regsub -all "Найтли" $s "Նայթլի" s
	regsub -all "Маккензи" $s "Մաքենզի" s
	regsub -all "Брукхаймер" $s "Բրուկհայմեր" s
	regsub -all "Хейр" $s "Հեյր" s
regsub -all "Хендрикс" $s "Հենդրիկս" s
	regsub -all "Фелпс" $s "Ֆելփս" s
	regsub -all "Изабелла" $s "Իզաբելլա" s
	regsub -all "Декстер" $s "Դեքսթեր" s
	regsub -all "Джет" $s "Ջեթ" s
	regsub -all "Тони" $s "Թոնի" s
	regsub -all "смит" $s "սմիթ" s
	regsub -all "Смит" $s "Սմիթ" s
	regsub -all "Вайс" $s "Ուայզ" s
regsub -all "Ханна" $s "Հաննա" s
regsub -all "Хайд" $s "Հայդ" s
regsub -all "Стив" $s "Սթիվ" s
regsub -all "Арнольд" $s "Առնոլդ" s
regsub -all "Патриция" $s "Պատրիսիա" s
regsub -all "Брендан" $s "Բրենդեն" s
regsub -all "Кевин" $s "Քևին" s
regsub -all "Джонатан" $s "Ջոնաթան" s
regsub -all "Камерон" $s "Քեմերոն" s
regsub -all "Ахмед" $s "Ահմեդ" s
regsub -all "Боат" $s "Բոաթ" s
regsub -all "ст" $s "սթ" s
regsub -all "ев" $s "և" s
regsub -all "эв" $s "և" s
regsub -all "дз" $s "ձ" s
regsub -all "Дз" $s "Ձ" s

regsub -all "ия" $s "իա" s
regsub -all "кс" $s "քս" s
regsub -all "онн" $s "ոն" s

# bacarutyunner
	regsub -all "дж" $s "ջ" s
regsub -all "Дж" $s "Ջ" s

# krknak baxadzayner
	regsub -all "тт" $s "թ" s
regsub -all "мм" $s "մ" s
	regsub -all "сс" $s "ս" s
regsub -all "лл" $s "լ" s
	regsub -all "рр" $s "ր" s
	regsub -all "дд" $s "դ" s
	regsub -all "пп" $s "փ" s
regsub -all "фф" $s "ֆ" s
regsub -all "чч" $s "ч" s
regsub -all "кк" $s "ք" s
regsub -all "цц" $s "ց" s
regsub -all "бб" $s "բ" s

# Poqratarer
	regsub -all "а" $s "ա" s
	regsub -all "б" $s "բ" s
	regsub -all "в" $s "վ" s
	regsub -all "г" $s "գ" s
	regsub -all "д" $s "դ" s
	regsub -all "е" $s "ե" s
	regsub -all "ё" $s "յո" s
	regsub -all "ж" $s "ժ" s
	regsub -all "з" $s "զ" s
	regsub -all "и" $s "ի" s
	regsub -all "й" $s "յ" s
	regsub -all "к" $s "կ" s
	regsub -all "л" $s "լ" s
	regsub -all "м" $s "մ" s
	regsub -all "н" $s "ն" s
	regsub -all "о" $s "ո" s
	regsub -all "п" $s "պ" s
	regsub -all "р" $s "ր" s
regsub -all "с" $s "ս" s
	regsub -all "т" $s "տ" s
	regsub -all "у" $s "ու" s
	regsub -all "ф" $s "ֆ" s
	regsub -all "х" $s "խ" s
	regsub -all "ц" $s "ց" s
	regsub -all "ч" $s "չ" s
	regsub -all "ш" $s "շ" s
	regsub -all "щ" $s "շ" s
	regsub -all "ъ" $s "" s
	regsub -all "ы" $s "ի" s
	regsub -all "ь" $s "" s
	regsub -all "э" $s "ե" s
	regsub -all "ю" $s "յու" s
	regsub -all "я" $s "յա" s


# Mecatarer
	regsub -all "А" $s "Ա" s
	regsub -all "Б" $s "Բ" s
	regsub -all "В" $s "Վ" s
	regsub -all "Г" $s "Գ" s
	regsub -all "Д" $s "Դ" s
	regsub -all "Е" $s "Ե" s
	regsub -all "Ё" $s "Յո" s
	regsub -all "Ж" $s "Ժ" s
	regsub -all "З" $s "Զ" s
	regsub -all "И" $s "Ի" s
	regsub -all "Й" $s "Յ" s
	regsub -all "К" $s "Կ" s
	regsub -all "Л" $s "Լ" s
	regsub -all "М" $s "Մ" s
	regsub -all "Н" $s "Ն" s
	regsub -all "О" $s "Օ" s
	regsub -all "П" $s "Պ" s
	regsub -all "Р" $s "Ռ" s
	regsub -all "С" $s "Ս" s
	regsub -all "Т" $s "Տ" s
	regsub -all "У" $s "Ու" s
	regsub -all "Ф" $s "Ֆ" s
	regsub -all "Х" $s "Խ" s
	regsub -all "Ц" $s "Ց" s
	regsub -all "Ч" $s "Չ" s
	regsub -all "Ш" $s "Շ" s
	regsub -all "Щ" $s "Շ" s
	regsub -all "Э" $s "Է" s
	regsub -all "Ю" $s "Յու" s
	regsub -all "Я" $s "Յա" s

	return $s
}

Անգլերենից հայերենի տառադարձում[խմբագրել | խմբագրել կոդը]

proc english_arm {s} {
# Hatuk anunner

# bacarutyunner
regsub -all "sh" $s "շ" s
regsub -all "ch" $s "չ" s
regsub -all "wh" $s "ու" s

regsub -all "Sh" $s "Շ" s
regsub -all "Ch" $s "Չ" s
regsub -all "Wh" $s "Ու" s

# krknak baxadzayner
regsub -all "tt" $s "թ" s
regsub -all "mm" $s "մ" s
regsub -all "ss" $s "ս" s
regsub -all "pp" $s "փ" s
regsub -all "bb" $s "բ" s
regsub -all "ll" $s "լ" s

# Poqratarer
regsub -all "a" $s "ա" s
regsub -all "b" $s "բ" s
regsub -all "c" $s "կ" s
regsub -all "d" $s "դ" s
regsub -all "e" $s "ե" s
regsub -all "f" $s "ֆ" s
regsub -all "g" $s "գ" s
regsub -all "h" $s "հ" s
regsub -all "i" $s "ի" s
regsub -all "j" $s "ջ" s
regsub -all "k" $s "կ" s
regsub -all "l" $s "լ" s
regsub -all "m" $s "մ" s
regsub -all "n" $s "ն" s
regsub -all "o" $s "ո" s
regsub -all "p" $s "պ" s
regsub -all "q" $s "ք" s
regsub -all "r" $s "ր" s
regsub -all "s" $s "ս" s
regsub -all "t" $s "տ" s
regsub -all "u" $s "ու" s
regsub -all "v" $s "վ" s
regsub -all "w" $s "ու" s
regsub -all "x" $s "խ" s
regsub -all "y" $s "յ" s
regsub -all "z" $s "զ" s

 	 	 	 	 	 	
# Mecatarer
	regsub -all "A" $s "Ա" s
	regsub -all "B" $s "Բ" s
	regsub -all "C" $s "Կ" s
	regsub -all "D" $s "Դ" s
	regsub -all "E" $s "Ե" s
	regsub -all "F" $s "Ֆ" s
	regsub -all "G" $s "Գ" s
	regsub -all "H" $s "Հ" s
	regsub -all "I" $s "Ի" s
	regsub -all "J" $s "Ջ" s
	regsub -all "K" $s "Կ" s
	regsub -all "L" $s "Լ" s
	regsub -all "M" $s "Մ" s
	regsub -all "N" $s "Ն" s
 	regsub -all "O" $s "Օ" s
	regsub -all "P" $s "Պ" s
	regsub -all "Q" $s "Ք" s
	regsub -all "R" $s "Ռ" s
	regsub -all "S" $s "Ս" s
	regsub -all "T" $s "Տ" s
	regsub -all "U" $s "Ու" s
	regsub -all "V" $s "Վ" s
	regsub -all "W" $s "Ու" s
	regsub -all "X" $s "Խ" s
	regsub -all "Y" $s "Յ" s
	regsub -all "Z" $s "Զ" s

	return $s
}

Ժանրերի վիքիֆիկացում[խմբագրել | խմբագրել կոդը]

proc taradarc {g} {
regsub {аниме} $g "Անիմե" g
regsub {приключения} $g "Արկածային ֆիլմ|Արկածային" g
regsub {детектив} $g "Դետեկտիվ" g
regsub {драма} $g "Դրամա" g
regsub {мюзикл} $g "Երաժշտական ֆիլմ|Երաժշտական" g
regsub {семейный} $g "Ընտանեկան ֆիլմ|Ընտանեկան" g
regsub {триллер} $g "Թրիլեր" g
regsub {комедия} $g "Կատակերգություն" g
regsub {биография} $g "Կենսագրական ֆիլմ|Կենսագրական" g
regsub {боевик} $g "Մարտաֆիլմ|Մարտական" g
regsub {мелодрама} $g "Մելոդրամա" g
regsub {мультфильм} $g "Մուլտիպլիկացիա|Մուլտֆիլմ" g
regsub {нуар} $g "Նուար" g
regsub {история} $g "Պատմական" g
regsub {военный} $g "Ռազմական ֆիլմ|Ռազմական" g
regsub {ужасы} $g "Սարսափ ֆիլմ|Սարսափ" g
regsub {спорт} $g "Սպորտային ֆիլմ|Սպորտային"
regsub {вестерн} $g "Վեստեռն" g
regsub {документальный} $g "Փաստագրական ֆիլմ|Փաստագրական"
regsub {фэнтези} $g "Ֆենտեզի" g
regsub {криминал} $g "Քրեական ֆիլմ|Քրեական" g
regsub {фантастика} $g "Ֆանտաստիկ ֆիլմ|Ֆանտաստիկ" g

return $g
}

Ֆիլմերի նախնական էջերի և Դերերում բաժնի ստեղծում[խմբագրել | խմբագրել կոդը]

proc taradarc {s} {
# Hatuk anunner
regsub -all "Кэмерон" $s "Քեմերոն" s
regsub -all "Майк" $s "Մայք" s
regsub -all "Мёрфи" $s "Մերֆի" s
regsub -all "Сара" $s "Սառա" s
regsub -all "мл\." $s "կրտ." s
regsub -all "Хэмилл" $s "Հեմիլ" s
regsub -all "Портман" $s "Փորտման" s
regsub -all "Юэн МакГрегор" $s "Էվան Մաքգրեգոր" s
regsub -all "Джим Керри" $s "Ջիմ Քերրի" s
regsub -all "Дэйнс" $s "Դենս" s
regsub -all "Кристиан" $s "Քրիստեան" s
regsub -all "Тейлор" $s "Թեյլոր" s
regsub -all "Гордон" $s "Գորդոն" s
regsub -all "Кент" $s "Քենթ" s
regsub -all "Круз" $s "Քրուզ" s
regsub -all "Шон Коннери" $s "Շոն Քոնների" s
regsub -all "Депардье" $s "Դեպարդիե" s
regsub -all "Клавье" $s "Կլավյե" s
regsub -all "Крис" $s "Քրիս" s
regsub -all "Кэмпбелл" $s "Քեմփբել" s
regsub -all "Кэтрин" $s "Քեթրին" s
regsub -all "Энтони" $s "Էնթոնի" s
regsub -all "Хью" $s "Հյու" s
	regsub -all "Энн" $s "Էն" s
	regsub -all "Хэтэуэй" $s "Հետուեյ" s
	regsub -all "Кейт" $s "Քեյթ" s
	regsub -all "ейт" $s "եյթ" s
	regsub -all "Этертон" $s "Էթերթոն" s
	regsub -all "Лейтон" $s "Լեյթոն" s
	regsub -all "Дженнифер" $s "Ջենիֆեր" s
	regsub -all "Хьюитт" $s "Հյուիթ" s
	regsub -all "Хэй" $s "Հեյ" s
	regsub -all "Петер" $s "Փեթեր" s
	regsub -all "Кэш" $s "Քեշ" s
	regsub -all "Хе" $s "Հե" s
	regsub -all "Ха" $s "Հա" s
	regsub -all "Кэрролл" $s "Քերոլ" s
	regsub -all "Элизабет" $s "Էլիզաբեթ" s
	regsub -all "Хоторн" $s "Հոտորն" s
	regsub -all "Худ" $s "Հուդ" s
	regsub -all "Паркер" $s "Փարկեր" s
	regsub -all "Тейлфорт" $s "Թեյֆորթ" s
	regsub -all "Тернер" $s "Թերներ" s
	regsub -all "Райт" $s "Ռայթ" s
	regsub -all "Стил" $s "Սթիլ" s
	regsub -all "Бекинсейл" $s "Բեքինսեյլ" s
regsub -all "Кэрол" $s "Քերոլ" s
	regsub -all "Крис" $s "Քրիս" s
	regsub -all "Кен" $s "Քեն" s
	regsub -all "хер" $s "հեր" s
	regsub -all "Хо" $s "Հո" s
	regsub -all "Кэйси" $s "Քեյսի" s
	regsub -all "Колин" $s "Քոլին" s
	regsub -all "Хуан" $s "Հուան" s
	regsub -all "Пит" $s "Փիթ" s
	regsub -all "Чоу Юнь-Фат" $s "Չոու Յուն Ֆատ" s
	regsub -all "Майкл" $s "Մայքլ" s
	regsub -all "Крус" $s "Քրուզ" s
	regsub -all "Пенелопа" $s "Պենելոպե" s
	regsub -all "Иэн" $s "Յեն" s
	regsub -all "Джемма" $s "Ջեմմա" s
	regsub -all "Том" $s "Թոմ" s
	regsub -all "Джек" $s "Ջեք" s
	regsub -all "Холландер" $s "Հոլանդեր" s
	regsub -all "Тед" $s "Թեդ" s
regsub -all "Эллиот" $s "Էլիոթ" s
regsub -all "Кроун" $s "Քրոուն" s
regsub -all "Ханс" $s "Հանս" s
regsub -all "Хайнрихс" $s "Հայնրիչ" s
	regsub -all "Бадельт" $s "Բադելթ" s
	regsub -all "Прайс" $s "Փրայս" s
	regsub -all "Хилл" $s "Հիլ" s
	regsub -all "Артур" $s "Արթուր" s
	regsub -all "Шмидт" $s "Շմիդ" s
	regsub -all "Гор" $s "Գոռ" s
	regsub -all "Кира" $s "Քիրա" s
	regsub -all "Найтли" $s "Նայթլի" s
	regsub -all "Маккензи" $s "Մաքենզի" s
	regsub -all "Брукхаймер" $s "Բրուկհայմեր" s
	regsub -all "Хейр" $s "Հեյր" s
regsub -all "Хендрикс" $s "Հենդրիկս" s
	regsub -all "Фелпс" $s "Ֆելփս" s
	regsub -all "Изабелла" $s "Իզաբելլա" s
	regsub -all "Декстер" $s "Դեքսթեր" s
	regsub -all "Джет" $s "Ջեթ" s
	regsub -all "Тони" $s "Թոնի" s
	regsub -all "смит" $s "սմիթ" s
	regsub -all "Смит" $s "Սմիթ" s
	regsub -all "Вайс" $s "Ուայզ" s
regsub -all "Ханна" $s "Հաննա" s
regsub -all "Хайд" $s "Հայդ" s
regsub -all "Стив" $s "Սթիվ" s
regsub -all "Арнольд" $s "Առնոլդ" s
regsub -all "Патриция" $s "Պատրիսիա" s
regsub -all "Брендан" $s "Բրենդեն" s
regsub -all "Кевин" $s "Քևին" s
regsub -all "Джонатан" $s "Ջոնաթան" s
regsub -all "Камерон" $s "Քեմերոն" s
regsub -all "Ахмед" $s "Ահմեդ" s
regsub -all "Боат" $s "Բոաթ" s
regsub -all "ст" $s "սթ" s
regsub -all "ев" $s "և" s
regsub -all "эв" $s "և" s

regsub -all "ия" $s "իա" s
regsub -all "кс" $s "քս" s
regsub -all "онн" $s "ոն" s

# bacarutyunner
	regsub -all "дж" $s "ջ" s
regsub -all "Дж" $s "Ջ" s

# krknak baxadzayner
	regsub -all "тт" $s "թ" s
regsub -all "мм" $s "մ" s
	regsub -all "сс" $s "ս" s
regsub -all "лл" $s "լ" s
	regsub -all "рр" $s "ր" s
	regsub -all "дд" $s "դ" s
	regsub -all "пп" $s "փ" s
regsub -all "фф" $s "ֆ" s
regsub -all "чч" $s "ч" s
regsub -all "кк" $s "ք" s

# Poqratarer
	regsub -all "а" $s "ա" s
	regsub -all "б" $s "բ" s
	regsub -all "в" $s "վ" s
	regsub -all "г" $s "գ" s
	regsub -all "д" $s "դ" s
	regsub -all "е" $s "ե" s
	regsub -all "ё" $s "յո" s
	regsub -all "ж" $s "ժ" s
	regsub -all "з" $s "զ" s
	regsub -all "и" $s "ի" s
	regsub -all "й" $s "յ" s
	regsub -all "к" $s "կ" s
	regsub -all "л" $s "լ" s
	regsub -all "м" $s "մ" s
	regsub -all "н" $s "ն" s
	regsub -all "о" $s "ո" s
	regsub -all "п" $s "պ" s
	regsub -all "р" $s "ր" s
regsub -all "с" $s "ս" s
	regsub -all "т" $s "տ" s
	regsub -all "у" $s "ու" s
	regsub -all "ф" $s "ֆ" s
	regsub -all "х" $s "խ" s
	regsub -all "ц" $s "ց" s
	regsub -all "ч" $s "չ" s
	regsub -all "ш" $s "շ" s
	regsub -all "щ" $s "շ" s
	regsub -all "ъ" $s "" s
	regsub -all "ы" $s "ի" s
	regsub -all "ь" $s "" s
	regsub -all "э" $s "ե" s
	regsub -all "ю" $s "յու" s
	regsub -all "я" $s "յա" s


# Mecatarer
	regsub -all "А" $s "Ա" s
	regsub -all "Б" $s "Բ" s
	regsub -all "В" $s "Վ" s
	regsub -all "Г" $s "Գ" s
	regsub -all "Д" $s "Դ" s
	regsub -all "Е" $s "Ե" s
	regsub -all "Ё" $s "Յո" s
	regsub -all "Ж" $s "Ժ" s
	regsub -all "З" $s "Զ" s
	regsub -all "И" $s "Ի" s
	regsub -all "Й" $s "Յ" s
	regsub -all "К" $s "Կ" s
	regsub -all "Л" $s "Լ" s
	regsub -all "М" $s "Մ" s
	regsub -all "Н" $s "Ն" s
	regsub -all "О" $s "Օ" s
	regsub -all "П" $s "Պ" s
	regsub -all "Р" $s "Ռ" s
	regsub -all "С" $s "Ս" s
	regsub -all "Т" $s "Տ" s
	regsub -all "У" $s "Ու" s
	regsub -all "Ф" $s "Ֆ" s
	regsub -all "Х" $s "Խ" s
	regsub -all "Ц" $s "Ց" s
	regsub -all "Ч" $s "Չ" s
	regsub -all "Ш" $s "Շ" s
	regsub -all "Щ" $s "Շ" s
	regsub -all "Э" $s "Է" s
	regsub -all "Ю" $s "Յու" s
	regsub -all "Я" $s "Յա" s


	return $s
}

proc wiki_film {arm_name imdb kinopoisk} {
cd c:/actors/files

set f [open 1.htm r]
fconfigure $f -encoding cp1251
set d [read $f]
close $f

# REGEXPing
regexp {.*moviename-big" itemprop="name">([^<]+)<} $d a rus_name
regexp {.*alternativeHeadline">([^<]+)<} $d a orig_name
#set orig_name ""
regexp {.*слоган</td><td style="color: #...">([^<]+)} $d a slogan

set b ""
regexp {.*режиссер</td><td [^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set rejisor \[\[
append rejisor $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $rejisor " <br>և ուրիշներ" rejisor
set rejisor [taradarc $rejisor]

set b ""
regexp {.*<td class="type">страна</td>\n[^\n]+\n[^\n]+\n([^\n]+)} $d a b
regsub -all {<[^>]+>} $b "" h
set strana "\{\{"
regsub -all {, } $h "\}\}, <br>\{\{" h
append strana $h "\}\}"
regsub -all {\s\s+} $strana "" strana
regsub -all {США} $strana "USA" strana
regsub -all {Китай} $strana "CHN" strana
regsub -all {Германия} $strana "DEU" strana
regsub -all {Югославия} $strana "YUG" strana
regsub -all {Гонконг} $strana "HKG" strana
regsub -all {Великобритания} $strana "UK" strana
regsub -all {Франция} $strana "FRA" strana
regsub -all {Япония} $strana "JPN" strana
regsub -all {Бельгия} $strana "BEL" strana
regsub -all {Тайвань} $strana "TWN" strana
regsub -all {Австралия} $strana "AUS" strana
regsub -all {Канада} $strana "CAN" strana
regsub -all {Испания} $strana "ESP" strana
regsub -all {Италия} $strana "ITA" strana
regsub -all {Чехия} $strana "CZE" strana
regsub -all {ОАЭ} $strana "ARE" strana
regsub -all {Новая Зеландия} $strana "NZL" strana
regsub -all {Ирландия} $strana "IRL" strana
regsub -all {Венгрия} $strana "HUN" strana
regsub -all {Исландия} $strana "ISL" strana
regsub -all {Украина} $strana "UKR" strana


set b ""
regexp {.*продюсер</td><td [^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set produser  \[\[
append produser  $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $produser " <br>և ուրիշներ" produser
set produser [taradarc $produser]

set b ""
regexp {.*сценарий</td><td>[^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set scenary \[\[
append scenary $c \]\]
set scenary [taradarc $scenary]
regsub {, <br>\[\[\.\.\.\]\]} $scenary " <br>և ուրիշներ" scenary
set scenary [taradarc $scenary]

set b ""
regexp {.*оператор</td><td>[^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set operator \[\[
append operator $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $operator " <br>և ուրիշներ" operator
set operator [taradarc $operator]

set b ""
regexp {.*композитор</td><td [^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set compositor  \[\[
append compositor  $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $compositor " <br>և ուրիշներ" compositor
set compositor [taradarc $compositor]

set b ""
regexp {.*монтаж</td><td>[^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set montaz \[\[
append montaz $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $montaz " <br>և ուրիշներ" montaz
set montaz [taradarc $montaz]

set b ""
regexp {.*художник</td><td>[^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set nkarich \[\[
append nkarich $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $nkarich " <br>և ուրիշներ" nkarich
set nkarich [taradarc $nkarich]

set b ""
regexp {.*жанр</td><td [^>]+>([^\n]+)</td></tr>} $d a b
regsub -all {<[^>]+>} $b "" c
regsub -all {, } $c {]], <br>[[} c
set ganre  \[\[
append ganre  $c \]\]
regsub {, <br>\[\[\.\.\.\]\]} $ganre "" ganre
regsub {мультфильм} $ganre "Մուլտիպլիկացիա|Մուլտֆիլմ" ganre
regsub {фэнтези} $ganre "Ֆենտեզի" ganre
regsub {триллер} $ganre "Թրիլեր" ganre
regsub {боевик} $ganre "Մարտաֆիլմ|Մարտական" ganre
regsub {приключения} $ganre "Արկածային ֆիլմ|Արկածային" ganre
regsub {комедия} $ganre "Կատակերգություն" ganre
regsub {семейный} $ganre "Ընտանեկան ֆիլմ|Ընտանեկան" ganre
regsub {мелодрама} $ganre "Մելոդրամա" ganre
regsub {история} $ganre "Պատմական ֆիլմ|Պատմական" ganre
regsub {военный} $ganre "Ռազմական ֆիլմ|Ռազմական" ganre
regsub {вестерн} $ganre "Վեստեռն" ganre
regsub {драма} $ganre "Դրամա" ganre
regsub {криминал} $ganre "Քրեական ֆիլմ|Քրեական" ganre
regsub {фантастика} $ganre "Ֆանտաստիկ ֆիլմ|Ֆանտաստիկ" ganre
regsub {детектив} $ganre "Դետեկտիվ" ganre
regsub {спорт} $ganre "Սպորտային ֆիլմ|Սպորտային" ganre
regsub {ужасы} $ganre "Սարսափ ֆիլմ|Սարսափ" ganre


set duration ""
regexp {.*время</td><td [^>]+>([^\n]+) мин\.} $d a duration

regexp {<td class="type">год</td>[\s]+<[^\n]+[\s]+[^\n]+[\s]+<[^\n]+(\d\d\d\d)</a>} $d a release_year


# find actor names
set b ""
#regexp {<!-- актеры фильма -->(.*)<!-- /актеры фильма -->} $d a b
regexp {<h4>В главных ролях:</h4><ul>\ \ \ (.*\.\.\.</a></li>)\n</ul>\n} $d a b
#regexp {<div>(.*)</div>} $b a c
regsub -all {<!-- <span itemprop="actors" itemscope itemtype="http://schema.org/Person"><a href="[^\n]+\n} $b "" c
regsub -all {<li itemprop="actors"><a data-popup-info="[^"]+" href="[^"]+">} $c "" c
regsub -all {</a></li>} $c "" c
regsub -all {\ \s+} $c "" c
regsub -all {\n\.\.\.\s+} $c "" c
regsub -all {\n} $c {]], <br>[[} c
set actors  \[\[
append actors  $c \]\]
set actors [taradarc $actors]
regsub -all {&nbsp;} $actors " " actors

# film brief description
set b ""
regexp {<div class="brand_words" itemprop="description">([^\/]+)<} $d a b
regsub -all {\n\s+} $b " " b
regsub -all {<br>} $b "" b
regsub -all {\s+} $b " " b
regsub -all {&nbsp;} $b " " brief

set e ""
set premeria ""
regexp {.*премьера \(мир\)</td>\n([^\n]+)\n([^\n]+)\n\s+<([^>]+)>(\d..\D+)} $d a b c d e
if {[regsub {января} $e "" g]} {
	set premeria "հունվարի"
} elseif {[regsub {февраля} $e "" g]} {
	set premeria "փետրվարի"
} elseif {[regsub {марта} $e "" g]} {
	set premeria "մարտի"
} elseif {[regsub {апреля} $e "" g]} {
	set premeria "ապրիլի"
} elseif {[regsub {мая} $e "" g]} {
	set premeria "մայիսի"
} elseif {[regsub {июня} $e "" g]} {
	set premeria "հունիսի"
} elseif {[regsub {июля} $e "" g]} {
	set premeria "հուլիսի"
} elseif {[regsub {августа} $e "" g]} {
	set premeria "օգոստոսի"
} elseif {[regsub {сентября} $e "" g]} {
	set premeria "սեպտեմբերի"
} elseif {[regsub {октября} $e "" g]} {
	set premeria "հոկտեմբերի"
} elseif {[regsub {ноября} $e "" g]} {
	set premeria "նոյեմբերի"
} elseif {[regsub {декабря} $e "" g]} {
	set premeria "դեկտեմբերի"
}


regsub -all {\D+} $e "" e
regsub -all {\s+} $e "" e
append premeria " $e"


# printing
puts "\{\{Տեղեկաքարտ Ֆիլմ"
puts " | հայերեն անվանում  = $arm_name"
puts " | բնօրինակ անվանում = $orig_name"
puts " | պատկեր = "
puts " | լայնություն = "
puts " | նկարագրում  = \'\'\'$slogan\'\'\'"
puts " | երկիր = $strana"
puts " | ժանր = $ganre"
puts " | թվական = \[\[$release_year\]\]"
puts " | պրեմիերա = \[\[$premeria\]\], \[\[$release_year\]\]"
puts " | լեզու = \[\[անգլերեն\]\]"
puts " | ռեժիսոր = $rejisor"
puts " | պրոդյուսեր = $produser"
puts " | սցենարիստ = $scenary"
puts " | դերակատարներ  = $actors"
puts " | օպերատոր = $operator"
puts " | երաժշտություն  = $compositor" 
puts " | մոնտաժ = $montaz"
puts " | նկարիչներ = $nkarich"
puts " | կարդում են = "
puts " | կինոընկերություն = "
puts " | տևողություն  = $duration րոպե"
puts " | բյուջե = \$ "
puts " | շահույթ = \$ "
puts " | տեղայնացնող  = "
puts " | նախորդ = "
puts " | հաջորդ  = "
puts " | MPAA վարկանիշ  = "
puts " | imdb_id = $imdb"
puts " | կայք  = "
puts " | Թրեյլեր = \[ տեսահոլովակ\]"
puts "\}\}"
puts ""

regsub -all {<br>} $actors "" t
regsub -all {\]\]} $t "]]ը" t
regsub -all {ա\]\]ը} $t "ա]]ն" t
regsub -all {ե\]\]ը} $t "ե]]ն" t
regsub -all {ի\]\]ը} $t "ի]]ն" t
regsub -all {ո\]\]ը} $t "ո]]ն" t
regsub -all {ու\]\]ը} $t "ու]]ն" t

puts "\'\'\'«$arm_name»\'\'\'\ (\{\{lang-en|$orig_name\}\}\) ռեժիսոր $rejisor\ի ֆիլմերից, որի գլխավոր դերերը մարմնավորում են $t:"
puts ""
puts "$brief"
puts ""

puts "== Սյուժեն =="
puts "\{\{Անավարտ բաժին\}\}"
puts ""
puts "== Դերերում =="
puts "\{\{Անավարտ բաժին\}\}"
puts ""
puts "== Հետաքրքիր փաստեր =="
puts "\{\{Անավարտ բաժին\}\}"
puts ""
puts "== Արտաքին հղումներ =="
puts "* \{\{imdb title|$imdb|$arm_name\}\}"
puts "* \{\{kinopoisk|$kinopoisk|$arm_name\}\}"
puts ""
puts "== Նմանատիպ ֆիլմեր =="
puts "\{\{Անավարտ բաժին\}\}"
puts ""

set b ""
regexp {\[\[([^\]]+)} $rejisor a b

puts "== Ծանոթագրություններ =="
puts "\{\{ծանցանկ\}\}"
puts ""
puts "\{\{film-stub\}\}"
puts ""
puts "\[\[Կատեգորիա:Ամերիկյան ֆիլմեր\]\]"
puts "\[\[Կատեգորիա:$release_year ֆիլմեր\]\]"
puts "\[\[Կատեգորիա:$b\ի ֆիլմեր\]\]"

if {[regsub {Մուլտֆիլմ} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Անիմացիոն ֆիլմեր\]\]"
}
if {[regsub {Ֆենտեզի} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Ֆենտեզի ֆիլմեր\]\]"
}
if {[regsub {Մարտաֆիլմ} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Մարտաֆիլմեր‎\]\]"
}
if {[regsub {Արկածային} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Արկածային ֆիլմեր‎\]\]"
}
if {[regsub {Թրիլեր} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Թրիլեր ֆիլմեր‎\]\]"
}
if {[regsub {Կատակերգություն} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Կինոկատակերգություններ‎\]\]"
}
if {[regsub {Ընտանեկան} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Ընտանեկան ֆիլմեր‎\]\]"
}
if {[regsub {Մելոդրամա} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Մելոդրամաներ‎\]\]"
}
if {[regsub {Դրամա} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Դրամա ֆիլմեր‎\]\]"
}
if {[regsub {Վեստեռն} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Վեստեռն ֆիլմեր‎\]\]"
}
if {[regsub {Պատմական} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Պատմական ֆիլմեր‎\]\]"
}
if {[regsub {Ռազմական} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Ռազմական ֆիլմեր‎\]\]"
}
if {[regsub {Ֆանտաստիկ} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Ֆանտաստիկ ֆիլմեր‎\]\]"
}
if {[regsub {Դետեկտիվ} $ganre "" g]} {
	puts "\[\[Կատեգորիա: Դետեկտիվ ֆիլմեր‎‎\]\]"
}
if {[regsub {Քրեական} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Քրեական ֆիլմեր‎\]\]"
}
if {[regsub {Սպորտային} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Սպորտային ֆիլմեր‎\]\]"
}
if {[regsub {Սարսափ} $ganre "" g]} {
	puts "\[\[Կատեգորիա:Սարսափ ֆիլմեր‎\]\]"
}


}

# ==================================
proc get_artist {} {
cd c:/actors/files
set f [open 2.htm r]
fconfigure $f -encoding cp1251
set d [read $f]
close $f

#regexp -nocase {.*<a name=\"actor\"></a>\n[^\n]+\n+(.*)</div>\n\n\n\n\n} $d a b
regexp -nocase {.*<a data-popup-info=\"disabled\" name=\"actor\"></a>\n[^\n]+\n+(.*)</div>\n\n\n\n\n} $d a b

set k \{
regsub -all {<a data-popup-info="disabled" name} $b "\} \{<a data-popup-info=\"disabled\" name" j
#regsub -all {<a name} $b "\} \{<a name" j

append k $j \}
set act [lindex $k 0]
regexp {<a[^\n]+\n[^\n]+\n(.*)} $act a y
regsub -all {\n\n<div} $y "\n\{<div" y
regsub -all {</div>\n\n} $y "</div>\}" y
set act \{
append act $y \}

puts "== Դերերում =="
puts "\{| class=\"wikitable sortable\""
puts "|-"
puts "!Դերասան!! Դեր"

set counter 1

set act [lrange $act 0 end-1]
foreach i $act {
	set c ""
	if {[regexp {[^\n]+<div class="name"><[^>]+>([^<]+)[^\n]+\n\s+<div class="role">\.\.\.\ ([^<]+)} $i a b c] == 0} {
		regexp {[^\n]+<div class="name"><[^>]+>([^<]+)[^\n]+\n\s+<div class="role">\.\.\.\ } $i a b
}
	regsub -all {, в титрах не указана} $c " (տիտրերում նշված չէ)" c
regsub -all {, в титрах не указан} $c " (տիտրերում նշված չէ)" c
regsub -all {, озвучка} $c " (հնչյունավորում) " c
#regsub -all {, озвучка} $c "" c

regsub -all {играет саму себя} $c "մարմնավորում է ինքն իրեն" c
	puts "|-"
	set b [taradarc $b]
	if {$counter <16} {
puts "| \[\[$b\]\] || $c"
	} else {
		puts "| $b || $c"
	}
	incr counter
}
puts "|\}"

}

Նկարների համարակալում[խմբագրել | խմբագրել կոդը]

proc numbering {name} {
cd c:/pictures/
set l [glob *JPG]
set n 1
foreach i $l {
#puts "$n $i"
file rename $i $name\_pic_$n\.JPG
incr n
}
}

Նկարների համարակալում սկսած համարից[խմբագրել | խմբագրել կոդը]

proc cont_numbering {name n} {
cd c:/pictures/
set l [glob *JPG]
foreach i $l {
file rename $i $name\_pic_$n\.JPG
incr n
}
}

Perl-ով մշակված ավտոմատ ծրագրեր[խմբագրել | խմբագրել կոդը]

Դիտարկման ցուցանիշներ հավաքող ծրագիր[խմբագրել | խմբագրել կոդը]

#!/usr/bin/perl

use LWP::Simple;
use warnings;

my $content;
my $line;

#open FILEHANDLE, ">webpage.txt";
open FILEHANDLE, ">>nov_2012.txt";

#open INPUTFILE, "<hy_1.txt";
open INPUTFILE, "<w001.txt";
while (<INPUTFILE>) {
   $line = $_;
   print "$line\n";
   $content = get("http://stats.grok.se/hy/201211/$line") or die 'Unable to get page';
   #$content = get("http://stats.grok.se/hy/201210/$line") or die 'Unable to get page';
    if ($content =~ m/>(.*)<\/a> has been viewed (\d+)/) {
        print FILEHANDLE "$2 : $line";
        #print "$2 : $1\n";
        print "$2 : $line\n";
    }
}

close INPUTFILE;

close FILEHANDLE;

exit 0;