Verwendung von Konstanten in Perl Pack/Entpacktemplate Zeichenketten

Question

Ist es möglich, Konstanten in pack() und unpack() Vorlagen zu verwenden?

Ich hatte einen kurzen Blick durch die Dokumente (http://perldoc.perl.org/functions/pack.html) und während ich sehe, können Sie Standardvariablen verwenden (d. H. $foo $bar), kann ich keinen Verweis auf die Verwendung von Konstanten sehen.

Für die downvoters: ich meinte INSIDE die Vorlage ....

z.B. anstelle von pack("a$civ a*......" verwenden Sie eine Konstante statt $civ

Answer 1

Sie können Sie Const::Fast Modul.

use Const::Fast; 
const my $foo => 'a scalar value'; 
print "X${foo}X\n";