Perl chr() function

In the Perl programming language has a built-in function chr(). This function returns the character that corresponds to the specified number.

Here's an example:

▶ Run

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

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


If the functions chr() do not pass any arguments, the function works with default variable $_:

▶ Run

$_ = 98;

print chr(); # b

Features you need to pass the number. The function returns the character that corresponds to this number.

If the functions chr() pass more than one argument, it will error:

▶ Run

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

Official documentation

Here is the output of the command 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

            See perlunicode for more about Unicode.

Related topics

Other articles