Perl: как заставить qw интерполировать переменную в скобках?

[buggykey]

Здравствуйте все!
Начинаю учиться Perl'у.
По книжке.
Но примеры стараюсь брать не такие простые, как в книге, а по собственным необходимостям.
Может, я в книжке не дочитал еще, но мне надо переменную, значение которой состоит из слов:

Код: [Выделить]

$n = "один два три четыре пять 125 и_так_далее";
преобразовать в массив, значение каждого элемента которого состоит из одного слова из этой переменной, т. е. чтобы:

Код: [Выделить]

@array[0] = один;
@array[1] = два;
@array[2] = три;
и т. д.
Пробовал делать для этого:

Код: [Выделить]

@array = qw($n);
но, как известно, qw не подставляет значения в выражения в скобках, похожие на переменные.
Может кто подскажет, как это сделать - у меня не получилось составить поисковый запрос в Гугле, чтобы описать ситуацию
Спасибо!

[andrew_bye]

Код: (Perl) [Выделить]

#!/usr/bin/perl

use strict;
use warnings;

my $scalar = "один два три четыре пять";

my @array = split ' ', $scalar;

foreach (@array) { print "\n\"$_\"\n" }

[buggykey]

Большое спасибо за четкий и красивый ответ!
Буду просвещаться дальше...

[andrew_bye]

Ну, спрашивай, если что...

[buggykey]

Ну, коли так, спрошу!
А если переменная выглядит несколько иначе, чем:

Код: [Выделить]

my $scalar = "один два три четыре пять";а вот так:

Код: [Выделить]

my $scalar = "    один    два           три четыре          пять        ";а сделать надо то-же самое?

[andrew_bye]

А что мешает в вышеуказанном скрипте заменить

Код: [Выделить]

my $scalar = "один два три четыре пять";на

Код: [Выделить]

my $scalar = "    один    два           три четыре          пять        ";

Код: (Perl) [Выделить]

#!/usr/bin/perl

use strict;
use warnings;

my $scalar = "    один    два           три четыре          пять        ";
my @array = split ' ', $scalar;

print "\nscalar is \"$scalar\"\n";
print "\nall array elements are\n";

foreach (@array) { print "\n\"$_\"\n" }

[astrobeglec]

Не я один перловку варю. Немного оффтопа:

(Нажмите, чтобы показать/скрыть)

Код: (Perl) [Выделить]

#!/usr/bin/perl
#Создаем случайные числа от 1 до 100
$asum = int(rand(100));
$bsum = int(rand(100));
#Выводим пример для ученика
print ("$asum + $bsum = ");
$it = $asum + $bsum;
#Запрашиваем ответ
$otv = <>;
#Проверяем результат
if ("$it" == "$otv")
{print("Верно!!!\n")}
else {print ("Неверно, правильный ответ $it\n")};
#Перезапускаем программу для вывода нового примера
exec '[путь к скрипту]'


[andrew_bye]

Уж0с.

[astrobeglec]

Уж0с.

А чего? Дошколиха... "Папа давай!", что первым в голову пришло то и написал... Где-то через 2 часа до неё стало доходить, что тут что-то не так... Примеры немного не кончались...

[andrew_bye]

Во-первых, если скрипт хоть чуточку сложнее "Hello world", то его, во избежание гемора с отловом ошибок, нужно начинать с

Код: (Perl) [Выделить]

use strict;
use warnings;
Во-вторых,

Код: (Perl) [Выделить]

#Перезапускаем программу для вывода нового примера
exec '[путь к скрипту]'это верх "гениальности", поскольку для таких вещей вообще-то предусмотрены функции.

[astrobeglec]

andrew_bye, цель должна определять средства...

Хотя нафига функции?

Код: (Perl) [Выделить]

#!/usr/bin/perl
while (1) {
#Создаем случайные числа от 1 до 100
$asum = int(rand(100));
$bsum = int(rand(100));
#Выводим пример для ученика
print ("$asum + $bsum = ");
$it = $asum + $bsum;
#Запрашиваем ответ
$otv = <>;
#Проверяем результат
if ("$it" == "$otv")
{print("Верно!!!\n")}
else {print ("Неверно, правильный ответ $it\n")};
#Перезапускаем программу для вывода нового примера
};


[buggykey]

Блин! Я, вроде, задал простой вопрос, а тут такие дискуссии разгорелись... 
Но большое спасибо всем за участие и за то, что не пинали ногами за дурацкие вопросы

[astrobeglec]

Блин! Я, вроде, задал простой вопрос, а тут такие дискуссии разгорелись... 
Но большое спасибо всем за участие и за то, что не пинали ногами за дурацкие вопросы

KISS