1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu use v5.24;
 4 ffd9a51f 2023-08-04 jrmu use warnings;
 5 ffd9a51f 2023-08-04 jrmu use strict;
 6 ffd9a51f 2023-08-04 jrmu use utf8;
 7 ffd9a51f 2023-08-04 jrmu use local::lib;
 8 ffd9a51f 2023-08-04 jrmu use lib qw(/home/jrmu/documents/perl/Time-Moment-0.44/lib/);
 9 ffd9a51f 2023-08-04 jrmu use Time::Moment;
10 ffd9a51f 2023-08-04 jrmu 
11 ffd9a51f 2023-08-04 jrmu # Write a program using Time::Moment to compute the interval
12 ffd9a51f 2023-08-04 jrmu # between now and a date that you enter as the year and month on
13 ffd9a51f 2023-08-04 jrmu # the command line:
14 ffd9a51f 2023-08-04 jrmu #
15 ffd9a51f 2023-08-04 jrmu # $ perl duration.pl 1960 9
16 ffd9a51f 2023-08-04 jrmu # 50 years, 8 months, and 20 days
17 ffd9a51f 2023-08-04 jrmu 
18 ffd9a51f 2023-08-04 jrmu my $now = Time::Moment->now;
19 ffd9a51f 2023-08-04 jrmu my $then = Time::Moment->new(
20 ffd9a51f 2023-08-04 jrmu 	year => $ARGV[0],
21 ffd9a51f 2023-08-04 jrmu 	month => $ARGV[1],
22 ffd9a51f 2023-08-04 jrmu );
23 ffd9a51f 2023-08-04 jrmu $now->delta_years($dt);
24 ffd9a51f 2023-08-04 jrmu $now->delta_months($dt)%12;
25 ffd9a51f 2023-08-04 jrmu 
26 ffd9a51f 2023-08-04 jrmu print "$years years and $months months\n";