#perl
#perl
Вопрос:
Добрый совет, я не могу распечатать значение a , b и c
my @array = qw($a,$b,$c);
push(@new_array ,@array);
for my $x (@new_array)
{
DEBUG(" DEBUG : $x);
}
Он показывает мне $ a, $ b, $ c вместо значений.
Спасибо,
Комментарии:
1. Если бы это было
use warningsв вашем коде, вам был бы дан ключ к решению проблемы. Если бы вы добавилиuse diagnostics, вы получили бы намного больше деталей.
Ответ №1:
qw Оператор создает список строк. Он заключает слова в кавычки, поэтому это «qw».
my @array = qw( x y z );
точно так же, как
my @array = ( 'x', 'y', 'z' );
Ваша строка:
my @array = qw($a,$b,$c);
говорит
my @array = ( '$a,$b,$c' );
То, что вы хотите, это отбросить qw .
my @array = ( $a, $b, $c );
Комментарии:
1. Понял, босс ..) Ты ЗВЕЗДА
2. Я не знаю, почему я не могу принять ваш ответ…. Я имею в виду правильную проверку… Спасибо
3. Я думаю, что существует минимальное количество времени, которое вам нужно подождать, прежде чем ответ может быть принят.