Как я могу использовать макросы в Perl?

Question

Как использовать макросы в Perl, как в C?

Пример:

#define value 100 
print value; 

Я хочу получить вывод как 100.

Answer 1

Если вы просто хотите определить константы (как в вашем примере), а не полные макросы, есть несколько способов сделать это на perl.

Некоторые люди любят:

use constant value => 100;
print value;

Обратите внимание, что «значение» - это подпрограмма, а не «переменная». Это означает, что вы не можете интерполировать его в строках, поэтому вы должны это сделать. print "The value is ".value."\n";.

Толпа " Best Practices " вроде:

use Readonly;
Readonly my $value => 100;
print $value;

Однако, в отличие от константы, Readonly не является частью основного дистрибутива perl и поэтому должен быть установлен из CPAN.

Answer 2

Perl - это не C. Вам было бы намного лучше узнать соответствующие идиомы Perl (например, уже упомянутые use constant value => 100), чем пытаться перетащить идиомы C в Perl.

Answer 3

Для констант обычно используется подпрограмма констант, которая будет встроена компилятором:

use constant value => 100;

или

sub value () {100}

Answer 4

Попробуйте следующее:

macro.pl

    use strict;
    use warnings;
    #define a 10;
    print a;

И запустите этот код, используя ключ -P.

Пример: perl -P macro.pl

И использовать модуль Filter :: cpp также.