|
0
|
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:美郷町:訪問介護
|
