请大家指点一下：怎样将文件写入有文件头代表的列数组？

qinyu2008

seconds      Primitive        Delta    Count - Type
167265        SATA_SOF        252      Host -> Dev
167290         SATA_SOF        286      Host -> Dev
167294         SATA_SOF        115      Host -> Dev
167409         SATA_SOF        131      Host -> Dev
167542         SATA_SOF        194      Host -> Dev
167737        SATA_SOF        183      Host -> Dev
167921         SATA_SOF        134      Host -> Dev
怎样将上述文件写入数组@seconds      @Primitive        @Delta    @Count - Type中？
即用列来表示。

ynchnluiti

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. open FH, "data" or die "open 'data': $!";
   
5. 
   
6. while (<FH>) {
   
7.     chomp;
   
8. 
   
9.     if ($. == 1) {
   
10.         @col = (split)[0 .. 3, 5];
    
11.         next;
    
12.     }
    
13. 
    
14.     $i = $. - 2;
    
15.     ($col[0]->[$i], $col[1]->[$i], $col[2]->[$i], $col[3]->[$i], $col[4]->[$i]) = (split)[0 .. 3, 5];
    
16. }
    
17. 
    
18. print join("\t", @col), "\n";
    
19. for (0 .. $i) {
    
20.     printf ("%s\t%s\t%s\t%s\t%s\t\n",
    
21.                $seconds[$_],
    
22.                $Primitive[$_],
    
23.                $Delta[$_],
    
24.                $Count[$_],
    
25.                $Type[$_],
    
26.            );
    
27. }
    
28. 
    
29. print "-" x 60, "\n";
    
30. for $n (0 .. $i) {
    
31.     printf ("%s\t%s\t%s\t%s\t%s\t\n",
    
32.                $col[0]->[$n],
    
33.                $col[1]->[$n],
    
34.                $col[2]->[$n],
    
35.                $col[3]->[$n],
    
36.                $col[4]->[$n],
    
37.            );
    
38. }
    
39. 
    
40. close FH;
    
41. 
    
42. __END__
    
43. print "-" x 60, "\n";
    
44. seek FH, 0, 0;
    
45. while (<FH>) {
    
46.     print && next if $. == 1;
    
47.     chomp;
    
48. 
    
49.     $i = $. - 2;
    
50.     ($seconds[$i], $Primitive[$i], $Delta[$i], $Count[$i], $Type[$i]) = (split)[0 .. 3, 5];
    
51. }
    
52. for (0 .. $i) {
    
53.     printf ("%s\t%s\t%s\t%s\t%s\t\n",
    
54.                $seconds[$_],
    
55.                $Primitive[$_],
    
56.                $Delta[$_],
    
57.                $Count[$_],
    
58.                $Type[$_],
    
59.            );
    
60. }
    
61. close FH;
    

复制代码

qinyu2008

楼上辛苦了！不过还想问一下
$i = $. - 2;
    ($col[0]->[$i], $col[1]->[$i], $col[2]->[$i], $col[3]->[$i], $col[4]->[$i]) = (split)[0 .. 3, 5];
)是什么意思？为什么是[0 .. 3, 5];而不是0..4.？其中Count - Type是一个单元，我想一起放在$col[3]->[$i]中, 但是去掉$col[4]->[$i]也不行，该怎样改程序？


[ 本帖最后由 qinyu2008 于 2008-12-3 22:57 编辑 ]

ynchnluiti

原帖由 qinyu2008 于 2008-12-3 22:47 发表
楼上辛苦了！不过还想问一下
$i = $. - 2;
    ($col[0]->[$i], $col[1]->[$i], $col[2]->[$i], $col[3]->[$i], $col[4]->[$i]) = (split)[0 .. 3, 5];
)是什么意思？为什么是[0 .. 3, 5];而不是0..4.？其中 ...

我看你贴的内容Count - Type中-前后各有一个空格，split默认使用/\s+/切分字段。所以(split)[4]的内容是->，代码中忽略了。

如果Count - Type 中-前后有空格吧？

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. open FH, "data" or die "open 'data': $!";
   
5. 
   
6. while (<FH>) {
   
7.     chomp;
   
8. 
   
9.     @fields = split;
   
10.     if ($. == 1) {
    
11.         @col = (@fields[0 .. 2], "$fields[3]$fields[5]");
    
12.         next;
    
13.     }
    
14. 
    
15.     $i = $. - 2;
    
16.     ($col[0]->[$i], $col[1]->[$i], $col[2]->[$i], $col[3]->[$i]) = (@fields[0..2], "@fields[3..5]");
    
17. }
    
18. 
    
19. print join("\t", @col), "\n";
    
20. for $n (0 .. $i) {
    
21.     printf ("%s\t%s\t%s\t%s\t\n",
    
22.             $col[0]->[$n],
    
23.             $col[1]->[$n],
    
24.             $col[2]->[$n],
    
25.             $col[3]->[$n],
    
26.            );
    
27. }
    
28. #print "-" x 60, "\n";
    
29. #for (0 .. $i) {
    
30. #    printf ("%s\t%s\t%s\t%s\t%s\t\n",
    
31. #            $seconds[$_],
    
32. #            $Primitive[$_],
    
33. #            $Delta[$_],
    
34. #            $CountType[$_],
    
35. #           );
    
36. #}
    
37. #
    
38. close FH;
    

复制代码

machine

其中 $col[0]->[$i]  写成 ${col[0]}[$i]  可以吗

bitterness

请教

#!/usr/bin/perl -w
use warnings;

my @array1;
my @seconds;
open (han1,"list") or die ("Can't open the file.");

while(<han1>){
push @array1,[ split ];
}
print "-------------------------\n";
foreach (@array1){
print "@$_\n";
}
print "-------------------------\n";
for(my $i=0;$i<6;$i++){
@seconds=$array1[$i][0];       为什么不能通过这样给一个数据
}
#print "$array1[2][0]\n";
print "$seconds[0]\n";
print "$seconds[1]\n";

ynchnluiti

原帖由 bitterness 于 2008-12-4 10:33 发表
请教

#!/usr/bin/perl -w
use warnings;

my @array1;
my @seconds;
open (han1,"list") or die ("Can't open the file.");

while(){
push @array1,[ split ];
}
print "----------------------- ...

不能这么给数组赋值。
@seconds=$array1[$i][0];   相当于 @seconds= ( $array1[$i][0] );#只有一个元素的列表

数组赋值：
$array[@array] = value;
@array = ( list );
push @array, list,
引用等方式

ynchnluiti

原帖由 machine 于 2008-12-4 09:29 发表
其中 $col[0]->[$i]  写成 ${col[0]}[$i]  可以吗

可以啊。

zzyong08

代码写的太漂亮了