我是 perl 的新手，我想了解如何使用回圈。我有多個目錄，每個目錄都包含一個名為 data.txt 的檔案。data.txt 檔案有幾列。我基本上需要使用回圈來計算每個 data.txt 檔案的每一列的平均值。
我有這個命令可以為一個檔案完成這項作業：
perl -lane 'for $c (0..$#F){$t[$c] = $F[$c]}; END{for $c (0..$#t){print $t[$c]/$.}}' data.txt`
我希望撰寫一個腳本來訪問每個目錄，讀取其中的每個檔案并應用命令。
例子：
資料.txt：
-79.2335 0.4041 71.9143 1.3392 -0.7687 0.0212 -8.0934 1.1425
-74.4163 0.6188 60.0468 1.8782 -0.8540 0.0305 -15.1574 1.4755
-74.4118 0.6046 62.1771 1.8058 -0.9143 0.0304 -13.2272 1.3408
-74.3895 0.5935 66.4264 1.6532 -0.8509 0.0223 -8.8819 1.2670
-74.3192 0.5589 67.1619 1.4763 -0.9656 0.0274 -8.1090 1.1450
-73.8272 0.6274 61.6632 1.7554 -0.8840 0.0256 -13.0435 1.3641
-73.3525 0.5856 60.6622 1.7872 -0.8489 0.0222 -13.5014 1.3947
-73.3206 0.6275 53.3129 2.2961 -0.7962 0.0337 -20.8195 1.8538
-72.5461 0.5212 62.0359 1.4267 -0.9378 0.0240 -11.4203 1.0295
-72.3058 0.7225 56.2304 2.1480 -0.7539 0.0293 -16.7954 1.5952
-72.1180 0.6460 51.7954 2.0845 -0.8479 0.0265 -21.0355 1.4630
-72.0690 0.4905 58.8372 1.3918 -0.9866 0.0333 -14.1823 1.1045
-71.7949 0.5799 55.6006 1.9189 -0.8541 0.0313 -17.0112 1.4530
-71.3074 0.4482 45.9271 2.1135 -0.6637 0.0354 -25.9309 1.8761
-71.2542 0.4879 57.3196 1.5406 -0.9523 0.0281 -14.9113 1.2705
-71.2421 0.5480 47.9065 2.2445 -0.8107 0.0352 -24.2489 1.7997
-70.3751 0.5278 49.5489 1.8395 -0.8208 0.0371 -21.5205 1.4994
-69.2181 0.4823 54.8234 1.0645 -0.9897 0.0246 -15.3506 0.9369
-69.0456 0.4650 40.3798 2.0117 -0.6476 0.0360 -29.3403 1.7013
-66.5402 0.5006 42.1805 1.7872 -0.7692 0.0356 -25.1431 1.4522
輸出：
-72.354355 0.552015 56.297505 1.77814 -0.845845 0.029485 -16.88618 1.408235
uj5u.com熱心網友回復：
正如您的評論所暗示的，您有一個簡單的目錄結構，其中一個名為mean100 個子目錄的主目錄，每個子目錄都有一個名為 的檔案data.txt，檔案串列可以使用 glob 輕松編譯，并且數學相當簡單。這是一個如何完成的建議。
我不會$.用作計算平均值的方法，因為它可能會被其他因素破壞。但只需為每個檔案使用一個計數變數，并計算非空行。
use strict;
use warnings;
use feature 'say';
for my $data (glob "mean/*/data.txt") { # get list of files
open my $fh, '<', $data or die "Cannot open file '$data': $!";
my @sum;
my $count = 0;
while (<$fh>) {
$count if /\S/; # count non-blank lines
my @fields = split; # split on whitespace
for (0 .. $#fields) {
$sum[$_] = $fields[$_]; # sum columns
}
}
say $data; # file name
say join "\t", # 3. ...join them with tab and print
map $_/$count, # 2. ...for each sum, divide by count
@sum; # 1. Take list of sums...
}
輸出：
mean/A/data.txt
-72.354355 0.552015 56.297505 1.77814 -0.845845 0.029485 -16.88618 1.408235
mean/B/data.txt
-142.354355 0.552015 56.297505 1.77814 -0.845845 0.029485 -16.88618 1.408235
mean/C/data.txt
-72.354355 17.152015 56.297505 1.77814 -0.845845 0.029485 -16.88618 1.408235
uj5u.com熱心網友回復：
我不是 Perl 專家，但這對我有用。它將結果列印到終端。或者，您可以根據需要將其重定向到檔案，或者直接寫入檔案而不是列印到終端。
use 5.28.2;
use warnings;
use File::Find;
my ($inf, @sum);
for my $dir (glob "/mainDirectory/*"){ # finds files/subdirectories
if (! -d $dir) {
next; # keeps only directories
}
$inf= "$dir/data.txt";
say "$inf";
find(\&sum_columns, $inf);
}
sub sum_columns{
open (IN, "<", "$inf" ) or die "Cannot open file.\n $!";
while (<IN>){
my $line = $_;
chomp $line;
my @columns = split(/\s /,$line);
for my $item (0 .. $#columns){
$sum[$item] = $columns[$item];
}
}
say "@sum";
@sum=();
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/439356.html
上一篇：perlDBI模塊安裝出錯