terminalforlife / perlprojects Goto Github PK

#------------------------------------------------------------------------------
# Path         - /usr/bin/editbash
# GitHub       - https://github.com/The-Repo-Club/
# Author       - The-Repo-Club [[email protected]]
# Start On     - Sat 30 Oct 15:00:06 BST 2021
# Modified On  - Sun 31 Oct 01:01:56 BST 2021
#------------------------------------------------------------------------------

#!/usr/bin/env perl
#cito M:755 O:0 G:0 T:/usr/bin/dayborn
#------------------------------------------------------------------------------
# Project Name      - PerlProjects/source/dayborn
# Started On        - Mon 10 Feb 23:49:15 GMT 2020
# Last Change       - Mon  1 Feb 01:44:26 GMT 2021
# Author E-Mail     - [email protected]
# Author GitHub     - https://github.com/terminalforlife
#------------------------------------------------------------------------------
# This project was originally called Iteration. The aim was to generate a more
# traditional version number from the delta of the two timestamps, the time the
# project was born, and the time of the last change made.
#
# In the end, it wound up being a nifty little program which simply outputs how
# many days it has been since the project was born, hence the name.
#
# Dependencies:
#
#   perl (>= 5.22.1-9)
#------------------------------------------------------------------------------

require Date::Format;
require Time::Piece;

use v5.22.1;
use strict;
use warnings;
use autodie;
use Date::Format 'time2str';
use Time::Piece;

no warnings 'uninitialized';

my $CurVer = '2021-02-01';
my $Progrm = 'dayborn';

sub Usage{
	print(qq{Usage: $Progrm [OPTS] [FILE]

		  -h, --help               - Display this help information.
		  -v, --version            - Output the version datestamp.
	} =~ tr/\t//dr)
}

while (defined($ARGV[0])){
	if ($ARGV[0] =~ '^(--help|-h|-\?)$'){
		Usage(1); exit(0)
	}elsif ($ARGV[0] =~ '^(--version|-v)$'){
		print("$CurVer\n"); exit(0)
	}elsif ($ARGV[0] =~ '^-'){
		die("Incorrect option(s) specified")
	}else{
		last
	}

	shift()
}

scalar(@ARGV) == 1 or die("File name required");
scalar(@ARGV) > 1 and die("Only one file at a time is valid");

-f $ARGV[0] or die("File '$ARGV[0]' not found");
-r $ARGV[0] or die("File '$ARGV[0]' unreadable");
-B $ARGV[0] and die("File '$ARGV[0]' is binary");

open(my $FH, '<', $ARGV[0]);

my ($Start, $Now);
while (<$FH>){
	/^# (Started|Modified) / or next;

	chomp(my @Arr = split(' '));

	# The following format (sans quotes) is expected:
	#
	#   '# Started On        - Mon 10 Feb 23:49:15 GMT 2020'
	#
	if ($Arr[1] eq 'Started') {
		$Start = Time::Piece->strptime(
			join(' ', @Arr[4,6,5,7,9]), '%a %b %d %T %Z %Y'
		)->epoch()
	}

	# The following format (sans quotes) is expected:
	#
	#   '# Modified On       - Tue 11 Feb 01:00:34 GMT 2020'
	#
	if ($Arr[1] eq 'Modified') {
		$Now = Time::Piece->strptime(
			join(' ', @Arr[4,6,5,7,9]), '%a %b %d %T %Z %Y'
		)->epoch()
	}
}

close($FH);

my $Project = ($ARGV[0] =~ m{(?:.*/)?([^/].*)})[0];
my $DeltaDay = ($Now - $Start) / 60 / 60 / 24;

printf("Project '%s' was born %.2f day's ago.\n", $Project, $DeltaDay)

Project 'editbash' was born 18931.04 day's ago.