技術ブログ

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の配列、ハッシュ系の処理 (mapを中心に)

昨日書いたgrepに続き、mapについて調べたことを書いてみました。 Contents1 mapとは？2 mapを使った配列処理　基本3 mapを使った配列、ハッシュ処理　ハッシュを含む多次元配列への …

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

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

: Vagarant+Eclipse(Perl)での作業環境構築

現在の案件でPerlの改修があるんですが、windowsだとモジュールの依存関係でうまくコンパイルできなかったりといろいろとトラブルが起こったんで、今はやりの仮想環境でやることに。まだ完ぺきではない …

: Perlでの動的改行コード読み込みに関して+cp932ネタ

本日はperlにて改行コードを動的に読み込む方法です。 Contents1 動的な改行コードの判定・読み込み2 ShitfJISとcp932について動的な改行コードの判定・読み込み実務で古いMAC …

: PerlでのCSV取込+金額のカンマ表示

CSV取込の場合、単純にカンマで区切って配列を取得するだけのロジックを実装すると様々な弊害が起きます。よく見られるパターンとしては下記のようなケースでしょう。フィールドの中に、カンマがあった場合、 …

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

: 2019/10/13

Dockerfile作成での気づきなど(php+webサーバー)

: 2019/10/12

streamについて

: 2019/10/12

JavaScriptのexport

: 2019/09/29

tableでのヘッダー固定に関して

: 2019/09/20

気をつけたいトリガー系の処理など