Làm thế nào tôi có thể làm tròn một ngày đến khoảng cách 15 phút gần nhất trong Perl?

Question

Tôi muốn làm tròn thời gian hiện tại thành khoảng cách 15 phút gần nhất.
Vì vậy, nếu hiện tại là 6:07, nó sẽ đọc 6:15 làm thời gian bắt đầu.

Tôi có thể làm như thế nào?

Answer 1

Bạn có thể chia thời gian vào giờ và phút và sau đó sử dụng ceil chức năng như:

use POSIX; 

my ($hr,$min) = split/:/,$time;  
my $rounded_min = ceil($min/15) * 15; 

if($rounded_min == 60) { 
    $rounded_min = 0; 
    $hr++; 
    $hr = 0 if($hr == 24); 
} 

Answer 2

Khoảng 15 phút gần 6:07 là 6:00, không 06:15. Bạn có muốn khoảng thời gian 15 phút gần nhất hoặc khoảng thời gian 15 phút tiếp theo không?

Giả sử nó gần nhất, một cái gì đó như thế này làm những gì bạn muốn.

#!/usr/bin/perl 

use strict; 
use warnings; 

use constant FIFTEEN => (15 * 60); 

my $now = time; 

if (my $diff = $now % FIFTEEN) { 
    if ($diff < FIFTEEN/2) { 
    $now -= $diff; 
    } else { 
    $now += (15*60) - $diff; 
    } 
} 

print scalar localtime $now, "\n"; 

Answer 3

Một giải pháp dễ dàng là sử dụng Math::Round từ CPAN.

use strict; 
use warnings; 
use 5.010; 

use Math::Round qw(nearest); 

my $current_quarter = nearest(15*60, time()); 
say scalar localtime($current_quarter); 

Answer 4

Biến thể nhỏ trên câu trả lời đầu tiên sử dụng sprintf thay vì ceil và POSIX. Cũng không sử dụng bất kỳ mô-đun CPAN bổ sung nào. Điều này làm tròn lên hoặc xuống để 6:07 = 6:00, 6:08 = 6:15, 6:22 = 6:15 và 6:23 = 6:30. Lưu ý rằng một giờ được thêm vào nếu các phút được làm tròn bằng 60. Tuy nhiên để làm điều này đúng cách, bạn sẽ phải sử dụng một hàm thời gian và địa phương để thêm giờ. tức là thêm một giờ có thể thêm một ngày, tháng hoặc năm.

#!/usr/bin/perl 

    my ($hr,$min) = split/:/,$time; 

    my $interimval = ($min/15); 

    my $rounded_min = sprintf "%.0f", $interimval; 

    $rounded_min = $rounded_min * 15; 

    if($rounded_min == 60) 

    { 

    $rounded_min = 0; 

    $hr++; 

    $hr = 0 if($hr == 24); 

    }