Функция chr() в Perl

В языке программирования Perl есть встроенная функция chr(). Эта функция возвращает символ, которое соответствует указанному числу.

Вот пример:

▶ Run
#!/usr/bin/perl

use utf8;
use open qw(:std :utf8);
use feature qw(say);

say chr('65'); # A
say chr('49'); # 1
say chr('1046'); # Ж

Аргументы

Если функции chr() не передать никакие аргументы, то функция работает с дефолтной переменной $_:

▶ Run
#!/usr/bin/perl

$_ = 98;

print chr(); # b

Функции нужно передать число. Функция вернет символ, который соответствует этому числу.

Если функции chr() передать больше чем один аргумент, то будет ошибка:

▶ Run
#!/usr/bin/perl

print chr(99, 100);
Too many arguments for chr at script.pl line 3, near "100)"
Execution of script.pl aborted due to compilation errors.

Официальная документация

Вот вывод команды perldoc -f chr:

    chr NUMBER
    chr     Returns the character represented by that NUMBER in the
            character set. For example, "chr(65)" is "A" in either ASCII or
            Unicode, and chr(0x263a) is a Unicode smiley face.

            Negative values give the Unicode replacement character
            (chr(0xfffd)), except under the bytes pragma, where the low
            eight bits of the value (truncated to an integer) are used.

            If NUMBER is omitted, uses $_.

            For the reverse, use "ord".

            Note that characters from 128 to 255 (inclusive) are by default
            internally not encoded as UTF-8 for backward compatibility
            reasons.

            See perlunicode for more about Unicode.

Связанные темы

Другие статьи