日付の引き算

Perl 30分プログラム

30分プログラム、その190。日付をいれると何日前か表示する。
findの-mtimeとかは何日前かを元に計算するので、そのためのプログラム。昔、似たプログラムを書いた気がする。

使い方

$ dday 2007/11/25
1

$ dday 2007/11/1
25

# 2007/10/31に編集したファイルを探す
$ find . -mtime $(dday 2007/10/31) -print
./dynamic.py
./dynamic.pyc

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# dday.pl - delta of day
#
# Copyright(C) 2007 by mzp
# Author: MIZUNO Hiroki
# http://mzp.sakura.ne.jp/
#
# Timestamp: 2007/11/25 21:03:27
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
use strict;
use warnings;

use Date::Parse;
use Date::Calc qw(Delta_Days Today);

my ($ss,$mm,$hh,$day,$mon,$year) = strptime($ARGV[0]);
print Delta_Days($year+1900,$mon+1,$day,Today())+1,"\n";

参考