Perl Сплит редове в масив?

[davyzhu]

Здравейте всички,

Аз съм нов за Perl.

АЗ употреба
#------------------
докато (<INFILE>) (
$ линия = $ _;
)
#------------------
за да получите един ред от файла,

Линията може да се като: сума 11 32
Как да се разделят редове в масив като @ MyArray = ( "сума", "11", "32"); който знае колко пространство между думите?

Всички предложения ще бъдат оценени!
Дейви

 

[lovelyic]

Код:chomp $ линия

@ tmp_line = Split (/ \ S /, $ линия);

за ($ I = 0, $ I <= $ # tmp_line, $ I )

(

Push (@ MyArray, $ tmp_line [$ I]);

)

 

[urslen]

Простите декларация масив също може да се направи.Тук е друг възможен начин:

Код:докато (<INFILE>) (

$ линия = $ _;

@ A = $ линия;

печат @ A;

)