カレンダ−・プログラムの改良(3)−現在日の表示

カレンダー・プログラムをさらに改良していきましょう。Version 0.1 と 0.2 では、コマンドラインでパラメータを入れなかった場合、エラーを返しましたが、Version 0.3 では、現在の月を表示し、現在日が何日かを示すようにしてみましょう。

($sec, $min, $hour, $date, $month, $year, $day) = localtime(time);

$year = 2000 + $year - 100;
$month++;

sub get_current_time(){
local ($sec, $min, $hour, $date, $month, $year, $day);

($sec, $min, $hour, $date, $month, $year, $day) = localtime(time);
$year = 2000 + $year - 100;
$month++;
return ($year, $month, $date);
}

メインルーチンで書き換えたのは 以下の部分です。以前は if(....){...., exit(0)} となっていましたので、次は if でもよかったのですが、今度は、elsif にしないと、うまく動きません。elsif は else if という意味ですが、else if や elseif とするとエラーになります。

($this_year, $this_month, $today) = &get_current_time();
if($ARGV[0] eq ""){
    $year = $this_year;
    $month = $this_month;
    }
elsif($ARGV[1] eq ""){
    ....
    }
else{
    ....
    }

現在日はカラーで表示します。現在日をカラーで表示するにはエスケープシーケンスを使います。8進法でエスケープ記号は \033 で表しますので、エスケープシーケンスは \033[＜コード＞m というふうに書きます。＜コード＞ に入る数字は次のとおりで、複数指定するには ; で区切ります。

色 文字色 背景色 黒 30 40 赤 31 41 緑 32 42 茶 33 43 青 34 44 紫 35 45 水 36 46 灰 37 47

スタイル コード リセット 0 太字 1 通常 2 斜体 3 下線 4 ブリンク 5 速いブリンク 6 反転 7 透明 8

スタイルとカラーを組み合わせて、下記のように表します。ボールドにした場合、カラーは薄くなります。カラーコードやスタイルコードを使ったあとは、\033[0m をつけてリセットしておかなくてはいけません。

print "\033[1;32mThis is bold and green.\033[0m";
print "\033[1;37;44mThis is bold and white on blue.\033[0m\n";

現在日をグリーンのボールド字体で表すように、表示サブルーチンに次の行を加えました。

$date = 1;
while($date <= $last_date){
    print " ";
    if ($date < 10){
        print " ";
        }
    if ($year == $this_year and $month == $this_month and $date == $today){
        print "\033[1;32m";
        }
    print $date;
    print "\033[0m";
    if(($first_day + $date -1) % 7 == 6){
        print "\n";
        }
    $date++;
    }

[前のぺ−ジ]　[目次]　[次のぺ−ジ]