На PHP я могу написать:
$vname = 'phone';
$$vname = '555-1234';
print $phone;
... И скрипт выведет "555-1234".
Есть ли эквивалент в Perl?
Есть ли способ ограничить $phone
областью локального блока, как если бы я написал my $phone
? Использование my $$vname
дает мне ошибку «Не могу объявить скалярное разыменование в моем at ...».
Это устаревший код даже в PHP. Как уже писали другие, используйте хеш.
Эта функция была скопирована с Perl, когда PHP был написан на Perl.
PHP никогда не был написан на Perl twitter.com/rasmus/status/226405807305138176
Обратите внимание, четыре года спустя мне очень стыдно, что я когда-либо задал этот вопрос. :)
Вы можете сделать это очень похоже:
$vname = "phone";
$$vname = "555-1234";
print $phone;
Но то, что вы можете, не означает, что вы должны. Лучший способ справиться с этим - как говорит Майкл Карман, ИСПОЛЬЗУЙТЕ HASH!
Почему я никогда не знал, что вы можете сделать это на Perl?
Та. Есть ли способ ограничить $ phone областью локального блока, как если бы я написал «мой $ phone»? Использование "my $$ vname" дает мне ошибку "Не могу объявить скалярное разыменование в моем at ...".
Это дает мне следующую ошибку: «Глобальный символ« $ phone »требует явного имени пакета в строке 6 temp.pl».
Роб Ховард - не используйте "my" для $$ vname Harleqin - отключите директиву strict, она не будет работать, если она включена
Если мне нужно выключить "строгий", конструкция сломается.
Это называется символической или мягкой ссылкой и обычно считается неправильным способом сделать это. Вместо этого используйте хеш. :)
Для людей, проголосовавших против: он ответил на вопрос.
Арлекин: не уверен, что ты имеешь в виду; запрашиваемая функция существует в Perl, но считается достаточно опасной, чтобы заслужить строгий режим, специально запрещающий ее. Это не значит, что он сломан, просто опасно.
Вы не можете сделать это с включенной директивой strict, а директива strict обычно должна быть включена всегда. Вы можете сделать это и с отключенной прагмой, взгляните на этот лайнер:
perl -le 'my $vname = "phone"; ${ $vname } = "555-1234"; print $phone'
Это будет работать, но не будет:
perl -Mstrict -le 'my $vname = "phone"; ${ $vname } = "555-1234"; print $phone'
«-Mstrict» говорит ему «использовать строгое».
Почти всегда лучше использовать для чего-то вроде этого хеш, который примерно такой же, как ассоциативный массив в PHP.
То, что вы пытаетесь сделать, называется «символической ссылкой». Пока это можно сделать в Perl ты не должен. Символьные ссылки работают только с глобальными переменными, а не с лексическими (my
). Невозможно ограничить их объем. Символические ссылки опасны. По этой причине они не работают под прагмой strict
.
В общем, всякий раз, когда вы думаете, что вам нужны символические ссылки, вы должны вместо этого использовать хеш:
my %hash;
$hash{phone} = '555-1234';
print $hash{phone};
Есть несколько случаев, когда symrefs полезны и даже необходимы. Например, их использует механизм экспорта Perl. Это сложные темы. К тому времени, когда вы будете готовы к ним, вам не нужно будет спрашивать, как это сделать. ;-)
Прочтите тирады Марка-Джейсона Доминуса против этого в Почему глупо "использовать переменную в качестве имени переменной".
Вы бы ограничили объем своих изменений $ phone, начав блок с
local $phone;
или даже
local $$vname;
(Хотя любой из них также меняет $ phone для любых подпрограмм, вызываемых из вашего блока, поэтому это не то же самое, что лексическая область действия объявления my()
.)
Я никогда не думал об использовании C <local> для ограничения объема symref. Это и интересно, и извращенно. Это все равно, что сказать, что вы готовы выстрелить себе в ногу, но только из пневматического пистолета.
Вы ведь понимаете, что PHP наследует многие свои возможности от Perl, верно?
Не только Perl может делать все то же самое, что и PHP, но и выполнять символические ссылки.
use strict;
use warnings;
use 5.010;
our $test=1;
# Access $test through the special hash %::
say ${$::{test}}++;
# This is essentially what the previous line did.
say ${\$test}++
# Same as $test
say ${test}++;
{
# PHP's simple symbolic ref
my $ref = "test";
no strict 'refs';
say $$ref++;
say ${"test"}++;
}
{
package d;
say ${$main::{test}}++;
my $ref = $main::{"test"};
say $$ref++;
$ref = \$main::test;
say $$ref++;
}
Я поместил это в ответ CMS, потому что я не видел этого редактирования, но оно должно быть «$$ vname = '555-1234'», удалите «my».