Обнаружение Ubuntu с использованием perl

Question 1

Я работаю над скриптом perl, который должен писать файл конфигурации. Мне нужно знать, работает ли скрипт на Ubuntu, чтобы установить некоторые значения Ubuntu (в основном, отключить унифицированную панель). Скрипт не может требовать каких-либо пакетов Perl, которые могут отсутствовать в пользовательской системе.

Как проверить, является ли система Ubuntu или другим дистрибутивом Linux?

Question 2

Вы можете проверить содержимое файла /etc/lsb-release.

Question 3

Question 4

Вы можете проверить содержимое файла /etc/lsb-release.

Question 5

Вы можете проверить содержимое файла /etc/lsb-release.

Question 6

Вы можете проверить содержимое файла /etc/lsb-release.

Question 7

Question 8

Вы можете проверить содержимое файла /etc/lsb-release.

Question 9

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 10

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 11

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 12

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 13

Question 14

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 15

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 16

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 17

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 18

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 19

Question 20

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 21

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 22

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 23

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Question 24

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

Question 25

Question 26

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

int_ua · Accepted Answer · 25 July 2018 в 18:22

Вы можете проверить содержимое файла /etc/lsb-release.

3

ответ дан int_ua 25 July 2018 в 18:22

int_ua · Accepted Answer · 2 August 2018 в 00:34

Вы можете проверить содержимое файла /etc/lsb-release.

3

ответ дан int_ua 2 August 2018 в 00:34

int_ua · Accepted Answer · 4 August 2018 в 16:04

Вы можете проверить содержимое файла /etc/lsb-release.

3

ответ дан int_ua 4 August 2018 в 16:04

int_ua · Accepted Answer · 10 August 2018 в 06:54

Вы можете проверить содержимое файла /etc/lsb-release.

3

ответ дан int_ua 10 August 2018 в 06:54

int_ua · Accepted Answer · 15 August 2018 в 18:52

Вы можете проверить содержимое файла /etc/lsb-release.

3

ответ дан int_ua 15 August 2018 в 18:52

Barton Chittenden · Answer 6 · 25 May 2018 в 09:50

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 7 · 25 May 2018 в 09:50

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 8 · 25 July 2018 в 18:22

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 9 · 25 July 2018 в 18:22

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

kos · Answer 10 · 2 August 2018 в 00:34

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 11 · 2 August 2018 в 00:34

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 12 · 4 August 2018 в 16:04

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 13 · 4 August 2018 в 16:04

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 14 · 6 August 2018 в 00:42

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 15 · 6 August 2018 в 00:42

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 16 · 7 August 2018 в 18:07

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 17 · 7 August 2018 в 18:07

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 18 · 10 August 2018 в 06:54

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Barton Chittenden · Answer 19 · 10 August 2018 в 06:54

Альтернативный ответ: https://metacpan.org/pod/Linux::Distribution

use Linux::Distribution qw(distribution_name);
print "Do your stuff here\n" if( distribution_name eq 'ubuntu' );

kos · Answer 20 · 15 August 2018 в 18:52

Вы можете проверить вывод lsb_release без разбора файла вручную или загрузки внешнего модуля:

#!/usr/bin/perl
# ...
my $id = `lsb_release -si`;
chomp($id);
if($id eq "Ubuntu") {
    # set Ubuntu-specific values
}
# ...

Обнаружение Ubuntu с использованием perl

20 ответов

Другие вопросы по тегам:

Похожие вопросы: