From a8e5e61d0b3319e70bc97f9147de98334eaee43d Mon Sep 17 00:00:00 2001
From: Nao Ueda <nao.uedder@gmail.com>
Date: Sat, 6 Feb 2021 09:04:08 +0900
Subject: refactoring

---
 time-getter.pl | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'time-getter.pl')

diff --git a/time-getter.pl b/time-getter.pl
index a42be33..4f53041 100644
--- a/time-getter.pl
+++ b/time-getter.pl
@@ -64,17 +64,14 @@ while (<COMMITS>) {
             next;
         }
 
+
         if ($list{$filename} !~ /$blobhash/) {
-            print $filename . "\t" . $prevtimestamp . " \n";
-            delete ($list{$filename});
-            delete ($all_file{$filename});
+            do_print($filename, $prevtimestamp);
         }
     }
 
     foreach my $filename (keys(%remained)) {
-        print $filename . "\t" . $prevtimestamp . " \n";
-        delete ($list{$filename});
-        delete ($all_file{$filename});
+        do_print($filename, $prevtimestamp);
     }
 
     $prevtimestamp = $timestamp;
@@ -82,4 +79,11 @@ while (<COMMITS>) {
     close (BLOBS);
 }
 
+sub do_print() {
+    my ($filename, $timestamp) = @_;
+    print $filename . "\t" . $timestamp . " \n";
+    delete ($list{$filename});
+    delete ($all_file{$filename});
+}
+
 close (COMMITS);
-- 
cgit v1.2.3-54-g00ecf