Mercurial > mercurial > hgweb_iklist.hg.cgi

comparison prog/06.pl @ 0:520044113ef0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
beta release.
author pyon <pyon@macmini>
date Sat, 21 Aug 2021 13:03:13 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:520044113ef0
1 # フラグのテスト
2 use utf8;
3 my ($text, $city, $kind); # all
4
5 ($text, $city, $kind) = ('ほげ', '', '' ) if $ARGV[0] == 1; # pattern1
6 ($text, $city, $kind) = ('ほげ', '仙北市', '' ) if $ARGV[0] == 2; # pattern2
7 ($text, $city, $kind) = ('', '仙北市', '診療所') if $ARGV[0] == 3; # pattern3
8 ($text, $city, $kind) = ('ほげ', '美郷町', '診療所') if $ARGV[0] == 4; # pattern4
9
10 my $n;
11 while (<DATA>) {
12 chomp;
13 my @data = split /:/;
14 next if $text ne '' && $data[1] !~ /$text/;
15 next if $city ne '' && $data[2] ne $city;
16 next if $kind ne '' && $data[3] ne $kind;
17 print join ':' => @data;
18 print "\n";
19 $n++;
20 }
21 print "-- $n matched -- $text && $city && $kind --\n";
22 __DATA__
23 01:ほげほげ1:大仙市:病院
24 02:ほげほげ2:大仙市:病院
25 03:ほげほげ3:大仙市:病院
26 04:ふがふが1:大仙市:病院
27 05:ふがふが2:大仙市:病院
28 06:ふがふが3:大仙市:病院
29 07:ほげほげ4:大仙市:診療所
30 08:ほげほげ5:大仙市:診療所
31 09:ほげほげ6:大仙市:診療所
32 10:ほげほげ7:大仙市:診療所
33 11:ほげほげ8:大仙市:訪問介護
34 12:ほげほげ9:大仙市:訪問介護
35 13:ほげほげ1:仙北市:病院
36 14:ほげほげ2:仙北市:病院
37 15:ふがふが1:仙北市:病院
38 16:ふがふが2:仙北市:病院
39 17:ふがふが3:仙北市:病院
40 18:ほげほげ4:仙北市:診療所
41 19:ほげほげ7:仙北市:診療所
42 20:ほげほげ8:仙北市:訪問介護
43 21:ほげほげ9:仙北市:通所介護
44 22:ほげほげ1:美郷町:診療所
45 23:ほげほげ8:美郷町:訪問介護