comparison sheep.pl @ 241:64549ddddf4a

count by ally score
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 07 Nov 2008 15:18:23 +0800
parents 937fc672df56
children c30080146c05
comparison
equal deleted inserted replaced
240:937fc672df56 241:64549ddddf4a
46 46
47 my $s; 47 my $s;
48 foreach my $sheep (sort (@sheeps)) { 48 foreach my $sheep (sort (@sheeps)) {
49 # avoid duplicate 49 # avoid duplicate
50 next if($sheep->id == $s); $s = $sheep->id; 50 next if($sheep->id == $s); $s = $sheep->id;
51
52 51
53 foreach my $c ($sheep->cities) { 52 foreach my $c ($sheep->cities) {
54 my $line = ""; 53 my $line = "";
55 # Ignore 假期模式 54 # Ignore 假期模式
56 next if($c->status eq 'v'); 55 next if($c->status eq 'v');