Perl腳本編輯CSV文件

Question

我有一個CSV輸入文件（input.csv）用數字看起來像：

1.34,7.56,4.57,6.7,4.9, 3.4,5.7,5.4,........ 

我想編輯的文件，插入數字和字段之間用冒號喜歡;

1:1.34 2:7.56 3:4.57 4:6.7 5:4.9 6:3.4 7:5.7 8:5.4.......... 

這裏是我的腳本：

#!/usr/bin/perl 
use strict; 
use warnings; 

#Opening the CSV file 

my $csv_file = "input.csv"; 

open (my $fh, "<", $csv_file) or die "Cannot open '$csv_file': $! "; 

#parsing 

while (my $lines = <$fh>) { 

    chomp $lines; 

    my @features = split (',', $lines); 
    print "$lines \n"; 
} 

#inserting numbers 

for (my $x = 1; $x <= 1371; $x++){ 
    print $x . ":" . $features[$x-1]; 
} 

我得到一個錯誤： 全局符號 「@features」 需要在script_T.pl行明確包名23

Answer 1

之前定義@features while循環：

my @features; 
while (my $lines = <$fh>) { 
    chomp $lines; 
    @features = split (',', $lines); 
    print "$lines \n"; 

    for(my $x=1; $x <=1371 ; $x++){ 
     print $x .":".$features[$x-1]; 
    } 
} 

Answer 2

您已聲明@feature使用「我的」，這使得它只能在塊內使用。在之前聲明它。 想了解更多關於在Perl範圍，閱讀

Variable Scoping in Perl: the basics

what-is-the-difference-between-my-and-our-in-perl

Answer 3

這可以整齊地split，map和join，這樣來完成。

#!/usr/bin/perl 
use strict; 
use warnings; 

while (<>) { 
    my @fields = split /\s*,\s*/; 
    print join ' ', map "$_:$fields[$_-1]", 1 .. @fields; 
} 

輸出

1:1.34 2:7.56 3:4.57 4:6.7 5:4.9 6:3.4 7:5.7 8:5.4 9:........ 

程序期望的路徑，輸入文件作爲命令行參數，這樣

./count_fields.pl input.csv