Aion-Format

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

```

## accesslog ($format, @params)

Пишет в STDOUT используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.

```perl
trappout { accesslog "#{green}ACCESS#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[32mACCESS\e\[0m 6\n
```

## errorlog ($format, @params)

Пишет в **STDERR** используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.

```perl
trapperr { errorlog "#{red}ERROR#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[31mERROR\e\[0m 6\n
```

## p ($target; %properties)

`p` из Data::Printer с предустановленными настройками.

Вместо неудобного первого параметра используется просто скаляр.

Необязательный параметр `%properties` позволяет перекрывать настройки. 

README.md  view on Meta::CPAN

См. также `IO::Capture::Stderr`.

## trappout (&block)

Ловушка для **STDOUT**.

В случае ошибки в блоке **STDOUT** восстанавливается, а вывод в блоке – теряется.

```perl
trappout { print "Stars: ✨" }  # => Stars: ✨
trappout { print "Stars: ✨"; die "error" }  # @=> error
```

См. также `IO::Capture::Stdout`.

## TiB ()

Константа равна одному тебибайту.

```perl
TiB  # -> 2**40

i18n/Aion/Format.ru-en.po  view on Meta::CPAN

msgid "Ловушка для **STDERR**."
msgstr "Trap for **STDERR**."

msgid "См. также `IO::Capture::Stderr`."
msgstr "See also `IO::Capture::Stderr`."

msgid "Ловушка для **STDOUT**."
msgstr "Trap for **STDOUT**."

msgid "В случае ошибки в блоке `STDOUT` восстанавливается, а вывод в блоке – теряется."
msgstr "If there is an error in the block, `STDOUT` is restored, but the output in the block is lost."

msgid "См. также `IO::Capture::Stdout`."
msgstr "See also `IO::Capture::Stdout`."

msgid "Константа равна одному тебибайту."
msgstr "The constant is equal to one tebibyte."

msgid "Константа равна одному гибибайту."
msgstr "The constant is equal to one gibibyte."

lib/Aion/Format.md  view on Meta::CPAN

```

## accesslog ($format, @params)

Пишет в STDOUT используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.

```perl
trappout { accesslog "#{green}ACCESS#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[32mACCESS\e\[0m 6\n
```

## errorlog ($format, @params)

Пишет в **STDERR** используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.

```perl
trapperr { errorlog "#{red}ERROR#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[31mERROR\e\[0m 6\n
```

## p ($target; %properties)

`p` из Data::Printer с предустановленными настройками.

Вместо неудобного первого параметра используется просто скаляр.

Необязательный параметр `%properties` позволяет перекрывать настройки. 

lib/Aion/Format.md  view on Meta::CPAN

См. также `IO::Capture::Stderr`.

## trappout (&block)

Ловушка для **STDOUT**.

В случае ошибки в блоке **STDOUT** восстанавливается, а вывод в блоке – теряется.

```perl
trappout { print "Stars: ✨" }  # => Stars: ✨
trappout { print "Stars: ✨"; die "error" }  # @=> error
```

См. также `IO::Capture::Stdout`.

## TiB ()

Константа равна одному тебибайту.

```perl
TiB  # -> 2**40

lib/Aion/Format.pm  view on Meta::CPAN

sub warncolor(@) {
	print STDERR coloring @_
}

# Для крона: Пишет в STDOUT
sub accesslog(@) {
	print "[", POSIX::strftime("%F %T", localtime), "] ", coloring @_;
}

# Для крона: Пишет в STDIN
sub errorlog(@) {
	print STDERR "[", POSIX::strftime("%F %T", localtime), "] ", coloring @_;
}


#@category Преобразования

# Проводит соответствия
#
# replace "...", qr/.../ => sub {...}, ...
#

lib/Aion/Format.pm  view on Meta::CPAN

Like C<coloring>, but prints the formatted string to C<STDERR>.

	trapperr { warncolor "#{green}ACCESS#r %i\n", 6 }  # => \e[32mACCESS\e[0m 6\n

=head2 accesslog ($format, @params)

Writes to STDOUT using the C<coloring> function for formatting and adds a date-time prefix.

	trappout { accesslog "#{green}ACCESS#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[32mACCESS\e\[0m 6\n

=head2 errorlog ($format, @params)

Writes to B<STDERR> using the C<coloring> function for formatting and adds a date-time prefix.

	trapperr { errorlog "#{red}ERROR#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[31mERROR\e\[0m 6\n

=head2 p ($target; %properties)

C<p> from Data::Printer with preset settings.

Instead of the inconvenient first parameter, a simple scalar is used.

The optional C<%properties> parameter allows you to override settings.

	trapperr { p +{cat => 123} } # ~> cat.+123

lib/Aion/Format.pm  view on Meta::CPAN

=head2 transliterate ($s)

Transliterates Russian text.

	transliterate "Мир во всём Мире!"  # => Mir vo vsjom Mire!

=head2 trapperr (&block)

Trap for B<STDERR>.

If there is an error in the block, C<STDOUT> is restored, but the output in the block is lost.

	trapperr { print STDERR "Stars: ✨" }  # => Stars: ✨

See also C<IO::Capture::Stderr>.

=head2 trappout (&block)

Trap for B<STDOUT>.

If there is an error in the block, C<STDOUT> is restored, but the output in the block is lost.

	trappout { print "Stars: ✨" }  # => Stars: ✨
	trappout { print "Stars: ✨"; die "error" }  # @=> error

See also C<IO::Capture::Stdout>.

=head2 TiB ()

The constant is equal to one tebibyte.

	TiB  # -> 2**40

=head2 GiB ()

t/aion/format.t  view on Meta::CPAN

# 
# ## accesslog ($format, @params)
# 
# Пишет в STDOUT используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.
# 
::done_testing; }; subtest 'accesslog ($format, @params)' => sub { 
::like scalar do {trappout { accesslog "#{green}ACCESS#r %i\n", 6 }}, qr{\[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[32mACCESS\e\[0m 6\n}, 'trappout { accesslog "#{green}ACCESS#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[32mACCESS\e\[0m ...

# 
# ## errorlog ($format, @params)
# 
# Пишет в **STDERR** используя для форматирования функцию `coloring` и добавляет префикс с датой-временем.
# 
::done_testing; }; subtest 'errorlog ($format, @params)' => sub { 
::like scalar do {trapperr { errorlog "#{red}ERROR#r %i\n", 6 }}, qr{\[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[31mERROR\e\[0m 6\n}, 'trapperr { errorlog "#{red}ERROR#r %i\n", 6 }  # ~> \[\d{4}-\d{2}-\d{2} \d\d:\d\d:\d\d\] \e\[31mERROR\e\[0m 6\n'; unde...

# 
# ## p ($target; %properties)
# 
# `p` из Data::Printer с предустановленными настройками.
# 
# Вместо неудобного первого параметра используется просто скаляр.
# 
# Необязательный параметр `%properties` позволяет перекрывать настройки. 
# 

t/aion/format.t  view on Meta::CPAN

# См. также `IO::Capture::Stderr`.
# 
# ## trappout (&block)
# 
# Ловушка для **STDOUT**.
# 
# В случае ошибки в блоке `STDOUT` восстанавливается, а вывод в блоке – теряется.
# 
::done_testing; }; subtest 'trappout (&block)' => sub { 
local ($::_g0 = do {trappout { print "Stars: ✨" }}, $::_e0 = "Stars: ✨"); ::ok $::_g0 eq $::_e0, 'trappout { print "Stars: ✨" }  # => Stars: ✨' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
eval {trappout { print "Stars: ✨"; die "error" }}; local ($::_g0 = $@, $::_e0 = "error"); ok defined($::_g0) && $::_g0 =~ /^${\quotemeta $::_e0}/, 'trappout { print "Stars: ✨"; die "error" }  # @=> error' or ::diag ::_string_diff($::_g0, $::_e0, ...

# 
# См. также `IO::Capture::Stdout`.
# 
# ## TiB ()
# 
# Константа равна одному тебибайту.
# 
::done_testing; }; subtest 'TiB ()' => sub { 
local ($::_g0 = do {TiB}, $::_e0 = do {2**40}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'TiB  # -> 2**40' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;