Користувач:Дядько Ігор/Округ США

#!/usr/bin/perl

open(LL, "us_county_list.txt");
while ($spec = <LL>)
{
  ($en_spec, $uk_spec) = split(/=/, $spec); 
   $uk_spec =~ s/\n$//;
   $uk_spec =~ s/\s+$//;
   $uk_spec =~ s/\s+$//;  
  ($en_county, $en_state) = split (/\,/, $en_spec); 
  ($uk_county, $s, $uk_state, $s1) = split (/[\(\,\)]/, $uk_spec);
  $en_spec1 = $en_spec; 
  $en_spec1 =~ s/\s+$//;
  $en_spec1 = "\'$en_spec1\'";
$stat_line = `grep $en_spec1 dc_dec_2000_sf1_u_data1.csv`;

@stat_data = split (/\;/,$stat_line);
$pop = $stat_data[5];
$urban = $stat_data[6];
$rural = $stat_data[9];
$urban_rural = "зокрема міського населення було $urban, а сільського — $rural";
$urban_rural = "усе сільське" if ($pop eq $rural);
$urban_rural = "усе міське" if $pop eq $urban;
$male = $stat_data[21];
$female = $stat_data[45];
$households = $stat_data[69];
$families = $stat_data[101];
$av_fam = $stat_data[102];
$av_fam =~ s/\./\,/;
$houses =  $stat_data[103];
$houses =~ s/\s+$//; 
$census_yr = "2000";

$m_less15 = $stat_data[22] + $stat_data[23] + $stat_data[24];
$m_21 = $stat_data[25] + $stat_data[26] + $stat_data[27] + $stat_data[28];
$m_29 = $stat_data[29] + $stat_data[30];
$m_39 = $stat_data[31] + $stat_data[32];
$m_49 = $stat_data[33] + $stat_data[34];
$m_65 = $stat_data[35] + $stat_data[36] + $stat_data[37] + $stat_data[38];
$m_85 = $stat_data[39] + $stat_data[40] + $stat_data[41] + $stat_data[42] + $stat_data[43];
$m_over = $stat_data[44];

$f_less15 = $stat_data[46] + $stat_data[47] + $stat_data[48];
$f_21 = $stat_data[49] + $stat_data[50] + $stat_data[51] + $stat_data[52];
$f_29 = $stat_data[53] + $stat_data[54];
$f_39 = $stat_data[55] + $stat_data[56];
$f_49 = $stat_data[57] + $stat_data[58];
$f_65 = $stat_data[59] + $stat_data[60] + $stat_data[61] + $stat_data[62];
$f_85 = $stat_data[63] + $stat_data[64] + $stat_data[65] + $stat_data[66] + $stat_data[67];
$f_over = $stat_data[68];

$geo_id = $stat_data[1];
$us_id = $stat_data[0];
$search_string = "$geo_id county_geo.txt|grep \'$en_county\'";
$geo_line = `grep $search_string`;
@geo_data = split(/\t/, $geo_line);
$area_land_sq_mi = $geo_data[6];
$area_land_sq_mi = sprintf("%.0f", $area_land_sq_mi);
$area_water_sq_mi = $geo_data[7];
$area_water_sq_mi = sprintf("%.0f", $area_water_sq_mi);
$area_total_sq_mi = $area_land_sq_mi + $area_water_sq_mi;
$area_percentage = $area_water_sq_mi/$area_total_sq_mi*100;
$area_percentage = sprintf("%.2f", $area_percentage);

$area_km2 = ($geo_data[4] + $geo_data[5])/1000000;
$density_km2 = $pop/$area_km2; 
$density_km2 = sprintf("%.1f", $density_km2);

$uk_state1 = $uk_state;
$uk_state1 = "Мен (штат)|Мен" if $uk_state eq " Мен";
$uk_state1 = "Мічиган (штат)|Мічиган" if $uk_state eq " Мічиган";
$uk_state1 = "Міссісіпі (штат)|Міссісіпі" if $uk_state eq " Міссісіпі";
$uk_state1 = "Міссурі (штат)|Міссурі" if $uk_state eq " Міссурі";
$uk_state1 = "Нью-Йорк (штат)|Нью-Йорк" if $uk_state eq " Нью-Йорк";

print <<PAGE_END
START
'''$uk_spec'''
{{Округ США|
 county  = Округ $uk_county|
 english_county = $en_county|
 state = $uk_state |
 english_state = $en_state |
 seal = $seal |
 map = Map of $en_state highlighting $en_county.png |
 map size = 250|
 founded = $founded|
 seat =  $seat | 
 largest city = $largest_city |
 area_total_sq_mi = $area_total_sq_mi |
 area_land_sq_mi =  $area_land_sq_mi |
 area_water_sq_mi = $area_water_sq_mi |
 area percentage = $area_percentage\&nbsp\;%|
 census yr = $census_yr |
 pop =  $pop |
 density_km2 = $density_km2|
 web = $web |
 ID = $geo_id |
 US_ID = $us_id 
}}

'''Округ $uk_county''' ({{lang-en|$en_county}})&nbsp;— округ (графство) у штаті [[$uk_state1]], [[США]]. Ідентифікатор округу $geo_id. 

== Демографія == 

За даними перепису 2000 року<ref name="GR2">{{cite web|url=http://factfinder.census.gov|publisher=[[Бюро перепису населення США]]|accessdate=2008-01-31|title=American FactFinder}}</ref> загальне населення округу складало $pop осіб, $urban_rural. Серед мешканців округу чоловіків було $male, а жінок — $female. В окрузі було $households господ, $families родин, які мешкали в $houses будинках. Середній розмір родини складав $av_fam.

Віковий розподіл населення поданий у таблиці:
{| class = "wikitable"
! Стать
! До 15 років
! 15-21
!22-29
! 30-39
! 40-49
!50-65
!65-85
!Понад 85
|-
|Чоловіки 
|$m_less15
|$m_21
|$m_29
|$m_39
|$m_49
|$m_65
|$m_85
|$m_over
|-
| Жінки
|$f_less15
|$f_21
|$f_29
|$f_39
|$f_49
|$f_65
|$f_85
|$f_over
|}

== Дивіться також == 

* [[Список оргугів штату$uk_state1]]

== Виноски == 

{{reflist}}

{{US-geo-stub}}

{{Штат$uk_state1}}


[[en:$en_spec]]
END
PAGE_END
;  
}