Как я могу определить операционную систему в Perl?

Изучите переменную $^O, которая будет содержать имя операционной системы:

print "$^O\n";

Что печатает linux в Linux и MSWin32 в Windows.

Вы также можете ссылаться на эту переменную по имени $OSNAME, если используете английский модуль:

use English qw' -no_match_vars ';
print "$OSNAME\n";

Согласно perlport, _ 7_ будет darwin в Mac OS X.

Вы также можете использовать основной модуль Config, который может предоставить ту же информацию (и многое другое) :

use Config;

print "$Config{osname}\n";
print "$Config{archname}\n";

Что на моей машине с Ubuntu печатает:

linux
i486-linux-gnu-thread-multi

Обратите внимание, что эта информация основана на системе, в которой Perl был построен, которая не обязательно является системой, в которой Perl в настоящее время работает (то же самое верно для _ 11_ и $OSNAME); ОС, скорее всего, не будет отличаться, но некоторая информация, такая как название архитектуры, вполне может быть.

Если вам нужна более конкретная информация о Windows, это может помочь.

my $osname = $^O;


if( $osname eq 'MSWin32' ){{
  eval { require Win32; } or last;
  $osname = Win32::GetOSName();

  # work around for historical reasons
  $osname = 'WinXP' if $osname =~ /^WinXP/;
}}

Получено из sysinfo.t, который я написал оригинальную версию.

Если вам нужна более подробная информация:

my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();

Sys :: Info :: OS выглядит относительно чистым потенциальным решением, но в настоящее время его нет. похоже, не поддерживает Mac. Однако добавить это не займет много времени.

Загляните внутрь источника File::Spec, чтобы увидеть, как он загружает правильный делегат в зависимости от рабочего система. :)

File::Spec имеет отдельный файл модуля Perl для каждой ОС. File::Spec::Win32, File::Spec::OS2 и т. Д.

Он проверяет операционную систему и загружает соответствующий .pm файл во время выполнения в зависимости от ОС.

# From the source code of File::Spec
my %module = (
      MSWin32 => 'Win32',
      os2     => 'OS2',
      VMS     => 'VMS',
      NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
      symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
      dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
      cygwin  => 'Cygwin',
      amigaos => 'AmigaOS');


my $module = $module{$^O} || 'Unix';

require "File/Spec/$module.pm";
our @ISA = ("File::Spec::$module");

Переменная $ ^ O (это заглавная «О», а не ноль) содержит имя операционной системы.

В зависимости от того, что вы хотите, он может дать или не дать нужный вам ответ - в моей системе он дает «linux», не указывая, какой именно дистрибутив. Я не уверен в том, что там написано в Windows или MacOS.

Вот краткое руководство о том, как найти ОС, с которой работает локальный компьютер. Perl.

Переменная $ ^ O ($ OSTYPE, если вы используете английский) содержит операционную систему, для которой был создан ваш двоичный файл perl.

Классический однострочник:

my $windows=($^O=~/Win/)?1:0;# Are we running on windows?

К вашему сведению, на компьютерах Mac $ ^ O теперь возвращает darwin для 10.13.6 (High Sierra) и 10.15.4 (Catalina).

Для общего сопоставления в предварительно упакованном модуле Perl ознакомьтесь с Perl::OSType.

Используется Module::Build.

да, использование модуля Config может быть полезным. Еще одна возможность - получить информацию из файлов выпуска / etc / *.

например, для ..

кошка / и т. д. / os-release

NAME="UBUNTU"
VERSION="12.0.2 LTS, Precise Pangolin"
ID="UBUNTU"
ID_LIKE=debian
PRETTY_NAME="Ubuntu precise (12.0.2 LTS)"
VERSION_ID="12.04"