Користувач:Дядько Ігор/Скрипти/Cело

#!/usr/bin/perl 

open (MTC,"vil.txt");

$line = <MTC>;
($name1, $name2) = split(/\s+/,$line,2);
$name2 =~ s/\n//;
$hamlet = $name2;
$line = <MTC>;
($region, $district) = split(/,/,$line,2);
$district =~ s/\n//;
for ($i =1; $i <11; $i++){
	$line = <MTC>;
}
($n1, $founded, $n2) = split(/ /,$line, 3);
 for ($i =1; $i <16; $i++){
	$line = <MTC>;
}
$founded =~ s/\n//;
$postal_code = $line;
$postal_code =~ s/\n//;
 for ($i =1; $i <6; $i++){
	$line = <MTC>;
}
($nw, $waterpool) = split(/ /, $line,2);
$waterpool =~ s/\n//;
if ($nw eq 'рiчки:') 
{
	$nw = 'Через село протікають річки';
        $wp1 = $waterpool;
}
else 
{
  $nw = '';
  $wp1 = '';
}
 for ($i =1; $i <6; $i++){
	$line = <MTC>;
}
$area = $line/1000;
$area =~ s/\./\,/;
$area = "" if ($area eq 0);
 for ($i =1; $i <6; $i++){
	$line = <MTC>;
}
$population = $line*1000; 
$population = "" if ($population eq 0);
 for ($i =1; $i <6; $i++){
	$line = <MTC>;
}
$density = $line/1.0;
$density =~ s/\./\,/;
$density = "" if ($density eq 0);
 for ($i =1; $i <14; $i++){
	$line = <MTC>;
}
$councel = $line; 
$councel =~ s/\n//;
$line = <MTC>;
if ( $line =~ m/-/)
{
  ($n1,$phone_code) = split(/-/, $line, 2); 
  $phone_code =~ s/\n//; 
  $pnone_code =~ s/\n//;
  $phone_code =~ s/^0//;
}
else 
{
 $line =~ s/^0//;
 $phone_code = $line;
}
$line = <MTC>;
$tel = <MTC>; 
$tel =~ s/\n//;
 for ($i =1; $i <4; $i++){
	$line = <MTC>;
}
$address = <MTC>;
$address =~ s/\n//; 

open(CVK, "cvk.csv");

$name = 'с Лукомщина';

while($line = <CVK>)
{
  ($c1, $c2, $c3, $c4) = split(/\;/,$line, 4);
  ($c31, $c32) = split(/ /,$c3,2);
  $c4 =~ s/\n//;  
  if ($c32 eq $hamlet){
    $district =~ s/^ //;
    $distr1 = $district;
    if ($c4 eq $distr1){ 
   $KOATUU = $c2}}
}

open(CSV,"weather1.csv");

$line = <CSV>; 
while ($line = <CSV>)
{
($html,$c_1, $c_2, $c_3, $c_4, $c_5, $c_6, $c_7) = 
  split(/;/,$line,8);
  $c_7 =~ s/\n//;
if ($c_1 eq $hamlet)
{
  $distr_2 = $district;
 $distr_2 =~ s/^ //;
 ($disr_3, $distr_4) = split(/ /, $distr_2, 2);
 if ($disr_3 eq $c_4)
{
 ($lat,$lat1) = split(/\,/,$c_5,2);
 $lat2 = 0.6*$lat1;
 ($lat_m,$lat3) = split(/\./,$lat2,2);
 $lat_s = 6*$lat3;
 ($lon, $lon1) = split(/\,/,$c_6,2);
 $lon2 = 0.6*$lon1; 
 ($lon_m, $lon3) =  split(/\./,$lon2,2);
 $lon_s = 6*$lon3;
 $elev = $c_7;
 $html1 = $html
}
}
}
if ($html1 eq "")
{
  $html_line1 ="";
}
else
{
$html_line1 = "==Інтернет посилання==\n [$html1 Погода в селі]";
}
print<<EndCard 
 {{Село
 | назва           = $hamlet
 | область         = [[$region]]
 | район           = [[$district]]
 | рада            = [[$councel]]
 | код КОАТУУ      = $KOATUU
 | розташування    = $location
 | mapx            = $mapx
 | mapy            = $mapy
 | засновано       = $founded 
 | населення       = $population
 | територія       = $land
 | ref-територія   = $ref_land
 | площа           = $area
 | ref-площа       = $ref_area
 | щільність       = $density
 | поштовий індекс = $postal_code
 | телефонний код  = $phone_code
 | координати      =  {{Coor dms |$lat|$lat_m|$lat_s|N|$lon|$lon_m|$lon_s|E|scale:100000}}
 | висота          = $elev
 | ref-висота      = $ref_elevation
 | водойма         = $waterpool
 | адреса          = $address, тел. $tel
 | облікова картка = $card
 | прапор          = $flag
 | герб            = $coat
 | відстань о      = $distance_region
 | ref-відстань о  = $ref_distance_region
 | відстань р      = $distance_district
 | ref-відстань р  = $ref_distance_district
 | станція         = $station
 | відстань ст     = $distance_station
 }}

'''$hamlet''' &mdash; [[село]] в Україні, в [[$district|Городнянському районі]] [[$region|Чернігівської області]]. 
$nw $wp1
$html_line1
{{$district}}
{{Ukraine-geo-stub}}
[[Категорія:$district]]
 
EndCard
;