Почему существуют два знака @ в одной константе?

Question

Я читаю СИФ (Collective Intelligence Framework) source code on GitHub

В файле src/lib/CIF/Generated.pm.in я видел заявление, как этот

use constant PROTOCOL_VERSION => @CIF_PROTOCOL_VERSION@; 

Почему существуют два на знаки@?

package CIF; 

use warnings; 
use strict; 

use constant VERSION => '@CIF_VERSION_MAJOR@.@CIF_VERSION_MINOR@.@CIF_VERSION_PATCH@@CIF_VERSION_META@'; 
our ($MAJOR_VERSION, $MINOR_VERSION, $PATCH, $META) = VERSION =~ /^(\d+)\.(\d+)\.(\d+)-?([\w\.\d]+)?$/; 

use constant PROTOCOL_VERSION => @CIF_PROTOCOL_VERSION@; 
use constant ORG    => '@ORG@'; 
use constant DEFAULT_PORT  => @DEFAULT_PORT@; 

use constant DEFAULT_FRONTEND_PORT   => DEFAULT_PORT(); 
use constant DEFAULT_BACKEND_PORT   => (DEFAULT_PORT() + 1); 
use constant DEFAULT_PUBLISHER_PORT   => (DEFAULT_PORT() + 2); 
use constant DEFAULT_STATS_PUBLISHER_PORT => (DEFAULT_PORT() + 3); 

our $CIF_USER = '@CIF_USER@'; 
our $CIF_GROUP = '@CIF_GROUP@'; 

our $BasePath = '@CIF_PATH@'; 

our $LibPath = '@siteperldir@'; 
our $EtcPath = '@ext_sysconfdir@'; 
our $VarPath = '@ext_localstatedir@'; 

our $LogPath = $VarPath.'/log'; 
our $PidPath = $VarPath.'/run'; 

our $BinPath = $BasePath . '/bin'; 
our $SbinPath = $BasePath . '/sbin'; 


our $SmrtRulesPath  = $EtcPath . '/rules'; 
our $SmrtRulesDefault = $SmrtRulesPath . '/default'; 
our $SmrtRulesLocal  = $SmrtRulesPath . '/local'; 

1; 

Answer 1

Это не имеет значения Perl. Строки с одинарными кавычками ' не имеют переменной интерполяции, поэтому они являются буквальными @ символами, а не @CIF_USER или аналогичными массивами.

Вы упомянули, что на самом деле у вас есть синтаксическая ошибка в Perl.

use constant DEFAULT_PORT  => @DEFAULT_PORT@; 

Однако тот факт, что некоторые из них находятся в кавычках, а другие не приводят меня к мысли, что это на самом деле шаблон кода, и что этот файл будет обработан каким-то шаблонизатор перед тем как управлять Perl. В этом случае @DEFAULT_PORT@ всегда будет числом, поэтому ему не нужны кавычки. В то же время '@CIF_USER@' может привести к имени пользователя, которое, вероятно, будет содержать вещи, которые не являются номерами, поэтому их нужно указывать.

Update:This answer на соответствующий вопрос объясняет, что .in файлы обычно используются в качестве входных данных для autoconf.

Answer 2

.pm.in не является нормальным расширением для кода Perl. Скорее, обычно указывает шаблон, который используется для создания файла с тем же именем, но с удаленным .in.

В этом случае система шаблонов - Autoconf. Если вы посмотрите в configure.ac, вы увидите

AC_CONFIG_FILES([ 
    Makefile 
    src/Makefile.PL 
    src/lib/CIF/Generated.pm 
    elasticsearch/Makefile 
    hacking/packaging/ubuntu/default/cif 
]) 

Это означает, что src/lib/CIF/Generated.pm будет генерироваться из src/lib/CIF/Generated.pm.in когда configure работает. Символы @...@ (которые Autoconf называет «output variables») заменяются настроенными параметрами в это время. Они не являются синтаксисом Perl, они являются синтаксисом шаблона Autoconf.

Иными словами, Generated.pm.in не является кодом Perl; это шаблон, из которого Autoconf может генерировать Perl-код. Линия как

use constant PROTOCOL_VERSION => @CIF_PROTOCOL_VERSION@; 

станет

use constant PROTOCOL_VERSION => 1; 

в src/lib/CIF/Generated.pm если configure определяет, что CIF_PROTOCOL_VERSION должно быть 1. Как configure решает, что это слишком сложно, чтобы объяснить здесь; прочитайте Autoconf manual для деталей.