Користувач:Дядько Ігор/Скрипти/Грецьке місто

<source lang="perl">

1. /usr/bin/perl

$country = 'Греція'; $town = '{{subst:PAGENAME}}';

open (MTC,"city.txt");

while ($line = <MTC>) {

 if ($line =~ m/Infobox Greek Dimos/)
 {
  last;
 }

}

while ($line = <MTC>) {

 if ($line =~ m/^}}/)
  {
    last;
  }

else

 {
     $line =~ s/^\s+//;
     $line =~ s/\s+$//; 
     $line =~ s/\|//;
     $line =~ s/^\s+//;
     ($name1, $name2, $res) = split(/=/, $line,3);	

$name1 =~ s/^\s+//;

       $name1 =~ s/\s+$//;

$name2 =~ s/\n//; $name2 =~ s/\s+$//;

       $name2 =~ s/^\s+//;
     if ($name1 eq 'name')

{$eng_name = $name2;}

     if ($name1 eq 'name_local')

{$town_local = $name2;}

     if ($name1 eq 'image_skyline')
      {$image =$name2; }
    if ($name1 eq 'caption_skyline')
      {$caption =$name2; }
      if ($name1 eq 'city_seal')

{$coat = $name2;}

      if ($name1 eq 'city_flag')

{$flag = $name2;}

     if ($name1 eq 'postal_code')

{$postal_code = $name2;}

     if ($name1 eq 'population')

{$population = $name2;}

     if ($name1 eq 'pop_dens')

{$population_density = $name2; $population_density =~ s/\./\,/;}

     if ($name1 eq 'area')

{ $area = $name2; $area =~ s/\./\,/; }

    if ($name1 eq 'lat_deg')

{$lat_deg = $name2;}

    if ($name1 eq 'lat_min')

{$lat_min = $name2;}

    if ($name1 eq 'lon_deg')

{$lon_deg = $name2;}

    if ($name1 eq 'lon_min')

{$lon_min = $name2;}

   if ($name1 eq 'area_code')

{$city_code = $name2;}

   if ($name1 eq 'mayor')

{$mayor = $name2;}

    if ($name1 eq 'website')

{$web = $name2;}

    if ($name1 eq 'periph')

{$periph = $name2;}

    if ($name1 eq 'prefec')

{$prefec = $name2;}

 }

}

$c_links = 0; $c_iw;

while ($line = <MTC>) {

 if ($line =~ m/\*\[http/)

{

 @links[$c_links] = $line;
 $c_links++;

}

 if ($line =~ m/^\[\[[a-z][a-z]\:/)

{

 $line =~ s/^\s+//;
 $iw[$c_iw] = $line;
 $c_iw++;

} }

print<<EndCard \{\{Картка:Місто

| назва               = $town
| місцева_назва       = $town_local
| зображення          = $image
| зображення_розмір   = $image_size
| зображення_підпис   = $caption
| прапор              = $flag
| прапор_підпис       = $flag_caption
| герб                = $coat
| герб_підпис         = $coat_caption
| країна              = $country
| регіон              = $periph $prefec
| розташування        = $location
| розташування_розмір = $location_size
| засноване           = $foundation
| статус              = $status
| магдебурзьке право  = $magdeburg
| населення           = $population
| густота             = $population_density
| агломерація         = $aglomeration
| площа               = $area
| поштові індекси     = $postal_code
| код країни          = $country_code
| код міста           = $city_code
| координати          = \{\{Coor dms |$lat_deg\|$lat_min\|$lat_sec\|N\|$lon_deg\|$lon_min\|$lon_sec\|E\|/scale:30000\}\}
| поділ міста         = $structure
| міста-побратими     = $twins
| день міста          = $day
| адреса              = $address
| веб-сторінка        = $web
| мер                 = $mayor
}}

\{\{\subst:PAGENAME}\} (\{\{lang-el\|$town_local\}\}) - місто в Греції.

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

• Список міст Греції

Зовнішні посилання

@links

\{\{greece-geo-stub\}\}

\[\[Категорія:Міста Греції\]\] @iw

EndCard

<source>