Mercurial > mercurial > hgweb_kaigo.hg.cgi

annotate Porori/src2/porori.pl @ 7:3b16a1b57e00 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add qtuti/95y.
author pyon
date Sat, 27 Nov 2021 14:50:30 +0900
parents aaaa401818a1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
1 use Time::Piece;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
2 use Time::Seconds;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
3
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
4 my $today = localtime->ymd;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
5 $today =~ s/-//g;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
6
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
7 print join ',' => "被保番", "氏名", "申請日", "区分", "開始日", "終了日", "期間", "\n";
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
8 while (<>) {
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
9 chomp;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
10 my ($h, $n, $s, $kbn, $d, $bgn, $end) = split /,/;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
11 next if $d ne $today;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
12 $kbn = "新規" if $kbn eq '01';
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
13 $kbn = "更新" if $kbn eq '02';
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
14 $kbn = "支介" if $kbn eq '10';
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
15 $kbn = "区変" if $kbn eq '05';
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
16 my $tbgn = Time::Piece->strptime($bgn, "%Y%m%d");
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
17 my $tend = Time::Piece->strptime($end, "%Y%m%d");
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
18 my $diff = $tend - $tbgn;
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
19 print join ',' => $h, $n, $s, $kbn, $bgn, $end, int $diff->months();
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
20 print "\n";
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
21 }
aaaa401818a1 first commit.
pyon <pyon@macmini>
parents:
diff changeset
22