perl／サンプルコード〜サブルーチンを使う〜

#! usr/bin/perl

use strict;
use warnings;

#サブルーチンを使って、現在時刻をカスタマイズ表示してみた。

sub get_date_string {
    my @week=('sun','mon','tue','wed','thu','fri','sat');
    my ($sec,$min,$hour,$day,$mon,$year,$weekday)=localtime();

    $year = $year+1900;
        
    $mon++;
    $mon='0'.$mon if($mon<10);
    $day='0'.$day if($day<10);
    $hour='0'.$hour if($hour<10);
    $min='0'.$min if($min<10);
    $sec='0'.$sec if($sec<10);

    return "$year-$mon-$day ($week[$weekday]) $hour:$min:$sec";
}

print &get_date_string,"\n";