 | Вы читаете журнал ![[info]](http://l-stat.livejournal.com/img/userinfo.gif){kind=small} sharifulinВход Создать аккаунт в ЖЖ Подробности |
sub D($) {
for (scalar reverse shift) {
s/(\d{3})(?=\d)/$1 /g;
return scalar reverse;
}
}
say D 12345;
say D 123456;
say D 1234.56;Спасибо pavel_kudinov за подсказку использовать (?=pattern) positive look-ahead assertion (perlre).Mojo::ByteStream->new($str)->url_escape
Mojo::ByteStream->new($str)->encode('utf8')->html_unescape
use strict; use warnings;С выходом perl 5.10 еще и:
use features '...';
use Modern::Perl;Оказывается, можно пойти дальше и написать так:
use common::sense;
use strict qw(vars subs); use feature qw(say state switch); no warnings;Содержимое модуля:
sub import {
# no warnings
${^WARNING_BITS} ^= ${^WARNING_BITS};
# use strict vars subs
$^H |= 0x00000600;
# use feature
$^H{feature_switch} =
$^H{feature_say} =
$^H{feature_state} = 1;
}
Преимущество – использует меньше памяти, чем другие решения.pavel_kudinov ). Так что common::sense мне вполне подходит :)
