{"id":283069,"date":"2016-12-26T18:40:04","date_gmt":"2016-12-26T15:40:04","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=283069"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=283069","title":{"rendered":"\u041c\u043e\u0434\u0443\u043b\u044c HTML::Phl \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 HTML-\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u0445 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u0441 \u043a\u043e\u0434\u043e\u043c Perl"},"content":{"rendered":"

<\/p>\n

    \u0412 \u0441\u0442\u0430\u0442\u044c\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u0430 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u044f \u043c\u043e\u0434\u0443\u043b\u044f HTML::Phl<\/font> \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 HTML-\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430\u043c\u0438, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u043c\u0438 \u043a\u043e\u0434 \u044f\u0437\u044b\u043a\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Perl.<\/p>\n

    \u0417\u0430\u0434\u0430\u0447\u0430 \u043c\u043e\u0434\u0443\u043b\u044f HTML::Phl<\/font> \u2014 \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u0438\u0437 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u0433\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0444\u043e\u0440\u043c\u0430\u0442\u0430 HTML, \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u043d\u044b\u0439 \u0432 \u043d\u0435\u043c \u043e\u0441\u043e\u0431\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c perl-\u043a\u043e\u0434, \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043a\u043e\u0435-\u043a\u0430\u043a\u0438\u0435 \u043c\u0430\u043d\u0438\u043f\u0443\u043b\u044f\u0446\u0438\u0438 \u043d\u0430\u0434 \u043d\u0438\u043c \u0438 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u043c \u043a\u043e\u0434\u043e\u043c, \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0432 \u0435\u0434\u0438\u043d\u044b\u0439 \u043a\u043e\u0434 perl \u0438 \u00ab\u0441\u043a\u043e\u0440\u043c\u0438\u0442\u044c\u00bb \u0432\u0441\u0451 \u044d\u0442\u043e ‘eval<\/font>‘, \u043f\u043e\u043b\u0443\u0447\u0430\u044f \u043d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u0441\u0433\u0435\u043d\u0435\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e HTML-\u0441\u0442\u0440\u0430\u043d\u0438\u0446\u0443, \u0432\u043e\u0441\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u043c\u0443\u044e \u0432\u0435\u0431-\u0431\u0440\u0430\u0443\u0437\u0435\u0440\u043e\u043c.<\/p>\n

\u041f\u0440\u0438\u043c\u0435\u0440<\/b><\/p>\n
\n
1   <HTML> 2   <HEAD> 3   <META content="text\/html; charset=UTF-8" http-equiv="Content-Type"> 4   <TITLE>\u041f\u0440\u0438\u043c\u0435\u0440 PHL<\/TITLE> 5   <\/HEAD> 6    7   \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0434\u0432\u0430 \u0434\u043e\u0447\u0435\u0440\u043d\u0438\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 f1 \u0438 f2<br> 8 9   %pl  include("process_win.phl", "fork decode=cp1251", "f1"); 10  %pl  include("process_utf.phl", "fork decode=utf8", "f2"); 11 12  \u0416\u0434\u0435\u043c \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0432<br> 13 14  <%pl my %join = include("JOIN", "f1 f2"); %> 15 16  \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0432<br> 17 18  <%pl 19     foreach my $key(keys(%join)) { 20        if (ref $join{$key}) { 21           print "\u043f\u0440\u043e\u0446\u0435\u0441\u0441 '$key' - \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442: "; 22           for (my $i = 0; $i <= $#{$join{$key}}; $i++) { 23              print "'${$join{$key}}[$i]' "; 24           } 25           print "<br>"; 26        } else { 27           print "\u043f\u0440\u043e\u0446\u0435\u0441\u0441 '$key' - \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442: '$join{$key}'<br>"; 28        } 29     } 30  %> 31    32  <\/HTML> <\/code><\/pre>\n
  <\/div>\n<\/div>\n
      \u0421\u0442\u0430\u0442\u044c\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0430 \u0432 \u043e\u0437\u043d\u0430\u043a\u043e\u043c\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0446\u0435\u043b\u044f\u0445, \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043c\u043e\u0434\u0443\u043b\u044f \u043d\u043e\u0441\u0438\u0442 \u043a\u043e\u043d\u0446\u0435\u043f\u0442\u0443\u0430\u043b\u044c\u043d\u044b\u0439 \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440, \u0438 \u0435\u0433\u043e \u043d\u0430\u0434\u0435\u0436\u043d\u043e\u0435 \u043f\u0440\u0438\u043c\u0435\u043d\u0435\u043d\u0438\u0435 \u043d\u0443\u0436\u0434\u0430\u0435\u0442\u0441\u044f \u0432 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u043c \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438.
  <\/a>  <\/p>\n\n
  <\/a>  <\/p>\n
\u041e\u0433\u043b\u0430\u0432\u043b\u0435\u043d\u0438\u0435:<\/h2>\n
  \u0421\u043f\u0435\u0446\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u044f PHL<\/a>
      \u2022 \u0423\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438<\/a>
      \u2022 \u0420\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0438<\/a>
      \u2022 \u041a\u043b\u044e\u0447\u0438<\/a>
      \u2022 \u0424\u0443\u043d\u043a\u0446\u0438\u0438<\/a>
      \u2022 \u041c\u043e\u0434\u0443\u043b\u0438-\u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f<\/a>
      \u2022 \u041a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0435 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438<\/a>
  \u0414\u0438\u0441\u0442\u0440\u0438\u0431\u0443\u0442\u0438\u0432 PHL<\/a><\/p>\n
  <\/a>  <\/p>\n
\u0421\u043f\u0435\u0446\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u044f PHL  ^ <\/a><\/h2>\n
      \u0412 HTML \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0435 perl-\u043a\u043e\u0434 \u0440\u0430\u0437\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0441\u0432\u043e\u0435\u043e\u0431\u0440\u0430\u0437\u043d\u044b\u0445 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439. \u0423 \u043a\u0430\u0436\u0434\u043e\u0439 \u0442\u0430\u043a\u043e\u0439 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u0435\u0441\u0442\u044c \u043d\u0430\u0447\u0430\u043b\u043e \u0438 \u043a\u043e\u043d\u0435\u0446, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0449\u0438\u0435 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043a\u043e\u0434 perl \u0432 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0435.
      \u0412 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u0438 PHL \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043e \u0442\u0440\u0438 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u0430 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439:<\/p>\n
  1. \u041b\u0438\u043d\u0435\u0439\u043d\u0430\u044f \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044f:
     %pl<\/font> [keys] [perl code]<\/font><\/p>\n
  2. \u0418\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044f \u0432 \u0432\u0438\u0434\u0435 \u043e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430:
     <%pl<\/font>[(:|=)[name]] [keys] [perl code]<\/font> %><\/font><\/p>\n
  3. \u041c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u044b\u0439 \u0431\u043b\u043e\u043a:
     <%pl<\/font>[(:|=)[name]] [keys]
        [perl code]<\/font>
     %><\/font><\/p>\n
  \u0433\u0434\u0435
      ‘%pl<\/font>‘, ‘<%pl<\/font>‘, ‘%><\/font>‘ \u2014 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438<\/a> \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 (\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u043d\u0430\u0447\u0430\u043b\u043e \u0438 \u043a\u043e\u043d\u0435\u0446 \u043a\u043e\u0434\u0430 Perl);<\/p>\n
      [name]<\/font> \u2014 \u0438\u043c\u044f \u0431\u043b\u043e\u043a\u0430 (\u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u0438 \u0431\u043b\u043e\u043a\u043e\u0432, \u043f\u0440\u0435\u0438\u043c\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0440\u0438 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u043e\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438);<\/p>\n
      ‘:<\/font>‘ \u0438\u043b\u0438 ‘=<\/font>‘ \u2014 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0438<\/a> (\u0441 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044f\u043c\u0438 \u043c\u0435\u0436\u0434\u0443 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044f\u043c\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u0438 \u0438\u043c\u0435\u043d\u0435\u043c \u0431\u043b\u043e\u043a\u0430, \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b, \u043e\u0431\u043b\u0430\u0434\u0430\u044e\u0442 \u0440\u044f\u0434\u043e\u043c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0441\u0442\u0435\u0439);<\/p>\n
      [keys]<\/font> \u2014 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0435 \u043a\u043b\u044e\u0447\u0438<\/a> (\u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u0432\u0438\u0434\u043e\u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u043a\u043e\u0434 Perl, \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u043d\u044b\u0439 \u0432 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438, \u043f\u0435\u0440\u0435\u0434 \u0442\u0435\u043c \u043a\u0430\u043a \u0435\u0433\u043e \u043f\u0435\u0440\u0435\u0434\u0430\u0442\u044c \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440\u0443 \u043d\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435);<\/p>\n
      [perl code]<\/font> \u2014 \u043a\u043e\u0434 Perl.<\/p>\n
\u041f\u0440\u0438\u043c\u0435\u0440\u044b<\/b><\/p>\n
\n
  %pl print sqrt(2);    <%pl print $var; %>      <%pl= $var; %>      <%pl       foreach my $key(keys(%ENV)) {          print "$key \u2014 $ENV{$key}<br>";       }   %> <\/code><\/pre>\n
  <\/div>\n<\/div>\n
      \u0423\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b [name]<\/font> \u0438 [keys]<\/font> \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u043d\u0435 \u0442\u0430\u043a \u0447\u0430\u0441\u0442\u043e, \u0438 \u0441 \u0443\u0441\u043f\u0435\u0445\u043e\u043c \u043c\u043e\u0436\u043d\u043e \u043e\u0431\u043e\u0439\u0442\u0438\u0441\u044c \u0438 \u0431\u0435\u0437 \u043d\u0438\u0445, \u043d\u043e \u0438\u0445 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0431\u044b\u0432\u0430\u0435\u0442 \u0432\u0435\u0441\u044c\u043c\u0430 \u0443\u0434\u043e\u0431\u043d\u044b\u043c.  <\/p>\n
  <%pl:f1 -fork      # \u041a\u043e\u0434 \u0434\u043e\u0447\u0435\u0440\u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430      my $f = "\u0414\u0430\u043d\u043d\u044b\u0435 \u0434\u043e\u0447\u0435\u0440\u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 f1";      sleep 1;      return $f;   %>      <%pl -join=f1      # \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0434\u043e\u0447\u0435\u0440\u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 f1      print $phl_join{f1};   %> <\/code><\/pre>\n
      \u041a \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c Perl \u0432 PHL \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f<\/a> ‘include()<\/font>‘), \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0441\u0431\u043e\u0440\u043a\u0438 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0438\u0437 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0444\u0430\u0439\u043b\u043e\u0432.  <\/p>\n
  %pl include($file_name);         <%pl include("$file_name", "socket"); %>    <%pl      my $result = include("$file_name", "open decode");   %> <\/code><\/pre>\n
  <\/a>  <\/p>\n
\u0423\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438  ^ <\/a><\/h2>\n
      \u041f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438 \u0438\u043c\u0435\u044e\u0442 \u0432\u0438\u0434: ‘<%pl<\/font>‘, ‘%><\/font>‘ \u0438 ‘%pl<\/font>‘.
      \u0423\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438 \u043c\u043e\u0436\u043d\u043e \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 \u0444\u0430\u0439\u043b\u0430 ‘Phl.pm<\/font>‘ \u0438\u043b\u0438 \u0432 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u043c \u0444\u0430\u0439\u043b\u0435 ‘config.phl<\/font>‘. \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435, \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0442\u0430\u043a <% …code perl\u2026 %><\/font> \u0438\u043b\u0438 \u0442\u0430\u043a [ …code perl\u2026 ]<\/font> \u0438\u043b\u0438 \u0434\u0430\u0436\u0435 \u0432o\u0442 \u0442\u0430\u043a \u00a6 …code perl\u2026 \u00a6<\/font>.<\/p>\n
      \u041f\u0440\u0438 \u0436\u0435\u043b\u0430\u043d\u0438\u0438 \u043c\u043e\u0436\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0441\u0432\u043e\u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 (\u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435) \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439. \u042d\u0442\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u0443\u0435\u0442\u0441\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043e\u0444\u043e\u0440\u043c\u043b\u0435\u043d\u043d\u044b\u0445 \u043c\u043e\u0434\u0443\u043b\u0435\u0439.<\/p>\n
      \u041a \u043f\u0440\u0438\u043c\u0435\u0440\u0443, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043c\u043e\u0434\u0443\u043b\u044f ‘HTML::Phl::Php<\/font>‘ \u0432 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043a \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044e \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 ‘<%pl<\/font>‘ \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c ‘<%php<\/font>‘, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0449\u0438\u0439 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u043a\u043e\u0434 \u044f\u0437\u044b\u043a\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f PHP.  <\/p>\n
 1  %pl -ev use HTML::Phl::Php;  2    3  <%php  4    echo "PHP >> <b>OK<\/b><br>";  5    echo date('H:i:s d.m.Y');  6  %> <\/code><\/pre>\n
  <\/p>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/b><\/p>\n
PHP >> OK<\/b>
  14:23:22 26.12.2016  <\/div>\n<\/div>\n
  <\/a>  <\/p>\n
\u0420\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0438 ^ <\/a><\/h2>\n
      \u0417\u0430\u0434\u0430\u0447\u0430 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0435\u0439 \u2014 \u043e\u0442\u0434\u0435\u043b\u0438\u0442\u044c \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u043e\u0442 \u0438\u043c\u0435\u043d\u0438 \u0431\u043b\u043e\u043a\u0430.
      \u0412 \u043e\u0442\u043b\u0438\u0447\u0438\u0435 \u043e\u0442 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044f ‘:<\/font>‘, \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ‘=<\/font>‘ \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u0442 \u0432 \u0430\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440\u0435 \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0446\u0438\u044e \u043a\u043e\u0434\u0430. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c, \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u0440\u0438\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044f ‘=<\/font>‘ \u0432 \u043e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u043c \u0438 \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u043c \u0431\u043b\u043e\u043a\u0430\u0445 \u0440\u0430\u0437\u043b\u0438\u0447\u0430\u044e\u0442\u0441\u044f.<\/p>\n
 1  %pl  my $test = "<b>\u0442\u0435\u0441\u0442<\/b>";  2    3  1. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f '<%pl= $test %>' \u0432\u043d\u0443\u0442\u0440\u0438 \u043e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430.  4  <br><br>  5    6  <%pl=name1  7     2. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f '$test' \u0432\u043d\u0443\u0442\u0440\u0438  8     \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 '<b>$phl_blok[1]<\/b>' (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c '=').  9  %>  10  <br><br>  11    12  <%pl:name2  13     print "3. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f '$test'";  14     print "\u0432\u043d\u0443\u0442\u0440\u0438 \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 '<b>$phl_blok[2]<\/b>' (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ':').";  15  %> <\/code><\/pre>\n
  <\/p>\n
\u041a\u043e\u0434 \u043f\u043e\u0441\u043b\u0435 \u0430\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440\u0430<\/b><\/p>\n
\n
 1  my $test = "<b>\u0442\u0435\u0441\u0442<\/b>";  2  print <<'[HTML]';  3     4  [HTML]  5  print <<'[HTML]' =~ \/(.*)\/;  6  1. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f '  7  [HTML]  8  print($test);  9  print <<'[HTML]';  10  ' \u0432\u043d\u0443\u0442\u0440\u0438 \u043e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430.  11  [HTML]  12  print <<'[HTML]';  13  <br><br>  14     15  [HTML]  16  print <<"[HTML]";  17     2. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f "$test" \u0432\u043d\u0443\u0442\u0440\u0438  18     \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 "<b>$phl_blok[1]<\/b>" (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c "=").  19  [HTML]  20  print <<'[HTML]';  21  <br><br>  22     23  [HTML]  24     print "3. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f '$test'";  25     print "\u0432\u043d\u0443\u0442\u0440\u0438 \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 '<b>$phl_blok[2]<\/b>' (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ':')."; <\/code><\/pre>\n
  <\/div>\n<\/div>\n
  <\/p>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/b><\/p>\n
1. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f ‘\u0442\u0435\u0441\u0442<\/b>‘ \u0432\u043d\u0443\u0442\u0440\u0438 \u043e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430.<\/p>\n
  2. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f ‘\u0442\u0435\u0441\u0442<\/b>‘ \u0432\u043d\u0443\u0442\u0440\u0438 \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 ‘name1<\/b>‘ (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ‘=’).<\/p>\n
  3. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f ‘\u0442\u0435\u0441\u0442<\/b>‘\u0432\u043d\u0443\u0442\u0440\u0438 \u043c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0433\u043e \u0431\u043b\u043e\u043a\u0430 ‘name2<\/b>‘ (\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ‘:’).  <\/div>\n<\/div>\n
  <\/a>  <\/p>\n
\u041a\u043b\u044e\u0447\u0438 ^ <\/a><\/h2>\n
      \u041a\u043b\u044e\u0447\u0438 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u0432\u0438\u0434\u043e\u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u043a\u043e\u0434 perl, \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u043d\u044b\u0439 \u0432 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044f\u0445. \u0418\u0445 \u043c\u043e\u0436\u043d\u043e \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u0432 \u043f\u043e\u043b\u043d\u043e\u043c \u0438\u043b\u0438 \u0432 \u0441\u043e\u043a\u0440\u0430\u0449\u0435\u043d\u043d\u043e\u043c \u0432\u0438\u0434\u0435:
          -begin<\/font>
          -end<\/font> 
          -perl_all<\/font>
          -eval<\/font> 
          -fork<\/font> 
          -thread<\/font> 
          -join<\/font> <\/p>\n
\u2022 \u041a\u043b\u044e\u0447\u0438 ‘-begin<\/font>‘ [ ‘-bg<\/font>‘ ] \u0438 ‘-end<\/font>‘<\/h3>\n
      \u041f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u043a\u043b\u044e\u0447\u0430 ‘-begin<\/font>‘ \u0430\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440 \u0431\u0435\u0440\u0435\u0442 \u043a\u043e\u0434 perl, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u0439\u0441\u044f \u0432 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438, \u0438 \u043e\u0431\u043e\u0440\u0430\u0447\u0438\u0432\u0430\u0435\u0442 \u0435\u0433\u043e \u0431\u043b\u043e\u043a\u043e\u043c ‘BEGIN {}<\/font>‘.
      \u0422\u043e \u0436\u0435 \u0441\u0430\u043c\u043e\u0435 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u043a\u043b\u044e\u0447\u0430 ‘-end<\/font>‘ \u2014 \u043a\u043e\u0434 perl \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u0431\u043b\u043e\u043a ‘END {}<\/font>‘.<\/p>\n
      \u0418\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u043a\u043e\u0434:  <\/p>\n
 1  1. \u0422\u0435\u043a\u0441\u0442 HTML<br>  2  <%pl -end  3     print "2. \u041f\u0435\u0440\u0432\u044b\u0439 end<br>";  4  %>  5  3. \u0422\u0435\u043a\u0441\u0442 HTML<br>  6    7  <%pl -begin  8     print "4. \u041f\u0435\u0440\u0432\u044b\u0439 begin<br>";  9  %>  10 5. \u0422\u0435\u043a\u0441\u0442 HTML<br>  11    12 <%pl -end  13    print "6. \u0412\u0442\u043e\u0440\u043e\u0439 end<br>";  14 %>  15 7. \u0422\u0435\u043a\u0441\u0442 HTML<br>  16    17 <%pl -bg  18    print "8. \u0412\u0442\u043e\u0440\u043e\u0439 begin<br>";  19 %>  20 9. \u0422\u0435\u043a\u0441\u0442 HTML<br> <\/code><\/pre>\n
  <\/p>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/b><\/p>\n
4. \u041f\u0435\u0440\u0432\u044b\u0439 begin
  8. \u0412\u0442\u043e\u0440\u043e\u0439 begin
  1. \u0422\u0435\u043a\u0441\u0442 HTML
  3. \u0422\u0435\u043a\u0441\u0442 HTML
  5. \u0422\u0435\u043a\u0441\u0442 HTML
  7. \u0422\u0435\u043a\u0441\u0442 HTML
  9. \u0422\u0435\u043a\u0441\u0442 HTML
  6. \u0412\u0442\u043e\u0440\u043e\u0439 end
  2. \u041f\u0435\u0440\u0432\u044b\u0439 end  <\/div>\n<\/div>\n
\u2022 \u041a\u043b\u044e\u0447 ‘-perl_all<\/font>‘ [ ‘-pl<\/font>‘ ]<\/h3>\n
      \u041f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u043b\u044e\u0447\u0430, \u043e\u0442\u043f\u0430\u0434\u0430\u0435\u0442 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u044c \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0432\u0430\u0442\u044c \u043a\u043e\u0434 perl \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044f\u043c\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439. \u0410\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440 \u0431\u0443\u0434\u0435\u0442 \u0432\u043e\u0441\u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u0432\u0435\u0441\u044c \u0442\u0435\u043a\u0441\u0442 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430, \u043a\u0430\u043a Perl-\u043a\u043e\u0434.<\/p>\n
 1  %pl -pl  2    3  use CGI;  4    5  print "Content-type: text\/html; charset=utf-8\\n\\n";  6    7  my $test = "\u0422\u0435\u043a\u0441\u0442";  8  my $q = new CGI;  9    10  print $q -> h4("$test \u0438\u0437 \u043c\u043e\u0434\u0443\u043b\u044f CGI");  11  print ("<H4>$test \u0438\u0437 Phl<\/H4>"); <\/code><\/pre>\n
  <\/p>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/b><\/p>\n
\n
\u0422\u0435\u043a\u0441\u0442 \u0438\u0437 \u043c\u043e\u0434\u0443\u043b\u044f CGI<\/h4>\n
  <\/p>\n
\u0422\u0435\u043a\u0441\u0442 \u0438\u0437 Phl<\/h4>\n
  <\/div>\n<\/div>\n
\u2022 \u041a\u043b\u044e\u0447 ‘-eval<\/font>‘ [ ‘-ev<\/font>‘ ]<\/h3>\n
      \u041a\u043b\u044e\u0447 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043a\u043e\u0434, \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u043d\u044b\u0439 \u0432\u043d\u0443\u0442\u0440\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438, \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u0440\u0430\u0431\u043e\u0442\u044b \u0430\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440\u0430 (\u043f\u0435\u0440\u0435\u0434 \u0435\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435\u043c eval<\/font>).
      \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u043b\u044e\u0447\u0430 \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438 ‘&lt%pl<\/font>‘ \u0438 \u0434\u0440., \u0440\u0430\u0437\u043c\u0435\u0441\u0442\u0438\u0432 \u0432 \u043a\u043e\u0434\u0435 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e:  <\/p>\n
 1  <%pl -eval  2    $phl{lt} = '[';  3    $phl{rt} = ']';  4    $phl{ln} = '~';  5    $phl{sh} = '';  6  %> <\/code><\/pre>\n
      \u0423\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439 \u043f\u0440\u0438\u043e\u0431\u0440\u0435\u043b\u0438 \u0441\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u043d\u043e \u0434\u0440\u0443\u0433\u043e\u0439 \u0432\u0438\u0434. \u0422\u0435\u043f\u0435\u0440\u044c \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0442\u0430\u043a\u0438\u043c \u0432\u043e\u0442 \u043e\u0431\u0440\u0430\u0437\u043e\u043c:  <\/p>\n
 1  [=  2    \u041c\u043d\u043e\u0433\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u044b\u0439 \u0431\u043b\u043e\u043a  3  ] <\/code><\/pre>\n
      \u0438\u043b\u0438 \u0442\u0430\u043a\u0438\u043c  <\/p>\n
 1  [ print "\u041e\u0434\u043d\u043e\u0441\u0442\u0440\u043e\u0447\u043d\u044b\u0439 \u0431\u043b\u043e\u043a" ] <\/code><\/pre>\n
      \u0438\u043b\u0438 \u0442\u0430\u043a\u0438\u043c  <\/p>\n
 1  ~ print "\u041b\u0438\u043d\u0435\u0439\u043d\u0430\u044f \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044f" <\/code><\/pre>\n
\u2022 \u041a\u043b\u044e\u0447 ‘-fork<\/font>‘ [ ‘-fk<\/font>‘ ]<\/h3>\n
      \u041a\u043e\u0434, \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u043d\u044b\u0439 \u0432\u043d\u0443\u0442\u0440\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u043e\u043c \u0434\u043e\u0447\u0435\u0440\u043d\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435, \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u043c \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0437\u0430\u043f\u0443\u0441\u043a\u0430 fork()<\/font>.  <\/p>\n
 1  <%pl:f1 -fork  2    # \u041a\u043e\u0434 \u0434\u043e\u0447\u0435\u0440\u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \u0441 \u0438\u043c\u0435\u043d\u0435\u043c f1  3    my $f;  4    sleep 1; # \u041f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u0430\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u043c f1  5    return $f;  6  %> <\/code><\/pre>\n
\u2022 \u041a\u043b\u044e\u0447 ‘-thread<\/font>‘ [ ‘-td<\/font>‘ ]<\/h3>\n
      \u041a\u043e\u0434, \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u043d\u044b\u0439 \u0432\u043d\u0443\u0442\u0440\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u043e\u043c \u043f\u043e\u0442\u043e\u043a\u0435 (\u00ab\u043d\u0438\u0442\u0438\u00bb, \u00ab\u0432\u0435\u0442\u043a\u0435\u00bb \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430), \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u043c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u043c \u043c\u043e\u0434\u0443\u043b\u0435\u043c ‘threads<\/font>‘ \u0432 \u0440\u0430\u043c\u043a\u0430\u0445 \u043e\u0434\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430.  <\/p>\n
 1  <%pl:t1 -thread  2    # \u041a\u043e\u0434 \u043d\u0438\u0442\u0438 \u0441 \u0438\u043c\u0435\u043d\u0435\u043c t1  3    my $t;  4    sleep 1; # \u041f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u0430\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 \u043d\u0438\u0442\u044c\u044e t1  5    return $t;  6  %> <\/code><\/pre>\n
\u2022 \u041a\u043b\u044e\u0447 ‘-join<\/font>‘ [ ‘-jn<\/font>‘ ]<\/h3>\n
      \u041a\u043b\u044e\u0447 \u0434\u0430\u0435\u0442 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0434\u043e\u0447\u0435\u0440\u043d\u0438\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0432 \u0438 \u043d\u0438\u0442\u0435\u0439.
      \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0440\u0430\u0437\u043c\u0435\u0449\u0430\u044e\u0442\u0441\u044f \u0432 \u0445\u044d\u0448\u0435 %phl_join<\/font>, \u043a\u043b\u044e\u0447\u0430\u043c\u0438 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0438\u043c\u0435\u043d\u0430 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u044b\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0432\/\u043f\u043e\u0442\u043e\u043a\u043e\u0432. \u0415\u0441\u043b\u0438 \u043f\u0440\u0438 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u0438 \u0437\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u043c \u043d\u0443\u0436\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u044b \u0435\u0449\u0451 \u043d\u0435 \u0437\u0430\u0432\u0435\u0440\u0448\u0438\u043b\u0438\u0441\u044c, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0436\u0434\u0435\u0442 \u0438\u0445 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u044f.  <\/p>\n
 1  <%pl -join  2    # \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0445 \u0434\u043e\u0447\u0435\u0440\u043d\u0438\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0432 \u0438 \u043f\u043e\u0442\u043e\u043a\u043e\u0432  3    foreach my $key(keys(%phl_join)) {  4        if (ref $phl_join{$key}) {  # \u0435\u0441\u043b\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 - \u0441\u0441\u044b\u043b\u043a\u0430  5          my @result = @{$phl_join{$key}};  6          print "\u043f\u0440\u043e\u0446\u0435\u0441\u0441 '$key' - \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 '$result[0]'";  7        } else {  8          print "\u043f\u0440\u043e\u0446\u0435\u0441\u0441 '$key' - \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 '$phl_join{$key}'";  9        }  10    }  11  %> <\/code><\/pre>\n
\u2022 \u0414\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u043a\u043b\u044e\u0447\u0438<\/h3>\n
      \u041f\u0440\u0438 \u0436\u0435\u043b\u0430\u043d\u0438\u0438 \u043c\u043e\u0436\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0441\u0432\u043e\u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 (\u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435) \u043a\u043b\u044e\u0447\u0438 \u0438\u043b\u0438 \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435. \u042d\u0442\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u0443\u0435\u0442\u0441\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043e\u0444\u043e\u0440\u043c\u043b\u0435\u043d\u043d\u044b\u0445 \u043c\u043e\u0434\u0443\u043b\u0435\u0439.
      \u0422\u0430\u043a, \u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043c\u043e\u0434\u0443\u043b\u044f ‘HTML::Phl::Utilit<\/font>‘ \u0438 \u043a\u043b\u044e\u0447\u0430 ‘-import<\/font>‘ [ ‘-im<\/font>‘ ] \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0441\u043f\u0438\u0441\u043e\u043a \u0432\u0441\u0435\u0445 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u0435\u0439, \u043a\u043b\u044e\u0447\u0435\u0439 \u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432, \u0432 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435.<\/p>\n
 1  %pl -ev use HTML::Phl::Utilit;  2    3  %pl -import <\/code><\/pre>\n
  <\/p>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/b><\/p>\n
1. HTML::Phl::Php<\/u><\/b>
      \u2022 param:<\/b>
          \u2014 php<\/font><\/b>
      \u2022 sh:<\/b>
          \u2014 php<\/font><\/b>
  2. HTML::Phl::Psimple<\/u><\/b>
      \u2022 param:<\/b>
          \u2014 Simple<\/font><\/b>
          \u2014 sl<\/font><\/b>
  3. HTML::Phl::Result<\/u><\/b>
      \u2022 param:<\/b>
          \u2014 result<\/font><\/b>
  4. HTML::Phl::Ru<\/u><\/b>
      \u2022 sh:<\/b>
          \u2014 \u0440\u0443\u0441<\/font><\/b>
  5. HTML::Phl::Utilit<\/u><\/b>
      \u2022 eval:<\/b>
          \u2014 analys<\/font><\/b>
          \u2014 as<\/font><\/b>
          \u2014 listing<\/font><\/b>
          \u2014 lt<\/font><\/b>
      \u2022 include:<\/b>
          \u2014 CONFIG<\/font><\/b>
          \u2014 TIMER<\/font><\/b>
      \u2022 key:<\/b>
          \u2014 analys<\/font><\/b>
          \u2014 as<\/font><\/b>
          \u2014 cf<\/font><\/b>
          \u2014 config<\/font><\/b>
          \u2014 im<\/font><\/b>
          \u2014 import<\/font><\/b>
          \u2014 listing<\/font><\/b>
          \u2014 lt<\/font><\/b>
          \u2014 no_timer<\/font><\/b>
          \u2014 nt<\/font><\/b>
          \u2014 timer<\/font><\/b>
          \u2014 tm<\/font><\/b>
      \u2022 param:<\/b>
          \u2014 listing<\/font><\/b>
          \u2014 lt<\/font><\/b>  <\/div>\n<\/div>\n
  <\/a>  <\/p>\n
\u0424\u0443\u043d\u043a\u0446\u0438\u0438 ^ <\/a><\/h2>\n
      \u0412 PHL \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0430 \u0432\u0441\u0435\u0433\u043e \u043e\u0434\u043d\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f ‘include()<\/font>‘, \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0441\u0431\u043e\u0440\u043a\u0438 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0438\u0437 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0444\u0430\u0439\u043b\u043e\u0432, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u0445 HTML (TXT) \u0438\u043b\u0438 PHL \u0440\u0430\u0437\u043c\u0435\u0442\u043a\u0443.
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f ‘include()<\/font>‘ \u043f\u043e\u0445\u043e\u0436\u0430 \u043d\u0430 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u0443\u044e Perl \u0444\u0443\u043d\u043a\u0446\u0438\u044e ‘open()<\/font>‘, \u0441 \u0442\u0435\u043c \u043e\u0442\u043b\u0438\u0447\u0438\u0435\u043c, \u0447\u0442\u043e \u043f\u0435\u0440\u0432\u044b\u043c \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u043c \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0438\u043c\u044f \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u0433\u043e \u0432 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u0444\u0430\u0439\u043b\u0430, \u0430 \u0432\u0442\u043e\u0440\u044b\u043c \u2014 \u043e\u0434\u0438\u043d \u0438\u043b\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432.  <\/p>\n
 1  %pl include($file_name);  2       3  <%pl include("$file_name", "socket"); %>  4    5  <%pl  6     my $result = include($file_name, "open decode");  7  %> <\/code><\/pre>\n
      \u0412 \u043e\u0431\u0449\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 ‘include()<\/font>‘ \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0442\u0430\u043a:<\/p>\n
      include("file_name<\/font>" [, "param<\/font>" [, "name_process<\/font>"]])<\/font>;<\/p>\n
  file_name<\/font>: 
      \u00abfile_name.phl\u00bb
      \u00abfile_name.cgi\u00bb
      \u00abfile_path\/file_name.phl\u00bb
      "\/file_path\/file_name.html"
      \u00abhtt\u0440:\/\/domain\/file_path\/file_name.html\u00bb<\/p>\n
  [param]<\/font>:
      phl<\/font>,   exist<\/font>,   head<\/font>
      abs<\/font>,   no_abs<\/font>,   no_eval<\/font>
      no_strict<\/font>,   open<\/font>,   decode<\/font>
      no_decode<\/font>,   cgi<\/font>,   socket<\/font>
      fork<\/font>,   thread<\/font><\/p>\n
  \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0438 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438:
      phl [.phl]<\/font> <= exist, head, abs, decode<\/font>
      cgi [.cgi]<\/font> <= require, decode<\/font>
      open<\/font> <= decode, abs<\/font>
      socket<\/font> <= exist, head, no_abs, decode, no_decode<\/font>
      fork<\/font> <= waitpid, no_waitpid<\/font>
      thread<\/font> <= join, detach<\/font><\/p>\n
      \u041f\u0435\u0440\u0432\u044b\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 ‘file_name<\/font>‘ \u043a\u0440\u043e\u043c\u0435 \u0438\u043c\u0435\u043d\u0438 \u0444\u0430\u0439\u043b\u0430 \u043c\u043e\u0436\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0437\u0430\u0440\u0435\u0437\u0435\u0440\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 "JOIN<\/font>", "CONFIG<\/font>" \u0438\u043b\u0438 "TIMER<\/font>".
      \u0415\u0441\u043b\u0438 \u0444\u0430\u0439\u043b ‘file_name<\/font>‘ \u0438\u043c\u0435\u0435\u0442 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 ‘.phl<\/font>‘, \u0442\u043e \u0442\u0430\u043a\u043e\u0439 \u0444\u0430\u0439\u043b \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u0446\u0438\u0440\u0443\u0435\u0442\u0441\u044f, \u043a\u0430\u043a \u0444\u0430\u0439\u043b \u0444\u043e\u0440\u043c\u0430\u0442\u0430 PHL. \u0420\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u043e \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e $phl{pl}<\/font>.
      \u041f\u0440\u0438 \u0432\u044b\u0437\u043e\u0432\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 ‘include()<\/font>‘ \u0432 \u043d\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u043c \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043a\u043e\u0434\u0430 Perl \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u0442\u0435\u043b\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0432\u043d\u0443\u0442\u0440\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 print()<\/font>. \u041f\u0440\u0438 \u0441\u043a\u0430\u043b\u044f\u0440\u043d\u043e\u043c \u0438\u043b\u0438 \u0441\u043f\u0438\u0441\u043a\u043e\u0432\u043e\u043c \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u0432\u0438\u0434\u0435 \u0437\u0430\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0438\u043b\u0438 \u0441\u043f\u0438\u0441\u043a\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e.  <\/p>\n
 1 <%pl  2    include("file_name.phl");  3    my $result = include("file_name.phl");  4    my @result = include("file_name.phl");  5 %> <\/code><\/pre>\n
      \u0412\u0442\u043e\u0440\u043e\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 ‘include()<\/font>‘ \u043c\u043e\u0436\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u043e\u0434\u0438\u043d \u0438\u043b\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432.<\/p>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘phl<\/font>‘<\/h3>\n
      \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0443, \u0447\u0442\u043e \u043a\u043e\u0434, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u0439\u0441\u044f \u0432 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u043c \u0444\u0430\u0439\u043b\u0435, \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u043e\u0431\u043e\u0439 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u0444\u043e\u0440\u043c\u0430\u0442\u0430 PHL.
      \u0414\u0430\u043d\u043d\u044b\u0435 \u0444\u0430\u0439\u043b\u0430 \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0432 \u0430\u043d\u0430\u043b\u0438\u0437\u0430\u0442\u043e\u0440, \u0433\u0434\u0435 \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u044e\u0442\u0441\u044f \u0432 perl-\u043a\u043e\u0434 \u0438 \u043f\u0435\u0440\u0435\u0434\u0430\u044e\u0442\u0441\u044f ‘eval<\/font>‘.
      \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘phl<\/font>‘ \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u044b\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f, \u0435\u0441\u043b\u0438 \u0431\u044b \u043c\u044b \u0432 \u0438\u043c\u0435\u043d\u0438 \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u0443\u043a\u0430\u0437\u0430\u043b\u0438 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 ‘.phl<\/font>‘ (\u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 \u043c\u043e\u0436\u043d\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 \u0432 ‘$phl{pl}<\/font>‘).  <\/p>\n
 1 <%pl  2    include("file_name.txt", "phl");  3    my $result = include("file_name.html", "phl decode=utf-8");  4    my @result = include("file_name", "phl abs");  5 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘exist<\/font>‘ (‘ex<\/font>‘)<\/h3>\n
      \u041f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430.  <\/p>\n
 1 <%pl  2    my $exist_file = include("$file_name", "exist");  3    if ($exist_file) {  4        print "\u0424\u0430\u0439\u043b $file_name \u043d\u0430\u0439\u0434\u0435\u043d";  5    } else {  6        print "\u0424\u0430\u0439\u043b $file_name \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d";  7    }  8 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘head<\/font>‘ (‘hd<\/font>‘)<\/h3>\n
      \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437 5 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432: Content type, Document length, Modified time, Expires, Server.  <\/p>\n
 1 <%pl  2    my @head = include("$file_name", "head");  3 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘abs<\/font>‘<\/h3>\n
      \u0415\u0441\u043b\u0438 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘abs<\/font>‘, \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0441\u0441\u044b\u043b\u043e\u043a, \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0445 \u0432 \u0444\u0430\u0439\u043b\u0435, \u0432 \u0430\u0431\u0441\u043e\u043b\u044e\u0442\u043d\u044b\u0435.  <\/p>\n
 %pl include("$file_name", "abs"); <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘no_eval<\/font>‘ (‘ne<\/font>‘)<\/h3>\n
      \u041f\u0440\u0438 \u0443\u043a\u0430\u0437\u0430\u043d\u0438\u0438 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043a\u043e\u0434\u0430 \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0438\u0433\u043d\u043e\u0440\u0438\u0440\u0443\u0435\u0442\u0441\u044f.  <\/p>\n
 <%pl include("$file_name", "no_eval") %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘no_strict<\/font>‘ (‘ns<\/font>‘)<\/h3>\n
      \u0415\u0441\u043b\u0438 \u0443\u043a\u0430\u0437\u0430\u043d \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘no_strict<\/font>‘, \u0442\u043e \u043d\u0430 \u043a\u043e\u0434 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 ‘$file_name<\/font>‘ \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u043f\u0440\u0430\u0433\u043c\u044b ‘use strict<\/font>‘ \u043d\u0435 \u0440\u0430\u0441\u043f\u0440\u043e\u0441\u0442\u0440\u0430\u043d\u044f\u0435\u0442\u0441\u044f.  <\/p>\n
 1 <%pl  2    include("$file_name", "ns");  3 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘open<\/font>‘ ( ‘on<\/font>‘ )<\/h3>\n
      \u041a\u0430\u043a \u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f ‘open()<\/font>‘, \u0441\u043b\u0443\u0436\u0438\u0442 \u0434\u043b\u044f \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f \u0444\u0430\u0439\u043b\u0430 \u0438 \u0438\u0437\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u044f \u0438\u0437 \u043d\u0435\u0433\u043e \u043a\u0430\u043a\u0438\u0445-\u043b\u0438\u0431\u043e \u0434\u0430\u043d\u043d\u044b\u0445 (\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0437\u0430\u043f\u0438\u0441\u0438 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0444\u0430\u0439\u043b \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442).  <\/p>\n
 1 <%pl  2    include("$file_name", "open");  3    my $result = include("$file_name", "open decode=koi8-r");  4    my @result = include("$file_name", "on, decode=cp1251, abs");  5 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘decode<\/font>‘ (‘dc<\/font>‘)<\/h3>\n
      \u041f\u0440\u0438 \u043d\u0430\u043b\u0438\u0447\u0438\u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 ‘decode<\/font>‘ \u0434\u0430\u043d\u043d\u044b\u0435 \u0438\u0437 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0439 \u0432 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u0445 \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0438 (\u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443, ‘decode=cp1251<\/font>‘) \u0434\u0435\u043a\u043e\u0434\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u0432\u043e \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 \u0444\u043e\u0440\u043c\u0430\u0442 Perl.
      \u0415\u0441\u043b\u0438 \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430 \u043d\u0435 \u0443\u043a\u0430\u0437\u0430\u043d\u0430 \u0438\u043b\u0438 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘decode<\/font>‘, \u0442\u043e \u043f\u0440\u0438 \u0434\u0435\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438 \u043f\u043e\u0434\u0440\u0430\u0437\u0443\u043c\u0435\u0432\u0430\u0435\u0442\u0441\u044f, \u0447\u0442\u043e \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430 \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 $phl{encoding_in}<\/font>, \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0439 \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 phl.pm<\/font> (\u0438\u043b\u0438 config.phl<\/font>).
      \u0415\u0441\u043b\u0438 \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0438\u0440\u0443\u044e\u0449\u0435\u0433\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u043e\u0442\u043b\u0438\u0447\u043d\u0430 \u043e\u0442 ‘utf-8<\/font>‘, \u0442\u043e \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0443 $phl{encoding_out}<\/font>, \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u0443\u044e \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 phl.pm<\/font> (\u0438\u043b\u0438 config.phl<\/font>).
      \u041a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0438 \u0434\u0435\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0433\u043e \u043c\u043e\u0434\u0443\u043b\u044f ‘Encode.pm<\/font>‘.<\/p>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘cgi<\/font>‘<\/h3>\n
      \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d \u0434\u043b\u044f \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f cgi-\u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0432, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 Perl.  <\/p>\n
 1 <%pl  2    include("file_name.cgi");  3    include("$file_name", "cgi");  4    include("$file_name", "cgi require");   5    include("file_name.cgi", "decode=cp866");  6 %> <\/code><\/pre>\n
\u2022 \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘socket<\/font>‘ (‘sk<\/font>‘)<\/h3>\n
      \u041f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438 web-\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0433\u043e \u043c\u043e\u0434\u0443\u043b\u044f ‘IO::Socket::INET<\/font>‘  <\/p>\n
 1 <%pl  2    include("file_name.html", "socket");  3    include("http:\/\/domain\/");  4    my $text = include("http:\/\/domain\/file_path\/file_name.html", "decode=cp1251");  5    my @result = include("$file_name", "decode no_abs");  6 %> <\/code><\/pre>\n
      \u0415\u0441\u043b\u0438 \u0430\u0434\u0440\u0435\u0441 \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u043e\u0433\u043e \u0432 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u0444\u0430\u0439\u043b\u0430 \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u0441 http \u0438\u043b\u0438 ftp, \u0442\u043e \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 ‘socket<\/font>‘ \u043d\u0435 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e.
      \u0421\u043e\u0432\u043c\u0435\u0441\u0442\u043d\u043e \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c ‘socket<\/font>‘ \u043c\u043e\u0433\u0443\u0442 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0442\u044c\u0441\u044f \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b ‘exist<\/font>‘, ‘head<\/font>‘, ‘no_abs<\/font>‘, ‘decode<\/font>‘, ‘no_decode<\/font>‘.<\/p>\n