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

Question

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

54

У меня есть Perl на Mac, Windows и Ubuntu. Как я могу узнать из script, какой из них? Спасибо заранее.

Изменить: Меня спросили, что я делаю. Это script, часть нашей кросс-платформенной системы сборки. script рекурсирует каталоги и вычисляет, какие файлы нужно создавать. Некоторые файлы зависят от платформы, и поэтому в Linux я не хочу создавать файлы, заканчивающиеся на _win.cpp и т.д.

mxcl 02 дек. 2008, в 16:45

Источник

1

Зачем тебе знать? [Может быть более подходящий ответ на ваш вопрос, в зависимости от того, что (если что-то) вы делаете, это зависит от платформы.]
Rob 03 дек. 2008, в 03:57

Теги:

perl

cross-platform

9 ответов

10

Если вам нужна более конкретная информация о 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();

Brad Gilbert 03 дек. 2008, в 15:54

1

win32 использует устаревшую функцию GetVersionExA. Это не работает для Версии> 6.2
Mayra Delgado 14 дек. 2016, в 13:41
0

@ MayraDelgado Действительно, и похоже, что нет прямой замены. Вот почему тот, кто нуждается в этом, должен выяснить, как это исправить и предоставить запрос на удаление. Я все равно редко пользуюсь Windows, так что вряд ли это буду я.
Brad Gilbert 14 дек. 2016, в 14:54

7

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

Leon Timmermans 02 дек. 2008, в 18:44

0

Это был бы лучший ответ, если бы только он поддерживал Mac. Я предпочитаю функции с помощью компилятора строкам с проблемами обслуживания.
mxcl 02 дек. 2008, в 23:35
0

search.cpan.org/perldoc?Sys::Info::OS
Brad Gilbert 03 дек. 2008, в 15:51

3

Переменная $^ O (что капитал "O", а не ноль) содержит имя операционной системы.

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

Geoglyph 02 дек. 2008, в 17:30

2

Ниже приведено краткое описание того, как найти ОС, на которой работает локальная машина, от Perl.

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

willasaywhat 02 дек. 2008, в 18:09

1

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

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

Hawk 29 дек. 2011, в 20:04

6

За исключением случаев, если вы работаете с Дарвином Осом!
user392408 12 апр. 2012, в 00:28
0

Дерьмо! Ты прав! Делая это чувствительным к регистру, кажется, это исправить. Я исправил это выше. Хороший улов!
Hawk 16 сен. 2012, в 15:50

1

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

brian d foy 03 дек. 2008, в 05:11

0

Это, вероятно, лучший ответ из всех этих. К сожалению, это не считается популярным, потому что никто не хочет проводить какие-либо исследования самостоятельно, кроме переполнения стека. Я собираюсь добавить к ответу, чтобы ленивым людям не приходилось проходить всю тяжелую работу по переходу по ссылке. :П
tjwrona1992 09 март 2018, в 14:09

0

#Assign the $home_directory variable the path of the user home directory
my $home_directory = ($^O eq /Win/) ? $ENV{HOMEPATH} : $ENV{HOME};
#Then you can read/write to files in the home directory
open(FILE, ">$home_directory/my_tmp_file");
print FILE "This is a test\n";
close FILE;
#And/or read the contents of the file
open(FILE, "<$home_directory/my_tmp_file");
while (<FILE>){
    print $_;
}
close FILE;

bcarroll 23 июль 2013, в 16:26

-2

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

например.

cat/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"

GC 13 02 сен. 2013, в 09:53

2

А как насчет окон?
Toto 02 сен. 2013, в 09:17
0

@ M42 использовать Win32; #module для взаимодействия с Win32 API. Win32 :: GetOSName () - вернет имя ОС Win32 :: GetOSVersion () [CORE] Возвращает список (STRING, MAJOR, MINOR, BUILD, ID), где элементы, соответственно: произвольная описательная строка, номер основной версии операционной системы, номер вспомогательной версии, номер сборки и цифра, обозначающая реальную операционную систему. Вы получите такой o / p < s21.postimg.org/ymuhihbsn/win32_os_info_perl.jpg > для дополнительной информации о модуле Win32: < search.cpan.org/~jdb/Win32- 0.47 / Win32.pm >
GC 13 11 сен. 2013, в 08:33
0

Конечно, но такого файла как /etc/os-release и вы заранее не знаете, на какой платформе вы находитесь.
Toto 11 сен. 2013, в 08:37
0

Привет @ M42, Unix и семейство DOS имеют много разных вещей.
GC 13 12 сен. 2013, в 07:32
1

