Хорошо, поэтому я очень новичок в Perl. У меня есть текстовый файл, а в файле есть 4 столбца данных (дата, время, размер файлов, файлов). Мне нужно создать небольшой script, который может открыть файл и получить средний размер файлов. Я читал так много онлайн, но я все еще не могу понять, как это сделать. Это то, что у меня есть до сих пор, но я не уверен, что я даже близко делаю это правильно.
#!/usr/bin/perl
open FILE, "files.txt";
#@array = File;
while(FILE){
#chomp;
($date, $time, $numbers, $type) = split(/ /,<FILE>);
$total += $numbers;
}
print"the total is $total\n";
Так выглядят данные в файле. Это лишь некоторые из них. Мне нужно получить числа в третьем столбце.
12/02/2002 12:16 AM 86016 a2p.exe
10/10/2004 11:33 AM 393 avgfsznew.pl
11/01/2003 04:42 PM 38124 c2ph.bat