Perl：計算日期差異和平均日期

-1

Ticket Submitted_date  Ticket closed_date 
2017-05-11 12:47:08.2  2017-05-26 07:00:16.0 
2017-05-11 13:23:10.96  2017-05-27 22:01:02.0 
2017-05-11 13:23:02.483 2017-05-24 08:10:20.0 
2017-05-11 13:28:35.247 2017-05-24 08:12:33.0

代碼如下，

use strict; 
use warnings; 

my $qstr = "select id as 'id', status as 'status', $subject.title as 'title', $subject.component as 'component', $subject.submitted_date as 'submitted_date', $subject.closed_date as 'closed_date' where ($subject.status = 'complete' OR $subject.status = 'rejected')"; 
my $results = &search($api, $tenant, $subject, $qstr); 

foreach my $singleRow (@$results) { 
     my $title =$singleRow->{'title'}; 
     my $component = $singleRow->{'component'}; 
     my $sub_date = $singleRow->{'submitted_date'}; 
     my $closed_date = $singleRow->{'closed_date'}; 

     $sub_date =~ /^(.{4})-(.{2})-(.{2})T(.{2}):(.{2}):(.{2})\.(.{3})/;

如何計算上述數據的平均天數不知道。需要幫助...新Perl的...

來源

2017-08-03 Perl newbie

你是什麼意思「_average days_」是什麼意思？ – zdim

1.從變量/行中提取日期（使用'split'或regex或兩者）2.找到您喜歡的日期/時間模塊。一個簡單的選擇是[DateTime]（http://search.cpan.org/~drolsky/DateTime-1.43/lib/DateTime.pm），但肯定還有其他的。他們中的大多數都有你需要的設施。 3.將日期/時間設置爲模塊所需的格式 – zdim

您的日期時間格式非常標準，許多模塊都能理解它，所以您無需解析它（一旦您從數據線中獲取它你展示的） – zdim

#! /usr/bin/perl 
use warnings; 
use strict; 
use feature qw{ say };  
use Syntax::Construct qw{ /r }; # /r in 5.014 

use Time::Piece; 
use Time::Seconds; 

my $results = [[ '2017-05-11 12:47:08.2', '2017-05-26 07:00:16.0' ], 
       [ '2017-05-11 13:23:10.96', '2017-05-27 22:01:02.0' ], 
       [ '2017-05-11 13:23:02.483', '2017-05-24 08:10:20.0' ], 
       [ '2017-05-11 13:28:35.247', '2017-05-24 08:12:33.0' ]]; 

my $sum = 0; 
for my $single_row (@$results) { 
    my ($from, $to) = map 'Time::Piece'->strptime(
          s/\.[0-9]+$//r, '%Y-%m-%d %H:%M:%S' 
        ), 
         @$single_row; 
    my $delta = $to - $from; 
    $sum += $delta; 
} 
my $average = $sum/@$results; 
say 'AVERAGE: ', $average/ONE_DAY, ' days.';

Time::Piece不支持亞秒級的精度，所以結果可能是幾微秒關閉。

來源

2017-08-03 09:39:24 choroba

Perl：計算日期差異和平均日期

回答

相關問題