完成

perl

そもそもお題が

「スクリプトを実行することで、現在の日付を返すスクリプト」

だったので、純粋に「現在の日付」だけ返すようにして完成。



#!/usr/bin/perl

use strict;

use warnings;

my ($sec, $min, $hour, $mday, $mon, $year) = localtime();

print sprintf("%d/%02d/%02d\n", $year+1900,$mon+1,$mday);


>perl date.pl

2005/10/31

  • $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdstはこの順番じゃないと駄目らしい
  • なので、$sec, $min, $hour, $mday は使わないけど消すとまずい
  • $wday, $yday, $isdst は使わないので消してみた