Pourquoi y a-t-il deux signes @ dans une constante?

Question

Je lis le CIF (cadre Intelligence collective) source code on GitHub

Dans le fichier src/lib/CIF/Generated.pm.in j'ai vu une déclaration comme celle-

use constant PROTOCOL_VERSION => @CIF_PROTOCOL_VERSION@; 

Pourquoi deux à des signes@?

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

Ceux-ci n'ont pas de signification Perl. Les chaînes avec des guillemets simples ' n'ont pas d'interpolation de variable, donc ce sont des caractères littéraux @, pas @CIF_USER ou des tableaux similaires.

La ligne que vous avez mentionnée contient en fait une erreur de syntaxe en Perl.

use constant DEFAULT_PORT  => @DEFAULT_PORT@; 

Cependant, le fait que certains d'entre eux sont entre guillemets et d'autres ne sont pas me portent à croire que ce sont le code fait modèle, et que ce fichier seront traitées par une sorte de moteur de templating avant d'être dirigé par Perl. Dans ce cas, @DEFAULT_PORT@ sera toujours un nombre, il n'a donc pas besoin de guillemets. Dans le même temps, '@CIF_USER@' pourrait donner un nom d'utilisateur, qui contiendrait probablement des choses qui ne sont pas des nombres, il faut donc les citer.

Mise à jour:This answer à une question connexe explique que les fichiers .in sont généralement utilisés comme entrée pour autoconf.

Answer 2

.pm.in n'est pas une extension normale pour le code Perl. Plutôt, .in indique normalement un modèle d'une sorte qui est utilisé pour générer un fichier avec le même nom mais avec .in supprimé.

Dans ce cas, le système de modèle est Autoconf. Si vous regardez dans configure.ac, vous verrez

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

Cela signifie que src/lib/CIF/Generated.pm sera généré à partir src/lib/CIF/Generated.pm.in lorsque configure fonctionne. Les symboles @...@ (appelés Autoconf "output variables") sont remplacés par les options configurées à ce moment-là. Ils ne sont pas de la syntaxe Perl, ils sont la syntaxe du modèle Autoconf. En d'autres termes, Generated.pm.in n'est pas un code Perl; c'est un modèle à partir duquel Autoconf peut générer du code Perl. Une ligne comme

use constant PROTOCOL_VERSION => @CIF_PROTOCOL_VERSION@; 

deviendrait

use constant PROTOCOL_VERSION => 1; 

dans src/lib/CIF/Generated.pm si configure détermine que CIF_PROTOCOL_VERSION doit être 1. Comment configure décide qui est trop complexe pour expliquer ici; lisez le Autoconf manual pour plus de détails.