#!/usr/bin/perl

use strict;
use warnings;

BEGIN { #234567
	local $Date::Calc::XS_DISABLE = 1; #2
	require Date::Calc; #234567
	Date::Calc->import( qw/Date_to_Time/ ); #234567
} #234567
use Time::Local qw/timelocal_nocheck/; #1


my $file = $ARGV[0];
my ($time_frame) = $file =~ /(\d+)/;
$\ = "\n";
$, = ","; #56

my @dateTime; #56
my ($date, $time); #5
my ($year, $mon, $day, $hour, $min); #12347

for (1..10) {
open DATA, $file or die "Can't open file $file";

my ($t0, $t1, $sec_int, $min_int);
while (<DATA>) {
 	($year, $mon, $day, $hour, $min) = /^(\d{4}).(\d{2}).(\d{2}),(\d{2}):(\d{2})/o; #123
 	($year, $mon, $day, $hour, $min) = /^(\d{4}).(\d{2}).(\d{2}),(\d{2}):(\d{2})/; #7
 	($year, $mon, $day, $hour, $min) = /^(\d+).(\d+).(\d+),(\d+):(\d+)/o; #4
 	($date, $time) = split ','; #5
 	@dateTime = "$date $time 0" =~ /(\d+)/g; #5
	@dateTime = /^(\d{4}).(\d{2}).(\d{2}),(\d{2}):(\d{2})/o; #6
 	
 	$t1 = Date_to_Time @dateTime; #5
	$t1 = Date_to_Time(@dateTime,0); #6
 	$t1 = Date_to_Time $year, $mon, $day, $hour, $min, 0; #2347
 	$t1 = timelocal_nocheck(0, $min, $hour, $day, $mon-1, $year); #1
 	
	if ( defined $t0 ) {
		$sec_int = $t1 - $t0;
		$min_int = int $sec_int/60;
# 		warn "Leap second encountered around $year.$mon.$day $hour:$min" if $sec_int % 60;
		print "$year.$mon.$day $hour:$min - $min_int" #12347
		print @dateTime, " - ", $min_int #56
			unless $min_int == $time_frame or $min_int > 36*60;
	}
	
	$t0 = $t1;
}

close DATA;
}