Perl строка в кавычках?

Question

Похоже, мой ежедневный блокпост. Это возможно? Строка в qw?

#!/usr/bin/perl

use strict;
use warnings;

print "Enter Your Number\n";
my $usercc = <>;

##split number
$usercc =~ s/(\w)(?=\w)/$1 /g;

print $usercc;

## string in qw, hmm..

my @ccnumber = qw($usercc);

Я получаю Аргумент "$ usercc" не является числовым в умножении (*) при

Спасибо

Answer 1

номер
От: http://perlmeme.org/howtos/perlfunc/qw_function.html

Как это работает

qw() извлекает слова из вашей строки используя встроенный пробел в качестве разделитель и возвращает слова как список. Обратите внимание, что это происходит в время компиляции, что означает, что вызов qw() заменен списком до того, как ваш код начнет выполняться.

Кроме того, невозможна интерполяция в строке, которую вы передаете qw ().

Answer 2

Вместо этого используйте

my @ccnumber = split /\s+/, $usercc;

Что делает то, что вы вероятно хотите, чтобы разделить $usercc на пустое пространство.