Arquitectura del sistema de determinación elegante dentro de Perl

Question

Estoy buscando una manera simple de determinar si un sistema es de 32 o 64 bits desde Perl 5. He leído la página del manual perlvar hacia atrás y hacia adelante, y no he descubierto un variable que contiene la arquitectura de CPU del sistema (la arquitectura de CPU para la que se compiló Perl se acercará lo suficiente). Esto es lo más cercano que he venido:

chomp (my $arch = `uname -m`); 

Me preguntaba si había una manera más elegante de determinar esto; Odio confiar en las expresiones de contratiempo, ya que son a la vez un cuello de botella, tienden a ser inseguros, y con frecuencia (este ejemplo especialmente) rompen la compatibilidad multiplataforma. No hay razón por la cual Perl no debería tener esta información disponible.

Answer 1

Consulte el módulo Config.

Quizás sea suficiente comprobar si $Config{'archname64'} es suficiente.

Answer 2

Quizás pruebe un módulo de CPAN como https://metacpan.org/pod/Devel::CheckOS.

Answer 3

Sys::Info::OS->bitness método determinará "bitness" de su sistema operativo.

Answer 4

Puede usar el módulo POSIX que proporciona una función uname similar a la utilidad uname.

use POSIX(); 

my ($sysname, $nodename, $release, $version, $machine) = POSIX::uname; 

O, en su caso:

my $arch = (POSIX::uname)[4];