技術ブログ

Perlでの日付処理

投稿日：2017年1月16日

Perlで翌月の月末を求め、yyyyMMddで表示する計算があったので対応。

知識がなかったんで何気にちょい時間がかかりました。PerlではこのDateTimeというライブラリがよさげ。

use DateTime;

my $today = DateTime->now;
my $from =  DateTime->new( year => $today->year, month => $today->month , day=>1 )->add(months => -1, end_of_month => "preserve")->ymd('/');
my $next_month = DateTime->now->add(months => 1, end_of_month => "preserve");
my $to   =  DateTime->last_day_of_month( year => $next_month->year , month => $next_month->month )->ymd('/');

1

2

3

4

5

6

use DateTime;

my $today = DateTime->now;

my $from = DateTime->new( year => $today->year, month => $today->month , day=>1 )->add(months => -1, end_of_month => "preserve")->ymd('/');

my $next_month = DateTime->now->add(months => 1, end_of_month => "preserve");

my $to = DateTime->last_day_of_month( year => $next_month->year , month => $next_month->month )->ymd('/');

参考リンク

http://monmon.hateblo.jp/entry/20100428/1272438175
http://iandeth.dyndns.org/mt/ian/archives/000619.html
http://memo.sugyan.com/entry/20140131/1391177666

-Perl
-ライブラリ

執筆者：matsumoto

comment コメントをキャンセル

関連記事

: Perl整形ツール Perl Tidy

PHPでコード整形ツールを使いましたが、Perlでも整形ツールがあったのでちょっとメモ。 Perl::Tidyというモジュールです。公式 http://perltidy.sourceforge.ne …

: Perlの文字コードに関してその2

前回のエントリーでPerlで文字列を扱う場合は内部文字列に変換しなくてはいけないことを学びました。 Contents1 内部文字列を使うわけ2 文字コードの変換内部文字列を使うわけところで何のため …

: Perlでのデータベース差分チェックツール

Perlにてデータベースの差分が発生したときに簡単に差分を埋めるためのSQLを書くライブラリがあったので紹介。ライブラリがない場合、cpan SQL::Translator でまずライブラリをCPA …

: Perlでの配列処理

最近Perlでの開発をやっているのでそこでのメモなどを書きます。今まであまりやったことがなかったんですけど、やはり文字列や配列関連の処理をどうやるのかでいろいろと迷ったりします。が、もともとテキス …

: 大容量データの取り込みについて

普段プログラムを組むときには可読性や保守性が大事なポイントになりますが、それと同じぐらい速度やメモリ効率なんかも大事です。今回は少ないメモリでもなんとかできるような工夫をちょっとかいていこうかなと思 …

PREV: PHP(DBアクセス)→HTML→Angularを実行するために
NEXT: セッションとクッキーについて

: 2019/08/13

S3 commandPoolについて

: 2019/08/02

HTMLの画像化について

: 2019/07/28

docker-compose(CentOS7系やMySQLのオプションなど)

: 2019/07/20

duコマンドについて

: 2019/07/20

object-fitによる画像比率を保ったセンタリング