7.5 時間副程式

# 取得時間的副程式
sub get_time {

	# 取得秒, 分, 時, 日, 月, 年 
	my ($sec,$min,$hour,$day,$mon,$year)=localtime(time);

	# 月比實際少一, 所以加 1
	$mon++;

	# 判斷是否為個位數, 若是則在前面補 0
	if (length ($mon) == 1) {$mon = '0'.$mon;}
	if (length ($day) == 1) {$day = '0'.$day;}
	if (length ($hour) == 1) {$hour = '0'.$hour;}
	if (length ($min) == 1) {$min = '0'.$min;}
	if (length ($sec) == 1) {$sec = '0'.$sec;}

	# 年比實際西元年少 1900, 所以加上 1900
	$year+=1900;

	# 組合成完整的時間
	my $alltime="$year/$mon/$day $hour:$min:$sec";

}

#! /usr/bin/perl

$now = get_time();

print "$now\n";

sub get_time {
	my ($sec,$min,$hour,$day,$mon,$year)=localtime(time);
	$mon++;
	if (length ($mon) == 1) {$mon = '0'.$mon;}
	if (length ($day) == 1) {$day = '0'.$day;}
	if (length ($hour) == 1) {$hour = '0'.$hour;}
	if (length ($min) == 1) {$min = '0'.$min;}
	if (length ($sec) == 1) {$sec = '0'.$sec;}
	$year+=1900;
	my $alltime="$year/$mon/$day $hour:$min:$sec";
}