Как я могу присвоить содержимое переменной имени переменной в perl?

Question

Например

$get = <>; 
chomp($get); 
$$get = "something"; 

если вводится имя пользователя для $ получить Я хочу, чтобы назначить «что-то» до $ назвать

Answer 1

«хэш» (или «словарь» на некоторых других языках), как * массив пар ключ-значение. Это позволяет получить то, что вы описываете, потому что вы можете присвоить значение переменной без фиксированного идентификатора для этой переменной.

*: Хеши не массивы.

См. this tutorial on Perl101. Следующие фрагменты кода в этом ответе взяты с этого сайта.

Вы можете создать хэш, используя следующий синтаксис:

my %stooges = (
    'Moe', 'Howard', 
    'Larry', 'Fine', 
    'Curly', 'Howard', 
    'Iggy', 'Pop', 
); 

доступ и изменять значения с помощью {}. Вы можете использовать этот синтаксис для и добавить.

print $stooges{'Iggy'}; #get existing 
$stooges{'Iggy'} = 'Ignatowski'; #Overwrite 
$stooges{'Shemp'} = 'Howard'; #Set new 

Вы можете удалить пары ключ-значение с помощью функции delete.

delete $stooges{'Curly'}; 

Вы можете получить список значений или ключей, используя те же самые (ключевые) слова:

my @stooge_first_names = keys %stooges; 
my @stooge_last_names = values %stooges; 

Answer 2

Есть способы сделать это, но вы действительно не должны. Вместо этого используйте хэш.

use strict; 
use warnings; 

my $get = <>; 
chomp $get; 
my %input; 
$input{$get} = "something";