『初めてのPerl』第11章 Perlモジュール

モジュール内の特定のサブルーチンだけインポートする:

#!/usr/bin/env perl
use v5.12;
use warnings;
use File::Basename qw/ basename /; # リストで指定
my $name = "/usr/local/bin/perl";
say basename $name;

日付の操作はDateTimeモジュールで:

#!/usr/bin/env perl
use v5.12;
use warnings;
use DateTime;
my $now = DateTime->now();
my $y = $ARGV[0];
my $m = $ARGV[1];
my $d = $ARGV[2];
my $user = DateTime->new(year => $y, month => $m, day => $d);
my $duration = $now - $user;
my @units = $duration->in_units( qw(years months days));
printf "%d years, %d months, and %d days", @units;

コメントを残す

コメントを残す