Користувач:Дядько Ігор/Аналіз1000

#!/usr/bin/perl 

sub printentry {
   my($entry, $n, $title) = @_;
   my $percentage, $rounded;
  $percentage = $entry/$n*100;
  $rounded = sprintf("%.1f", $percentage);
   print "|-\n||$title ||$entry ||$rounded%\n";
}

open(FF, "1000_analys.txt"); 

$i = 0;

while ($line1 = <FF>)
{
  $n = <FF>;
  $name = <FF>;
  $length = <FF>; 
  $catg = <FF>;
  $note = <FF>;
  $settl++ if ($catg =~ m/нас\. пункт/);
  $disambig++ if ($catg =~ m/дисамбіг/);
  $bio++ if ($catg =~ m/біографія/);
  $astronomy++ if ($catg =~ m/астрономія/);
  $geography++ if ($catg =~ m/географія/);
  $history++  if ($catg =~ m/історія/);
  $biology++ if ($catg =~ m/біологія/);
  $geology++ if ($catg =~ m/геологія/); 
  $math++ if ($catg =~ m/математика/); 
  $physics++ if ($catg =~ m/фізика/);
  $chemistry++ if ($catg =~ m/хімія/);
  $tech++ if ($catg =~ m/техніка/);
  $date++  if ($catg =~ m/дата/); 
  $school++ if ($catg =~ m/школа/);
  $cine++ if ($catg =~ m/кіно/);
  $film++  if ($catg =~ m/фільм/);
  $band++ if ($catg =~ m/гурт/);
  $music++ if ($catg =~ m/музика/);
  $sport++ if ($catg =~ m/спорт/);
  $tb++ if ($catg =~ m/ТБ/);
  $character++ if ($catg =~ m/персонаж/);
  $herald++ if $catg =~m/геральдика/;
  $numiz++ if $catg =~m/нумізматика/;
  $religion++ if $catg =~m/релігія/;
  $military++ if $catg =~m/військо/;
  $street++ if $catg =~m/вулиця/;
  $holiday++ if $catg =~m/свято/;
  $car++ if $catg =~m/авто/;
  $pol++ if $catg =~m/політика/;
  $archeology++ if $catg =~m/археологія/;
  $economy++ if $catg =~m/економіка/;
  $nobility++ if $catg =~m/шляхта/;
  $electronics++  if $catg =~m/електроніка/;
  $linguo++ if $catg =~m/лінгвістика/;
  $myth++  if $catg =~m/міфологія/;
  $normdoc++ if $catg =~m/нормдок/;
  $architecture++ if  $catg =~m/архітектура/;
  $application++ if  $catg =~m/програма/;
  $programming++ if  $catg =~m/програмування/;
  $administration++ if  $catg =~m/адміністрація/;
  $medic++ if  $catg =~m/медицина/;
  $anatomy++ if  $catg =~m/анатомія/;
  $factory++ if $catg =~m/підприємство/;
  $culture++ if $catg =~m/культура/;
  $event++ if $catg =~m/подія/;
  $literature++ if $catg =~m/література/;
  $organization if $catg =~m/організація/;
  $from_ru++ if ($note =~ m/з ru/);
  $to_ru++ if ($note =~ m/на ru/);
  $i++;
} 

print "Загалом $i \n";

printentry $from_ru, $i, "З ру";
printentry $to_ru, $i, "На ру";
printentry $settl, $i, "Населених пунктів";
printentry $disambig, $i, "Дисамбігів";
printentry $bio, $i, "Біографій";
printentry $astronomy, $i, "Астрономія";
printentry $geography, $i, "Географія";
printentry $history, $i, "Історія";
printentry $biology, $i, "Біологія";
printentry $geology, $i, "Геологія";
printentry $math, $i, "Математика";
printentry $physics, $i, "Фізика";
printentry $chemistry, $i, "Хімія";
printentry $tech, $i, "Техніка";
printentry $date, $i, "Дат";
printentry $school, $i, "Навчальних закладів";
printentry $cine, $i, "Кіно";
printentry $film, $i, "Фільмів";
printentry $band, $i, "Гуртів";
printentry $music, $i, "Музика";
printentry $sport, $i, "Спорт";
printentry $tb, $i, "Телебачення";
printentry $character, $i, "Персонажів";
printentry $herald, $i, "Геральдика";
printentry $numiz, $i, "Нумізматика";
printentry $religion, $i, "Релігія";
printentry $military, $i, "Військові";
printentry $street, $i, "Вулиць";
printentry $holiday, $i, "Свят";
printentry $car, $i, "Автомобілів";
printentry $pol, $i, "Політика";
printentry $archeology, $i, "Археологія";
printentry $economy, $i, "Економіка";
printentry $nobility, $i, "Дворянство";
printentry $electronics, $i, "Електроніка";
printentry $myth, $i, "Міфологія";
printentry $linguo, $i, "Лінгвістика";
printentry $normdoc, $i, "Нормативні документи";
printentry $architecture, $i, "Архітектура";
printentry $application, $i, "Комп. програма";
printentry $programming, $i, "Програмування";
printentry $administration, $i, "Адміністрація";
printentry $medic, $i, "Медицина";
printentry $anatomy, $i, "Анатомія";
printentry $factory, $i, "Підприєство";
printentry $culture, $i, "Культура";
printentry $event, $i, "Подій";
printentry $literature, $i, "Література";
printentry $organization, $i, "Організація";