От редактора

Вячеслав Тихановский

my @sorted = sort @unsorted;
{ $a <=> $b }
{ $b <=> $a }
{ $a cmp $b }
{ $b cmp $a }
reverse sort { $a <=> $b } @list
sort { $b <=> $a } @list
@clean = grep { $_ == $_ } @nans;
my @sorted = sort {
    length $a <=> length $b
    ||
    $a cmp $b
} @strings;
my @sorted = sort {
    $a->{LastName}  cmp $b->{LastName}  ||
    $a->{FirstName} cmp $b->{FirstName} ||
    $b->{ShoeSize}  <=> $a->{ShoeSize}
} @employees;
sort { -m $a <=> -m $b } @files;
my %mod_times;  # cache
my @sorted = sort {
    ( $mod_times{$a} //= -M $a )
    <=>
    ( $mod_times{$b} //= -M $b )
} @files;
my @sorted = map  { $_->[0] }
             sort { $a->[1] <=> $b->[1] }
             map  { [$_, -M] }
                  @files;
my @sorted = sort {
    $a->[0] <=> $b->[0] ||
    $a->[1] <=> $b->[1] ||
    $a->[2] <=> $b->[2]
} @triplets;
my @sorted = map  {
                      $x = int($_ / 100**2);
                      $y = int($_ / 100) - $x * 100;
                      $z = $_ % 100;
                      [ $x, $y, $z ];
                  }
             sort { $a <=> $b }
             map  { $_->[0] * 100**2 + $_->[1] * 100 + $_->[2] }
                  @triplets;
my @sorted = map  { [ unpack "C3", $_ ] }
             sort
             map  { pack "C3", @$_ }
                  @triplets;
use sort qw(stable);
<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule">
<channel>
    <title>Very Cool Podcast</title>
    <link>http://www.example.com</link>
    <description>Very Cool Podcast Description</description>
    <image>
        <title>Very Cool Podcast</title>
        <url>http://www.example.com/images/logo.png</url>
        <link>http://www.example.com</link>
    </image>
    <item>
        <title>Very Cool Podcast - 2013-02-18T19-00-01.mp3</title>
        <link>http://www.example.com/very_cool_podacst/2013-02-18T19-00-01.mp3</link>
        <description>2013-02-18T19-00-01.mp3</description>
        <enclosure url="http://www.example.com/very_cool_podacst/2013-02-18T19-00-01.mp3" type="audio/mpeg" />
    </item>
</channel>
</rss>
title="Very Cool Podcast"
link="http://www.example.com"
image="http://www.example.com/images/logo.png"
description="Very Cool Podcast Description"
extensions="ogg", "mp3"
httpbase="http://www.example.com/very_cool_podacst"
#!/usr/bin/perl

use strict;
use warnings;
use 5.012; # so readdir assigns to $_ in a lone while test
use Getopt::Long;
use Config::Simple;
use XML::RSS;
use MIME::Types;
my $projPath;
my $debug = 0;
my $test  = 0;
my $config;
my $sampleConfig = <<EOF;
title="Podcast Title"
link="http://blah.com"
description="Podcast Description"
extensions = "flv", "mp4", "mp3"
httpbase="http://server/test-podcast"
EOF
sub usage {
    die <<EOF;
Usage:
    $0 -path /path/to/my/videos_or_audio_podcasts [-verbose] [-debug] [-test]

-debug    enable debugging output

EOF
}
GetOptions(
    "path=s" => \$projPath,
    "debug"  => \$debug,
    "test"   => \$test
);
usage() if !defined $projPath;
my $configFile = $projPath . '/config.ini';
print "Checking if $configFile is readable.$/" if $debug;
die "Can't read config file $configFile!"
  . "$/ Here is a sample config:$/$sampleConfig"
  if !-r $configFile;
my %tempConfig;
print "Loading config file $configFile.$/" if $debug;
Config::Simple->import_from($configFile, \%tempConfig);

print "Checking if needed variables exist in the config file.$/" if $debug;
if (   defined $tempConfig{'default.title'}
    && defined $tempConfig{'default.link'}
    && defined $tempConfig{'default.description'}
    && defined $tempConfig{'default.extensions'}
    && defined $tempConfig{'default.httpbase'})
{
    print "All config variables exist.$/" if $debug;
}
else {
    die <<EOF;
Can't find all of the needed variables in the config file.
The config file should look like this:
--cut--
$sampleConfig
--cut--

EOF
}
$config = \%tempConfig;
print "Running in test mode, no xml file will be written.$/"
  if $debug && $test;
print "Generating RSS.$/" if $debug;
my $rss = XML::RSS->new(version => '2.0', encode_output => 0);
$rss->channel(
    title       => $config->{'default.title'},
    link        => $config->{'default.link'},
    description => $config->{'default.description'},
);
if (defined $config->{'default.image'}) {
    print "Found image variable in the config files, "
      . "adding image tag to rss.$/"
      if $debug;
    $rss->image(
        title => $config->{'default.title'},
        url   => $config->{'default.image'},
        link  => $config->{'default.link'},
    );
}
print "Searching for "
  . join(', ', @{$config->{'default.extensions'}})
  . " in $projPath.$/"
  if $debug;
my $extensionsMatch = join('|', @{$config->{'default.extensions'}});
$extensionsMatch = qr/($extensionsMatch)$/i;
my %items;

opendir(my $dh, $projPath) || die;
while (readdir $dh) {
    my $fullPath = $projPath . '/' . $_;
    next if -d $fullPath;
    next if -z $fullPath;
    if (/$extensionsMatch/i) {
        my $timeStamp = (stat($fullPath))[9];
        my $inode     = (stat($fullPath))[1];
        $items{$timeStamp . $inode} = $_;
    }
}
closedir $dh;
my $mimetypes = MIME::Types->new;
foreach my $key ( sort {$b <=> $a} keys(%items) ){
    my $filename = $items{$key};
    my ($fileExtension) = ($filename =~ /\.([\w\d]+)$/);
    my $fileMimeType = $mimetypes->mimeTypeOf($filename)->type();
    print "Adding $filename.$/" if $debug;
    $rss->add_item(
        title     => $config->{'default.title'} . ' - ' . $filename,
        link      => $config->{'default.httpbase'} . '/' . $filename,
        enclosure => {
            url  => $config->{'default.httpbase'} . '/' . $filename,
            type => $fileMimeType
        },
        description => $filename,
    );
}
if ($test) {
    print $rss->as_string;
    exit 0;
}
my $outFile = $projPath . '/rss.xml';
print "Saving xml to $outFile$/" if $debug;
open(my $fh, ">", $outFile);
print $fh $rss->as_string;
close($fh);
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

sub body {
    return 'body';
}

sub body2 {
    return shift;
}

my $app = sub {
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    return $res->finalize();
};

my $main_app = builder {
    mount "/" => builder { $app };
};
warn 'AFTER IMPORT';
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

warn 'AFTER IMPORT';

sub body {
    return 'body';
}

sub body2 {
    return shift;
}

my $app = sub {
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    return $res->finalize();
};

my $main_app = builder {
    mount "/" => builder { $app };
};
starman --port 8080 --workers 1 app.psgi
noxx@noxx-inferno ~/perl/psgi $ starman --port 8080 app.psgi --workers 1
2013/06/02-15:05:31 Starman::Server (type Net::Server::PreFork) starting! pid(4204)
Resolved [*]:8080 to [::]:8080, IPv6
Not including resolved host [0.0.0.0] IPv4 because it will be handled by [::] IPv6
Binding to TCP port 8080 on host :: with IPv6
Setting gid to "1000 1000 4 24 27 30 46 107 125 1000 1001"
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
ps uax | grep starman
noxx      4204  0.6  0.1  57836 11264 pts/3    S+   15:05   0:00 starman master --port 8080 app.psgi --workers 1
noxx      4205  0.2  0.1  64708 13164 pts/3    S+   15:05   0:00 starman worker --port 8080 app.psgi --workers 1
noxx      4213  0.0  0.0  13580   940 pts/4    S+   15:05   0:00 grep --colour=auto starman
starman --port 8080 --workers 3 app.psgi
2013/06/02-15:11:08 Starman::Server (type Net::Server::PreFork) starting! pid(4219)
Resolved [*]:8080 to [::]:8080, IPv6
Not including resolved host [0.0.0.0] IPv4 because it will be handled by [::] IPv6
Binding to TCP port 8080 on host :: with IPv6
Setting gid to "1000 1000 4 24 27 30 46 107 125 1000 1001"
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
noxx      4219  0.1  0.1  57836 11264 pts/3    S+   15:11   0:00 starman master --port 8080 app.psgi --workers 3
noxx      4220  0.0  0.1  64460 12756 pts/3    S+   15:11   0:00 starman worker --port 8080 app.psgi --workers 3
noxx      4221  0.0  0.1  64460 12920 pts/3    S+   15:11   0:00 starman worker --port 8080 app.psgi --workers 3
noxx      4222  0.0  0.1  64460 12756 pts/3    S+   15:11   0:00 starman worker --port 8080 app.psgi --workers 3
noxx      4224  0.0  0.0  13580   936 pts/4    S+   15:12   0:00 grep --colour=auto starman
warn 'IN BUILDER'
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

warn 'AFTER IMPORT';

sub body {
    return 'body';
}
sub body2 {
    return shift;
}
my $app = sub {
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    return $res->finalize();
};
my $main_app = builder {
    warn 'IN BUILDER';
    mount "/" => builder { $app };
};
2013/06/02-17:33:27 Starman::Server (type Net::Server::PreFork) starting! pid(4430)
Resolved [*]:8080 to [::]:8080, IPv6
Not including resolved host [0.0.0.0] IPv4 because it will be handled by [::] IPv6
Binding to TCP port 8080 on host :: with IPv6
Setting gid to "1000 1000 4 24 27 30 46 107 125 1000 1001"
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 23.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 23.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 23.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 23.
warn 'REQUEST';
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

warn 'AFTER IMPORT';

sub body {
    return 'body';
}
sub body2 {
    return shift;
}
my $app = sub {
    warn 'REQUEST';
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    return $res->finalize();
};
my $main_app = builder {
    warn 'IN BUILDER';
    mount "/" => builder { $app };
};
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 24.
REQUEST at /home/noxx/perl/psgi/app.psgi line 16.
die("DIED");
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

warn 'AFTER IMPORT';

sub body {
    return 'body';
}
sub body2 {
    return shift;
}
my $app = sub {
    warn 'REQUEST';
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    die("DIED");
    return $res->finalize();
};
my $main_app = builder {
    warn 'IN BUILDER';
    mount "/" => builder { $app };
};
REQUEST at /home/noxx/perl/psgi/app.psgi line 16.
DIED at /home/noxx/perl/psgi/app.psgi line 21.
REQUEST at /home/noxx/perl/psgi/app.psgi line 16, <$read> line 7.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7, <$read> line 8.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 26, <$read> line 8.
twiggy --port 8080 app.psgi
noxx@noxx-inferno ~/perl/psgi $ twiggy --port 8080 app.psgi
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 26.
REQUEST at /home/noxx/perl/psgi/app.psgi line 16, <> line 5.
noxx@noxx-inferno ~/perl/psgi $
use strict;
use warnings;

use Plack;
use Plack::Builder;
use Plack::Request;

warn 'AFTER IMPORT';

sub body {
    return 'body';
}
sub body2 {
    return shift;
}
my $app = sub {
    warn 'REQUEST';
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(body());
    return $res->finalize();
};
my $main_app = builder {
    warn 'IN BUILDER';
    mount "/" => builder { $app };
};
curl localhost:8080/
body
curl localhost:8080/
body
curl localhost:8080/
nobody
kill -s SIGHUP [pid]
ps uax | grep starman | grep master
noxx      6214  0.8  0.1  54852 10288 pts/3    S+   19:17   0:00 starman master --port 8080 --workers 1 app.psgi
curl localhost:8080
body
kill -s SIGHUP 6214
curl localhost:8080
nobody
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 24.
REQUEST at /home/noxx/perl/psgi/app.psgi line 16.
Sending children hup signal
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7, <$read> line 2.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 24, <$read> line 2.
REQUEST at /home/noxx/perl/psgi/app.psgi line 16, <$read> line 2.
starman --port 8080 --workers 1
kill -s TTIN 6214
noxx      6214  0.0  0.1  54852 10304 pts/3    S+   19:17   0:00 starman master --port 8080 --workers 1 app.psgi
noxx      6221  0.0  0.1  64724 13188 pts/3    S+   19:19   0:00 starman worker --port 8080 --workers 1 app.psgi
noxx      6233  0.0  0.1  64476 12872 pts/3    S+   19:26   0:00 starman worker --port 8080 --workers 1 app.psgi
noxx      6239  2.0  0.1  64480 12872 pts/3    S+   19:29   0:00 starman worker --port 8080 --workers 1 app.psgi
BAFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7, <$read> line 4.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 24, <$read> line 4.
AFTER IMPORT at /home/noxx/perl/psgi/app.psgi line 7, <$read> line 4.
IN BUILDER at /home/noxx/perl/psgi/app.psgi line 24, <$read> line 4.
kill -s TTOU 6214
noxx      6214  0.0  0.1  54852 10304 pts/3    S+   19:17   0:00 starman master --port 8080 --workers 1 app.psgi
noxx      6221  0.0  0.1  64724 13188 pts/3    S+   19:19   0:00 starman worker --port 8080 --workers 1 app.psgi
noxx      6233  0.0  0.1  64476 12872 pts/3    S+   19:26   0:00 starman worker --port 8080 --workers 1 app.psgi
noxx      6238  0.0  0.0  13584   936 pts/4    S+   19:29   0:00 grep --colour=auto starman
kill -s QUIT 6214
2013/06/02-19:32:15 Received QUIT. Running a graceful shutdown
Sending children hup signal
2013/06/02-19:32:15 Worker processes cleaned up
2013/06/02-19:32:15 Server closing!
use AnyEvent::Fork;

AnyEvent::Fork
    ->new
    ->require ("MyModule")
    ->run ("MyModule::server", my $cv = AE::cv);

my $fh = $cv->recv;
use AnyEvent::Fork;

AnyEvent::Fork
    ->new
    ->eval('
        sub runner {
            my ($fh, @params) = @_;
            ...
        }
    ')
    ->send_arg(@params)
    ->run("runner", my $cv = AE::cv);

my $fh = $cv->recv;
open my $log, '>', '/var/log/file' or die $!;

AnyEvent::Fork
    ->new
    ->eval('
        sub runner {
            my ($fh, $log, @params) = @_;
            ...
        }
    ')
    ->send_fh($log)
    ->send_arg(@params)
    ->run("runner", my $cv = AE::cv);

my $fh = $cv->recv;
my $pool =
  AnyEvent::Fork
    ->new
    ->require ("MyModule");

my @pool;

for my $id (1..10) {
    push @pool,
      $pool
        ->fork
        ->send_arg($id)
        ->run("MyModule::foo", sub {

            my ($fh) = @_;
            print "Process id $id\n";
            ...
          });
}
#!/usr/bin/perl
use AnyEvent::Fork::Early;

# some other code
use Some::Harmless::Module;
use My::Worker::Module;

use AnyEvent::Fork::Template;

use Gtk2 -init;

$AnyEvent::Fork::Template->fork->run ("My::Worker::Module::run_worker", sub { ... });
use AnyEvent;
use AnyEvent::Fork::RPC;

my $done = AE::cv;

my $rpc = AnyEvent::Fork
    ->new
    ->eval(do { local $/; <DATA> })
    ->AnyEvent::Fork::RPC::run ("worker",
        on_error   => sub { warn "FATAL: $_[0]"; exit 1 },
        on_event   => sub { warn "$_[0] requests handled\n" },
        on_destroy => $done,
      );

for my $id (1..100) {
    $rpc->( "foo" => "bar", sub {
        $_[0] or warn "$id: $_[1]\n";
    });
}

undef $rpc;

$done->recv;

__DATA__

my $count;

sub worker {
    my ($command, $data) = @_;

    AnyEvent::Fork::RPC::event ($count) unless ++$count % 10;

    my $status = ...

    $status or (0, "$!")
}
use AnyEvent;
use AnyEvent::Fork::Pool;

my $pool = AnyEvent::Fork
    ->new
    ->require ("MyWorker")
    ->AnyEvent::Fork::Pool::run (
        "MyWorker::run", # the worker function

        # pool management
        max        => 4,   # absolute maximum # of processes
        idle       => 0,   # minimum # of idle processes
        load       => 2,   # queue at most this number of jobs per process
        start      => 0.1, # wait this many seconds before starting a new process
        stop       => 10,  # wait this many seconds before stopping an idle process
        on_destroy => (my $finish = AE::cv), # called when object is destroyed

        # parameters passed to AnyEvent::Fork::RPC
        async      => 0,
        on_error   => sub { die "FATAL: $_[0]\n" },
        on_event   => sub { my @ev = @_ },
        init       => "MyWorker::init",
        serialiser => $AnyEvent::Fork::RPC::STRING_SERIALISER,
      );

for (1..10) {
    $pool->(doit => $_, sub {
        print "MyWorker::run returned @_\n";
    });
}

undef $pool;

$finish->recv;
no warnings "experimental::feature_name";
use feature "feature_name";
no warnings "experimental::feature_name";
no if $] >= 5.018, 'warnings', "experimental::feature_name";
$ PERL_HASH_SEED_DEBUG=1 ./perl -e1
HASH_FUNCTION = MURMUR3 HASH_SEED = 0x1476bb9f
use 5.018;
no warnings "experimental::lexical_subs";
use feature "lexical_subs";
my $undraftable = "\N{4F}";    # Syntax error!
$dec = " \cK \t 123";
$hex = " \cK \t 0xF";

say 0 + $dec;   # было 0 с предупреждением, теперь 123
say int $dec;   # было 0, стало 123
say oct $hex;   # было 0, стало  15
%_=(_,"Just another ");
$_="Perl hacker,\n";
s//_}->{_/e;print
no if $] >= 5.018, 'warnings', "experimental::feature_name";
m/a/and 1
m/a/ and 1
$*; # deprecation warning
use warnings "void";
$#; # void warning; no deprecation warning
U+0085 NEXT LINE
U+200E LEFT-TO-RIGHT MARK
U+200F RIGHT-TO-LEFT MARK
U+2028 LINE SEPARATOR
U+2029 PARAGRAPH SEPARATOR
m{foo}
s(foo)(bar)
m{foo\{1,3\}}
($<, $>) = ($>, $<);
local $> = $<;
$ corelist --diff 5.16.0 5.18.0
no warnings 'experimental::lexical_subs';
use feature 'lexical_subs';
my sub foo { ... }
sub { my sub a {...} sub f { \&a } }
sub { my sub a {...} eval 'sub f { \&a }' }->();
sub f {
    my sub a {...}
    sub { eval '\&a' }
}
f()->();
no warnings "experimental::lexical_subs";
use feature "lexical_subs";
if (!SvUPGRADE(sv)) { croak(...); }
SvUPGRADE(sv);
(void)SvUPGRADE(sv);
$_ = 'x' x 1_000_000;
1 while /(.)/;
/(?{  $x='{'  })/
Sequence (?{...}) not terminated or not {}-balanced in regex
(Последовательность (?{...}) нетерминированна или несбалансированы {} в
регулярном выражении)
Sequence (?{...}) not terminated with ')'
(Последовательность (?{...}) нетерминированна символом ')' )
for my $p (...) {
    # этот блок кода 'FOO' компилируется только один раз,
    # в то же время, что и окружающий цикл 'for'
    /$p{(?{FOO;})/;
}
for my $i (0..2) {
    push @r, qr/^(??{$i})$/;
}
"1" =~ $r[1]; # совпадает
my $r = qr/abc(?{....})def/;
/xyz$r/;
my $code = '(??{$x})';
for my $x (1..3) {
# перекомпиляция, чтобы видеть свежее значение $x каждый раз
    $x =~ /$code/;
}
"AB" =~ /a(??{'b'})/i;
use re 'eval'; $c = '(?{ warn "foo" })'; /$c/;
/(?{ warn "foo" })/;
foo at (re_eval 1) line 1.
foo at (re_eval 2) line 1.
foo at (eval 1) line 1.
foo at /some/prog line 2.

Выпуск 4. Июнь 2013

От редактора

Сортировка в Perl

Основы

Функция сравнения

Сортировка по нескольким полям

Маневр орков (Orcish Maneuver, OM)

Преобразование Шварца (Schwartzian transform, ST)

Преобразование Гаттмана-Рослера (Guttman-Rosler Transform, GRT)

Выбор алгоритма сортировки

Модули CPAN

Заключение

Исходные тексты с тестами производительности

Создание RSS из списка файлов

Реверс-инжиниринг

Сценарий

Разбор командной строки с помощью Getopt::Long

Загрузка ini-файла с помощью Config::Simple

Создание XML::RSS-объекта

Проход файлов в каталоге

Добавление элементов в XML::RSS-объект

Запись RSS-файла

Заключение

Введение в разработку web-приложений на PSGI/Plack. Часть 3. Starman.

Starman?

Preforking?

Plack-приложение

Starman и сигналы

AnyEvent и fork

Fork

Проблемы использования fork

AnyEvent::Fork

Использование AnyEvent::Fork

Передача параметров и файловых дескрипторов в дочерний процесс

Создание и управление пулом процессов

Работа модуля при отсутствии возможности запуска нового интерпретатора

AnyEvent::Fork::RPC

AnyEvent::Fork::Pool

Заключение

Что нового в Perl 5.18.0

Ключевые изменения

perldelta

Имя

Описание

Улучшения ядра

Новый механизм экспериментальных возможностей

Пересмотр реализации хеша

Рандомизация хеша

Новые хеш-функции

Переменная окружения PERL_HASH_SEED теперь принимает шестнадцатиричное значение

Добавлена переменная окружения PERL_PERTURB_KEYS

Hash::Util::hash_seed() теперь возвращает строку

Изменился вывод PERL_HASH_SEED_DEBUG

Обновление до Юникода 6.2

Псевдоним символа теперь может включать символы не из диапазона Latin1

Новые проверки DTrace

\$\{^LAST\_FH\}

Операции со множествами в регулярных выражениях

Лексические подпрограммы

Вычисляемые метки

Больше CORE::-подпрограмм

kill с отрицательным именем сигнала

Безопасность

Смотрите также: пересмотр реализации хеша

Предупреждение о безопасности в документации Storable

Locale::Maketext позволял включение произвольного кода через специальный темплейт

Избегайте вызова memset с отрицательным цислом

Несовместимые изменения

Смотрите также: пересмотр реализации хеша

Неизвестное имя символа в \\N\{...\} теперь является синтаксической ошибкой

Ранее устаревший символ в \\N\{\}-псевдониме символа теперь является ошибкой

\\N\{BELL\} теперь соответствует коду U+1F514 вместо U+0007

Новые ограничения в многосимвольном нечувствительном к регистру сравнении в регулярных выражениях для заключённых в скобки классах символов

Ясные правила для имён переменных и идентификаторов

Вертикальная табуляция теперь пробельный символ

/(?\{\})/ и /(??\{\})/ были сильно переработаны

Более строгий синтаксический разбор подстановки замены

given теперь ссылается на глобальную $_

Возможности из семейства умного сравнения теперь являются экспериментальными

Лексическая $_ теперь является экспериментальной

Разбор командной строки с помощью `Getopt::Long`

Загрузка `ini`-файла с помощью `Config::Simple`

Создание `XML::RSS`-объекта

Добавление элементов в `XML::RSS`-объект

`\$\{^LAST\_FH\}`

`kill` с отрицательным именем сигнала

Предупреждение о безопасности в документации `Storable`

`Locale::Maketext` позволял включение произвольного кода через специальный темплейт

Неизвестное имя символа в `\\N\{...\}` теперь является синтаксической ошибкой

Ранее устаревший символ в `\\N\{\}`-псевдониме символа теперь является ошибкой

`\\N\{BELL\}` теперь соответствует коду U+1F514 вместо U+0007

`/(?\{\})/` и `/(??\{\})/` были сильно переработаны

`given` теперь ссылается на глобальную `$_`

Лексическая `$_` теперь является экспериментальной

readline() в `$/ = \\N` теперь читает N символов, а не N байтов

Переопределённый `glob` теперь передаёт один аргумент

`state sub` и `our sub`

`require` умирает на нечитаемых файлах

`gv_fetchmeth_*` и SUPER

Первый аргумент `split` теперь интерпретируется более согласовано

Пять дополнительных символов должны быть экранированы в шаблонах с `/x`

Разделение символов `(?` и `(*` в регулярных выражениях