合并多行文本，并切片賦值給數(shù)組，這樣寫怎么不行？

fjndhjf

想把多行文本合并成一行，然后賦值，這樣寫為什么不行？

#!/usr/bin/perl
@PowerD = <DATA>;
chomp(@PowerD);
@powerde = split(/\s+/,@PowerD[0]);
print "@powerde\n";


__DATA__
    0.00000E+00  0.00000E+00  6.69445E+02  8.53129E+01  8.59203E+02
    9.73709E+01  4.11982E+01  5.44518E+00  1.38911E+01  1.80307E+00


最后要得到結(jié)果：
@powerde[0]=0.00000E+00
@powerde[1]=0.00000E+00
@powerde[2]=6.69445E+02
@powerde[3]=8.53129E+01
@powerde[4]=8.59203E+02
@powerde[5]=9.73709E+01
.........

求解答，多謝

Cu_fans

沒看明白你想干啥，想合并成一行,直接

1. @PowerD = <DATA>;
   
2. chomp(@PowerD);
   
3. print "@PowerD\n";

復(fù)制代碼

這樣就行了吧

fjndhjf

回復(fù) 2# Cu_fans

沒法一一個個賦值給數(shù)組呢
   

Cu_fans

1. push @powerde, split(/\s+/,$PowerD[$_]) for (0 .. $#PowerD);

復(fù)制代碼

onepublic

#use map
my @PowerD = map {s/^\s+//;split /\s+/} <DATA> ;
print "@PowerD";


__DATA__
    0.00000E+00  0.00000E+00  6.69445E+02  8.53129E+01  8.59203E+02
    9.73709E+01  4.11982E+01  5.44518E+00  1.38911E+01  1.80307E+00

fjndhjf

回復(fù) 5# onepublic

多謝了。你學(xué)習(xí)perl時看什么書呢？
   

fjndhjf

回復(fù) 4# Cu_fans

多謝了！
   

onepublic

小駱駝，從基礎(chǔ)的打起回復(fù) 6# fjndhjf