まず、ソース。 use CGI qw/:standard/; my $c = CGI->new(); my $v = $c->Vars(); print $c->start_html(-title=>$v->{title}); print start_html(-title=>$v->{title}); これだけのソースなんですけれど。 print $c->start_html(-title=>$v->{title}); こ…

Time::SecondsのONE_MONTHが期待通りじゃなかったので…。 use Time::Piece; my $t = localtime(); $mon = sprintf("%02d",$t->mon); my $next_month_first_day = $t->strptime($s->year.$mon.$s->month_last_day,"%Y%m%d")+86400; としてみた。っていういつ…

時間の帯です。 今のところ機能は…。 全体の時間から、部分的な時間を取り除いて、残った部分の時間を返すってくらいです。 スケジュール系で、残りの時間を確認したい時なんかに使えるかと。 use Time::Band; use Time::Piece; my $start = localtime()->st…

例えば、""で括られた部分全部。 f" で、消去開始のとこまで移動して。 df" で、ケツの"まで消去。

strptimeは、前に値で、後ろにフォーマット。 なんども使ってるのに逆に書いてしまって、動かない動かないやってしもうた。