Как отловить значение переменной в новую отличную переменную из 1 строки?

Question

I hv 3 слова «Это тест» в 1 строке

Я не знаю, как перехватить значение переменной до новой переменной в 1 строке, без создания новой переменной для каждого слова или использования ARGV.

$words = "This is Test";

#what is in here?

print "$Word1 $Word2 $Word3\n";

Было бы легко, если бы я просто поставил, но это не на 1 строке.

$Word1 = "This";
$Word2 = "is";
$Word3 = "Test";
print "$Word1 $Word2 $Word3\n";

Пожалуйста, кто-нибудь, помогите мне исправить коды!

Answer 1

Используйте функцию split, чтобы разбить строку, используя пробел в качестве разделителя. Вы можете назначить результаты сразу для трех переменных.

($Word1, $Word2, $Word3) = split(' ', $words);