Question

我有以下代码

#!/usr/bin/perl -w

use warnings;

use constant ARRAY => "XCC320G";
print ARRAY;
print "Enter ur choice\n";
chomp($choice = <STDIN>);
ARRAY=>$choice;
print ARRAY;

目前我的代码是关于常量的。现在我想让它变得通用，所以我必须给常量赋值变量。在perl中有没有办法做到这一点？

Answer 1

常量的定义包括以后不能为其分配不同值的事实。如果你希望能够分配它，那么它不应该是一个常量。

Answer 2

CONSTANT的观点是......它是......常数。例如。不改变。

一个改变的常数......不是，它是一个变量。当然，当它只包含一个值时，你也称它为ARRAY，所以这也没有多大意义。

因此，在您的代码中，您可以：

use strict;
use warnings;

my $value = "XCC320G";
print $value,"\n";
print "Enter your choice\n";
chomp(my $choice = <STDIN>);
$value = $choice;
print $value;

如果您确实希望将其视为数组（尽管您的可能意味着LIST） - 您可以这样做：

my @list_of_values = ( "XCC320G" );
print join ( "\n", @list_of_values ), "\n";
print "Enter your choice\n";
chomp(my $choice = <STDIN>);
push ( @list_of_values, $choice );
print join ( "\n", @list_of_values ), "\n";

如何在perl中将变量值赋值给常量？

2 个答案: