技術ブログ

Perlでの日付処理

投稿日：2017年1月16日更新日：2020年5月11日

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('/');

参考リンク

DateTimeを使って先月と先月の最終日を求める
 Perlで日付・時間を操作 – DateTime モジュールの使い方
 Time::Pieceでadd_monthsするときは月末の扱いに気をつける

-Perl
-ライブラリ

執筆者：matsumoto

comment コメントをキャンセル

関連記事

: Perlの文字コードについてその3

実際のPerlでの文字処理に関しては以前の記事でも書いたように下記の原則を守ればＯＫです。原則1 外部から入力された文字列はデコードして内部文字列に変換する原則2 外部へ出力する文字列はエンコ …

: Perl整形ツール Perl Tidy

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

: Perlでの配列処理

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

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

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

: Perlの配列、ハッシュ系の処理 (mapを中心に)

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

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

: 2020/07/12

go言語について(GOPATH、テスト、go.sum、go.mod、ライブラリ)

: 2020/07/05

Postgresメモ(データベース、スキーマ、他pgadminなど)

: 2020/06/26

phpenvで入れたphpの起動スクリプトに関して

: 2020/06/22

herokuへのdockerコンテナ送付とdocker volumeについて

: 2020/06/20

非同期通信のまとめ($.ajax,fetch,axiosなど)