- DarkWiki

Perl — мова програмування створена Ларрі Волом (Larry Wall), яка запозичила властивості з C, sed, awk, shell, та, в меншій мірі, з інших мов програмування. Іноді Perl розшифровують як «Мова практичного виділення та звітів» (Practical Extraction and Report Language).

Перша версія Perl з'явилася в 1987 році. Perl було створено як мову для виділення необхідної інформації з текстових даних, та створення звітів з отриманої інформації. Perl містить потужний механізм роботи з регулярними виразами(regular expressions), який вбудований в синтаксис мови. Завдяки всім цим якостям Perl став часто використовуватись для написання CGI-скриптів.

Perl — вільне програмне забезпечення, що розповсюджується під комбінацією двох ліцензій GPL та Artistic License. Існують версії цієї мови програмування для переважної більшості існуючих операційних систем. Прикладом програмного забезпечення написаного на Perl є Вікіпедія, яка до січня 2002 року була Perl-скриптом. В Інтернет-проектах Perl часто використовується в поєднанні з веб-сервером Apache та його модулем mod_perl. Також широке застосування Perl має в системному програмуванні в операційній системі Linux.

Величезна колекція різноманітних модулів знаходиться на сайті CPAN.

Останній реліз мови 5.10.0 має підтримку Unicode. Також ведуться роботи над створенням наступної версії — Perl 6.

[ред.] Синтаксис

Синтаксис Perl має багато спільного з синтаксисом мов Сі, Awk, Sed і Shell. Перший рядок початкового коду повинен починатися з "#!/Шлях/до/Perl [-ключі]" - що указує системі шлях до інтерпретатора Perl для виконання програми в *NIX системах і виконання їх на Веб-сервері.

[ред.] Приклад програми

Перл часто використовується для перетворення форматів файлів. Наведена нижче програма перетворює «Infobox Town AT» (збережений в файлі city.txt) англійської вікіпедії в Картку:Місто української, створюючи майже готову сторінку.

# /usr/bin/perl
 
$country = 'Австрія';
$region = 'Каринтія';
$town = '{{subst:PAGENAME}}';
 
open (MTC,"city.txt");
 
while ($line = <MTC>)
{
  if ($line =~ m/^[\{\}]/)
   {
}
else
  {
      ($name1, $name2, $res) = split(/=/, $line,3);   
        $name1 =~ s/\s//;
        $name2 =~ s/\n//;
        $name2 =~ s/\|//;
        $name2 =~ s/\s+$//;
      if ($name1 eq 'name')
        {$town_local = $name2;}
       if ($name1 eq 'image_coa')
        {$coat = $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;}
  }
}
 
print<<EndCard
\{\{Картка:Місто
 | назва               = $town
 | місцева_назва       = $town_local
 | зображення          = $image
 | зображення_розмір   = $image_size
 | зображення_підпис   = $caption
 | прапор              = $flag
 | прапор_підпис       = $flag_caption
 | герб                = $coat
 | герб_підпис         = $coat_caption
 | країна              = $country
 | регіон              = $region
 | розташування        = $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-de\|$town_local\}\}) - місто в федеральній землі [[Каринтія]], [[Австрія]]. 
\{\{geo-stub\}\}
 
\[\[Категорія:Міста Австрії\]\]
\[\[de:$town_local\]\]
 
 
EndCard
;

Навігація

Участь

Пошук

Панель інструментів

Іншими мовами

Perl

Зміст

[ред.] Синтаксис

[ред.] Приклад програми

[ред.] Ресурси Інтернет

[ред.] Заходи