UNIX for Dummies Questions & Answers

#!/usr/bin/env bash

# @(#) s3       Demonstrate perl manipulation of date strings.

pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C perl

pl " Content of perl script p3:"
cat p3

one="20120624192555"
two="20120624204006"
pl " Results for difference $one $two:"

./p3 $one $two

exit 0

$ ./s3

Environment: LC_ALL = POSIX, LANG = POSIX
(Versions displayed with local utility "version")
OS, ker|rel, machine: SunOS, 5.10, i86pc
Distribution        : Solaris 10 10/08 s10x_u6wos_07b X86
GNU bash 3.00.16
perl 5.8.4

-----
 Content of perl script p3:
#!/usr/bin/env perl

# @(#) p3       Demonstrate date arithmetic.
# See:
# http://search.cpan.org/~sbeck/Date-Manip-6.32/lib/Date/Manip/DM5.pod

use strict;

BEGIN {
  $Date::Manip::Backend = 'DM5';
}
use Date::Manip;
use warnings;

my ($debug);
$debug = 1;
$debug = 0;

my($dt1,$dt2);
$dt1 = shift || die " Need a date argument.\n";
$dt2 = shift || die " Need a date argument.\n";

print " dt1 = $dt1; dt2 = $dt2\n" if $debug;

my($diff);
$diff = DateCalc($dt1,$dt2);
print " diff is $diff\n" if $debug;
print "$diff\n";

exit(0);

-----
 Results for difference 20120624192555 20120624204006:
+0:0:0:0:1:14:11