Я думаю, что вы не поняли вопрос. Он спрашивает: «Как я могу обнаружить операционную систему в Perl?». Ваше решение не отвечает.
Toto 12 сен. 2013, в 07:36
0

Извините, я был в режиме редактирования, у Hi @ M42, семейства Unix и DOS много разных вещей. для windows введите msinfo32 в cmd.exe или перенаправьте o / p в файл msinfo32 /nfo C:\TEMP\windows_info.nfo
GC 13 12 сен. 2013, в 07:40
0

@ M42, это также поможет my ( $osvername, $major, $minor, $build, $id ) = Win32::GetOSVersion(); print "\n\nOS version - $osvername\nMajor # - $major\nMinor # - $minor\nBuild - $build\nID - $id \n\n";
GC 13 12 сен. 2013, в 07:44

Показать ещё 5 комментариев

Ещё вопросы

Зачем тебе знать? [Может быть более подходящий ответ на ваш вопрос, в зависимости от того, что (если что-то) вы делаете, это зависит от платформы.]
win32 использует устаревшую функцию GetVersionExA. Это не работает для Версии> 6.2
@ MayraDelgado Действительно, и похоже, что нет прямой замены. Вот почему тот, кто нуждается в этом, должен выяснить, как это исправить и предоставить запрос на удаление. Я все равно редко пользуюсь Windows, так что вряд ли это буду я.
Это был бы лучший ответ, если бы только он поддерживал Mac. Я предпочитаю функции с помощью компилятора строкам с проблемами обслуживания.
За исключением случаев, если вы работаете с Дарвином Осом!
Дерьмо! Ты прав! Делая это чувствительным к регистру, кажется, это исправить. Я исправил это выше. Хороший улов!
Это, вероятно, лучший ответ из всех этих. К сожалению, это не считается популярным, потому что никто не хочет проводить какие-либо исследования самостоятельно, кроме переполнения стека. Я собираюсь добавить к ответу, чтобы ленивым людям не приходилось проходить всю тяжелую работу по переходу по ссылке. :П
@ M42 использовать Win32; #module для взаимодействия с Win32 API. Win32 :: GetOSName () - вернет имя ОС Win32 :: GetOSVersion () [CORE] Возвращает список (STRING, MAJOR, MINOR, BUILD, ID), где элементы, соответственно: произвольная описательная строка, номер основной версии операционной системы, номер вспомогательной версии, номер сборки и цифра, обозначающая реальную операционную систему. Вы получите такой o / p < s21.postimg.org/ymuhihbsn/win32_os_info_perl.jpg > для дополнительной информации о модуле Win32: < search.cpan.org/~jdb/Win32- 0.47 / Win32.pm >
Конечно, но такого файла как /etc/os-release и вы заранее не знаете, на какой платформе вы находитесь.
Привет @ M42, Unix и семейство DOS имеют много разных вещей.
Я думаю, что вы не поняли вопрос. Он спрашивает: «Как я могу обнаружить операционную систему в Perl?». Ваше решение не отвечает.
Извините, я был в режиме редактирования, у Hi @ M42, семейства Unix и DOS много разных вещей. для windows введите msinfo32 в cmd.exe или перенаправьте o / p в файл msinfo32 /nfo C:\TEMP\windows_info.nfo
@ M42, это также поможет my ( $osvername, $major, $minor, $build, $id ) = Win32::GetOSVersion(); print "\n\nOS version - $osvername\nMajor # - $major\nMinor # - $minor\nBuild - $build\nID - $id \n\n";

Robert Gamble · Accepted Answer · 2008-12-02T18-33-00.000Z

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

print "$^O\n";

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

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

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

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

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

use Config;

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

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

linux
i486-linux-gnu-thread-multi

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

Спасибо :) А для других людей, которые могут использовать этот ответ, Cygwin Perl возвращает «Cygwin», так что есть две возможности для Windows.
Более, чем два; там был порт dos, и порт os2 раньше мог работать на windows. Все возможные значения $ ^ O теоретически описаны в < perldoc.perl.org/perlport.html >.
напечатайте "$ ^ O \ n"; действительно печатает "дарвин" на моей системе Mac OS X.
Опечатка происходит от заднего углового кронштейна. Это должен быть perldoc.perl.org/perlport.html .
Работает даже для Windows 10 Windows Subsystem для Linux: указание «linux» при выполнении через ubuntu-bash, «msys» и в собственном режиме Windows.
В случае, если кто-то временно застрянет на этом, потому что вы получаете STDOUT_TOP0 в качестве вывода, убедитесь, что вы используете $^O вместо $^0 . Я не могу сказать вам, откуда я это знаю, но поверьте мне ...