如何编写从另一个文件读取的 Perl 脚本？

Question

我想编写一个 Perl 脚本来读取包含数字列的 file.txt，

20  30  12
31  20  54
63  30  21
11  12  10

并进行一些计算，例如平均值。我不知道如何声明和初始化它。 我有这个例子，其中正在寻找中位数，并且它声明了数据，在我的例子中，数据位于文件中，而不是在脚本中，并且想要计算中位数。 有它.. #!/usr/bin/perl

#data points 
@vals = ( 33, 23, 55, 39, 41, 46, 38, 52, 34, 29, 27, 51, 33, 28 ); 
print "UNSORTED: @vals\n"; 

#sort data points 
@vals = sort(@vals); 
print "SORTED: @vals\n"; #test to see if there are an even number of data points 
if( @vals % 2 == 0) { 

#if even then: 
$sum = $vals[(@vals/2)-1] + $vals[(@vals/2)]; 
$med = $sum/2; 
print "The median value is $med\n";
}
else{ 
#if odd then: 
print "The median value is $vals[@vals/2]\n";
} 
exit;

Answer 1

使用 open 命令。该页面上有很多很好的例子。

Answer 2

这个shell单行将第一列与第二列相乘：

perl -lane 'print $F[0] * $F[1]' <FILE>

编辑：以及具有您的新要求的perl脚本版本和具有3列的文件：

#!/usr/bin/perl

use strict;
use warnings;

my (@vals, $sum, $med);

while (<>) {
    @vals = split;

    print "UNSORTED: @vals\n"; 

    #sort data points 
    @vals = sort(@vals); 
    print "SORTED: @vals\n"; #test to see if there are an even number of data points 

    if(@vals % 2 == 0) { 
        #if even then: 
        $sum = $vals[(@vals/2)-1] + $vals[(@vals/2)]; 
        $med = $sum/2; 
        print "The median value is $med\n";
    }
    else{ 
        #if odd then: 
        print "The median value is $vals[@vals/2]\n";
    } 

    print "\n";
}

您可能会明白发生了什么，而不仅仅是剪切和删除。粘贴;)

运行脚本：

./script.pl file_with_cols.txt

Answer 3

以下是建议使用的函数（请参阅函数参考）：

1. 打开文件进行阅读：使用 open 函数
2. 循环遍历每一行： while (my $line = <$filehandle>)
3. 删除尾随换行符：使用 chomp
4. 提取每行的值：使用split 函数
5. 将值存储在数组中：使用 push

要验证您的数组最后是否具有您想要的内容：

use Data::Dumper;
print Dumper \@vals;

更新

没有给您完整的答案（因为这是家庭作业）查看函数参考的每个条目中的示例代码。

这里有一些可以帮助您开始的东西：

open my $filehandle, '<', $filename
    or die "Couldn't open $filename";
while (my $line = <$filehandle>) {
    # do stuff with $line
}
close $filehandle;