Según veo, el infinito es el carácter ∞ (U+221E) dentro de Unicode.
Para ponerlo dentro de un programa Perl, puedes usar alguna de estas opciones:
my $infinito = "\x{221E}";
my $infinito = "\N{U+221E}"; # mejor y más modernaSi tienes un Perl moderno, se puede hacer también por nombre:
my $infinito = "\N{INFINITY}";(esta última línea hace cargar el módulo 'charnames' de forma automática a partir de Perl v5.16. Si es un Perl más viejo, hay que poner 'use charnames ":full";')
Obviamente, también podemos escribirlo directamente:
use utf8;
my $infinito = "∞";Más información en tu propio ordenador en
perldoc perlunicode,
y en la Web.
A la hora de sacarlo en pantalla, hay que tener en cuenta que tenemos que informar a Perl que vamos a sacar caracteres que son más anchos de un byte (en codificación UTF-8, el infinito lo saca con tres bytes: 0xE2 0x88 0x9E).
Entonces, si la salida es hacia la salida estándar (STDOUT), podemos escribir esto:
Using perl Syntax Highlighting
#!/usr/bin/perl
use v5.14;
use open qw(:utf8 :std); # declaramos que las salidas y entradas estándar van a estar en utf-8
my $infinito = "\N{U+221E}";
say $infinito;
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Si estamos en una máquina que todavía no usa la codificación utf-8, lo mejor será indicar a Perl que use como salida la codificación que el sistema operativo esté indicando que está usando en ese momento:
Using perl Syntax Highlighting
#!/usr/bin/perl
use v5.14;
use open ':locale'; # usar las mismas codificaciones a la entrada y salida que las del sistema operativo
my $infinito = "\N{U+221E}";
say $infinito;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Más información en
perldoc open.
Desde la línea de comandos, todo esto se puede hacer así:
perl -CO -E 'say "\N{U+221E}"'