码农的欧洲杯：欢迎各路神仙和高手挑战！

jils2013

回复 57# hjason2042

所以用我的比较好，直接比较日期，就是逻辑比较绕
   

wyw5257

赌。。。

午夜凋零

回复 1# mpstat
题目很有意思，谢谢lz提供了这么有趣的题目~膜拜一下前面的awk大牛们~
我用的是perl。

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. open my $fi, '<', "name.txt";
   
6. my ( %hash, $group, $nation, $coach, $caption );
   
7. while ( <$fi> ) {
   
8.     chomp;
   
9.     if ( /^\s*$/ or /^\s*#/) {
   
10.         next;
    
11.     }
    
12.     if ( /^Group (\w)$/ ) {
    
13.         $group = $1;
    
14.         next;
    
15.     }
    
16.     if ( /^(\w+)$/ ) {
    
17.         $nation = $1;
    
18.         next;
    
19.     }
    
20.     if ( /^Head coach:\s+(.*) \((.*)\)$/ ) {
    
21.         $coach = { 'name' => $1, 'nation' => $2,};
    
22.         next;
    
23.     }
    
24.     if ( /^\s+\d+/ ) {
    
25.         if    (/^\s+\d+  (\w{2})  (.+?) \(c\)\s+\((\d{4})-(\d{2})-(\d{2})\)\s+\(aged (\d+)\)\s+(.+)$/ ) {
    
26.             #              posi    name                      birth                    age      club
    
27.             $caption = 1;
    
28.         }
    
29.         elsif (/^\s+\d+  (\w{2})  (.+?)\s+\((\d{4})-(\d{2})-(\d{2})\)\s+\(aged (\d+)\)\s+(.+)$/ ) {
    
30.             #              posi    name                 birth                   age       club
    
31.             $caption = 0;
    
32.         }
    
33.         # some player with the same name, and set the key = $nation.'_'.$name
    
34.         $hash{$nation.'_'.$2} = { 'posi'    => $1,
    
35.                                   'birth'   => $3.$4.$5,
    
36.                                   'age'     => $6,
    
37.                                   'club'    => $7,
    
38.                                   'caption' => $caption,
    
39.                                   'group'   => $group,
    
40.                                   'nation'  => $nation,
    
41.                                   'coach'   => $coach->{'name'},
    
42.                                 };
    
43.     }
    
44. }
    
45. close $fi;
    
46. 
    
47. # 1. Get the Youngest player
    
48. my @names = map { (split /_/, $_)[1] } keys %hash;
    
49. my @birth = map { $hash{$_}->{'birth'} } keys %hash;
    
50. my @a = sort {$birth[$a]<=>$birth[$b]} 0..$#birth;
    
51. print "\n1. The youngest player(s) is(are):\n";
    
52. print "\t$names[$a[$_]]\t$birth[$a[$_]]\n" foreach &get_idx_with_same_value(\@a, \@birth, 'end');
    
53. 
    
54. # 2. Get the Oldest player
    
55. print "\n2. The oldest player(s) is(are):\n";
    
56. print "\t$names[$a[$_]]\t$birth[$a[$_]]\n" foreach &get_idx_with_same_value(\@a, \@birth, 'head');
    
57. 
    
58. # 3. Get the day on which most people are birth
    
59. my %hash3;
    
60. foreach ( @birth ) {
    
61.     /(\d\d)$/;
    
62.     $hash3{$1}++;
    
63. }
    
64. my @keys = keys %hash3;
    
65. my @values = values %hash3;
    
66. @a = sort {$values[$a]<=>$values[$b]} 0..$#values;
    
67. print "\n3. The most birth day(s) is(are):\n";
    
68. print "\t$keys[$a[$_]]\t$values[$a[$_]]\n" foreach &get_idx_with_same_value(\@a, \@values, 'end');
    
69. 
    
70. # 4. Get the same birthday with me
    
71. my @same_birth;
    
72. foreach ( keys %hash ) {
    
73.     push @same_birth, $_ if $hash{$_}->{'birth'} == '19820501';
    
74. }
    
75. my $same_birth = join ', ', map { (split /_/, $_)[1] } @same_birth;
    
76. if ( $same_birth ) {
    
77.     print "\n4. Player with the same birthday with me are(is):\n\t$same_birth\n";
    
78. }
    
79. else {
    
80.     print "\n4. No one has the same birthday with me.\n";
    
81. }
    
82. 
    
83. # 5. Get the nation and coach and group of one input name
    
84. print "\n5. Please input one player name:\n";
    
85. my $flag = 0;
    
86. my $input = <STDIN>;
    
87. chomp $input;
    
88. foreach ( keys %hash ) {
    
89.     if ( $input eq (split /_/, $_)[1] ) {
    
90.         $flag = 1;
    
91.         print "$input:\n\tnation: ".$hash{$_}->{'nation'}."\n\tcoach: ".$hash{$_}->{'coach'}."\n\tgroup: ".$hash{$_}->{'group'}."\n"
    
92.     }
    
93. }
    
94. print "ERROR: non exist player: \"$input\"\n" if $flag == 0;
    
95. 
    
96. # 6. Get the club with most people
    
97. my %hash6;
    
98. $hash6{$hash{$_}->{'club'}}++ for keys %hash;
    
99. @keys = keys %hash6;
    
100. @values = values %hash6;
     
101. @a = sort {$values[$a]<=>$values[$b]} 0..$#values;
     
102. print "\n6. The club(s) with most people is(are):\n";
     
103. print "\t$keys[$a[$_]]\t$values[$a[$_]]\n" foreach &get_idx_with_same_value(\@a, \@values, 'end');
     
104. 
     
105. # 7. Get the position that most caption play
     
106. my %hash7;
     
107. foreach ( keys %hash ) {
     
108.     $hash7{$hash{$_}->{'posi'}}++ if $hash{$_}->{'caption'};
     
109. }
     
110. @keys = keys %hash7;
     
111. @values = values %hash7;
     
112. @a = sort {$values[$a]<=>$values[$b]} 0..$#values;
     
113. print "\n7. The position(s) with most caption is(are):\n";
     
114. print "\t$keys[$a[$_]]\t$values[$a[$_]]\n" foreach &get_idx_with_same_value(\@a, \@values, 'end');
     
115. 
     
116. # 8. Get the number of people older than me
     
117. my $older_than_me = 0;
     
118. foreach ( keys %hash ) {
     
119.     $older_than_me++ if $hash{$_}->{'birth'} < '19771029';
     
120. }
     
121. if ( $older_than_me ) {
     
122.     print "\n8. The number older than me is: $older_than_me\n";
     
123. }
     
124. else {
     
125.     print "\n8. No one is older than me!\n";
     
126. }
     
127. 
     
128. # 9. Get the day no one is birth
     
129. my @first_9_day = qw(01 02 03 04 05 06 07 08 09);
     
130. my @monthes = @first_9_day;
     
131. push @monthes, qw(10 11 12);
     
132. my @days = @first_9_day;
     
133. push @days, 10..29;
     
134. my $num;
     
135. my @birth_days;
     
136. for $num ( @monthes ) {
     
137.     push @birth_days, $num.$_ foreach @days;
     
138. }
     
139. push @birth_days, qw(0130 0131 0330 0331 0530 0531 0730 0731 0830 0831 1030 1031 1230 1231 0430 0630 0930 1130);
     
140. 
     
141. my %hash9 = map { $_ => 1 } @birth_days;
     
142. foreach ( keys %hash ) {
     
143.     my $player = $_;
     
144.     $hash{$player}->{'birth'} =~ /(\d\d\d\d)$/;
     
145.     $hash9{$1} = 0;
     
146. }
     
147. my @no_one_birth = sort { $a<=>$b } grep { $hash9{$_} } keys %hash9;
     
148. if ( @no_one_birth ) {
     
149.     print "\n9. The day(s) no one is birth is(are):\n\t@no_one_birth\n"
     
150. }
     
151. else {
     
152.     print "\n9. Any day has a player birth\n";
     
153. }
     
154. 
     
155. # 10. Get the number of each position
     
156. my %hash10;
     
157. foreach ( keys %hash ) {
     
158.     my $posi = $hash{$_}->{'posi'};
     
159.     $hash10{$posi}++;
     
160. }
     
161. print "\n10. The numbers of each postion are:\n";
     
162. print "\t$_: $hash10{$_}\n" for keys %hash10;
     
163. 
     
164. # subroutine(s)
     
165. sub get_idx_with_same_value {
     
166.     my ( $r_idx, $r_array, $locate ) = @_;
     
167.     my @array;
     
168.     if ( $locate eq 'head' ) {
     
169.         my $cnt = 0;
     
170.         my $mark = $r_array->[$cnt];
     
171.         while ( $mark == $r_array->[$cnt] ) {
     
172.             push @array, $cnt;
     
173.             $cnt++;
     
174.         }
     
175.     }
     
176.     elsif ( $locate eq 'end' ) {
     
177.         my $cnt = @$r_idx - 1;
     
178.         my $mark = $r_array->[$cnt];
     
179.         while ( $mark == $r_array->[$cnt] ) {
     
180.             push @array, $cnt;
     
181.             $cnt--;
     
182.         }
     
183.     }
     
184.     else {
     
185.         die "ERROR!!!\n";
     
186.     }
     
187.     return @array;
     
188. }

复制代码

子函数get_idx_with_same_value是考虑可能有并列的情况而设计的。
perl是在windows下的cmd里运行出来的，最近才开始用windosw下的perl的，输出结果不知道怎么copy，尴尬。

rdcwayx

hjason2042 发表于 2012-06-14 22:06
回复 7# rdcwayx
版大，问题1、2的代码有点小BUG哦。
int(d)返回结果是年，不包括月、日。假如有两个人的 ...

谢谢指正。

1. awk -F"[()]" -v min=100000000 '{d=(NF==7)?$4:$2;gsub(/-/,"",d)}
   
2.     NR==FNR&&/-/{min=(min>int(d))?d:min;max=(max<d)?d:max}
   
3.     NR>FNR&&/-/{if (min==d) print "The oldest player is " , substr($1,10),min;
   
4.                 if (max==d) print "The youngest player is " , substr($1,10),max}' name.txt name.txt

复制代码

hjason2042

回复 8# jils2013

第三个问题，解答不准确哦..
出生日期在同一天的不止一组结果..
   

hjason2042

回复 7# rdcwayx

第6个问题，应该是

1. if (++a[$NF]>max)

复制代码

结果应该是

1. 13  Bayern Munich

复制代码

rdcwayx

hjason2042 发表于 2012-06-17 20:32
回复 7# rdcwayx

第6个问题，应该是结果应该是

谢谢指正， 写得快了，没注意。

MiGrain

码农的自娱自乐啊！

bintre

1.年纪最小的人
perl -nale 'print "$1\t$_" if /(\d{4}.*?)\)/;' name.txt |sort -k 1 -r  |tail -1
2.年纪最大的人
perl -nale 'print "$1\t$_" if /(\d{4}.*?)\)/;' name.txt |sort -k 1 -r  |head -1
3.哪一天出生的人最多
perl -nale '$a{$1}++ if /(\d{4}.*?)\)/; END{ print  map{"$_\t$a{$_}\n"}  keys %a}' name.txt  |sort  -k 2 -r |head
4.和你生日相同的人,如果有的话找出来
perl -nale 'print "$1\t$_" if /(\d{4}.*?)\)/;' name.txt  |grep yyyy-mm-dd
5.给定一个球员名,列出国籍与教练,处在哪个小组
这个麻烦了，跳过
6.哪个俱乐部的人最多
perl -nale '$a{$1}++  if /\s*\d+.*\s+(.*?)\r$/; END{print "$_\t $a{$_} " for keys %a  }' name.txt  |sort -k 2 | tail -2
7.队长里打什么位置的最多
什么是队长的标志啊？
perl -nale '$a{$1}++  if /^\s*\d+.*?\s+(.*?)\s+.*\r$/; END{print "$_\t $a{$_} " for keys %a  }' name.txt  |sort -k 1 | tail
8.比你年纪大的有多少人
perl -nale 'print "$1\t$_" if /(\d{4}.*?)\)/;' name.txt |sort -k 1 -r  |perl -F\\t -nale 'print if $F[0] lt "yyyy-mm-dd" ' |wc -l
9.列出365天里所有人都不过生日的日期
perl   -nale 'BEGIN{ %c;  for $a ("01".."12")  { for $b ("01".."31") {$c{"$a-$b"}=1} }}; $c{"$1-$2"}=0  if /\d{4}-(\d{2})-(\d{2})\)/; END{    for (keys %c) {print "$_"if $c{$_}==1 } }' name.txt    |grep -E -v  "02-29|02-30|02-31|04-31|06-31|09-31|11-31"|wc -l
10.打各个位置的人一共有多少
perl -nale '$a{$1}++  if /^\s*\d+.*?\s+(.*?)\s+.*\r$/; END{print "$_\t $a{$_} " for keys %a  }' name.txt  |sort -k 1 | less

如果有错请指错，谢谢

ryh19860922

1.年纪最小的人

1. [ryh@localhost ~]$ awk -F"[()]" '/aged/{date=(NF==7)?$4:$2; gsub(/-/,"", date); if(date-temp>0||temp==0) {temp=date; str=$0} }END{print str}' name.txt
   
2. 15  DF  Jetro Willems        (1994-03-30)  (aged 18) PSV

复制代码

2.年纪最大的人

1. [ryh@localhost ~]$ awk -F"[()]" '/aged/{date=(NF==7)?$4:$2; gsub(/-/,"", date); if(date-temp<0||temp==0) {temp=date; str=$0} }END{print str}' name.txt
   
2.   1  GK  Kostas Chalkias           (1974-05-30)  (aged 38) P.A.O.K.

复制代码

3.哪一天出生的人最多

1. [ryh@localhost ~]$ awk -F"[()]" '/aged/{date=(NF==7)?$4:$2;num[date]++} END{for(date in num) {print num[date],"\t", date|"sort -rn"}}' name.txt
   
2. 2        1989-05-31
   
3. 2        1987-07-28
   
4. 2        1987-01-27
   
5. 2        1987-01-22
   
6. 2        1986-09-08
   
7. 2        1985-08-20
   
8. 2        1984-12-13
   
9. 2        1984-06-28
   
10. 2        1983-07-07
    
11. 2        1982-05-01
    
12. 2        1981-10-29
    
13. 2        1981-10-03

复制代码

1. [ryh@localhost ~]$ awk -F"[()]" '/aged/{date=(NF==7)?$4:$2; date=substr(date,6); num[date]++} END{for(date in num) print (num[date], "\t", date) |"sort -rn"}' name.txt
   
2. 4        07-07
   
3. 4        06-09
   
4. 4        03-30

复制代码

4.和你生日相同的人,如果有的话找出来

1. [ryh@localhost ~]$  grep '1986-09-22' name.txt

复制代码

5.给定一个球员名,列出国籍与教练,处在哪个小组

1. [ryh@localhost ~]$  tac name.txt| awk 'BEGIN{flag=0} {if($0~/Philipp Lahm/) {flag=1}; if(flag==1 && $0~/Head coach/) {print $0; num=NR; flag=2}; if(NR==num+2 && flag==2) {print $0}; if($0~/Group/&&flag==2){print $0; exit}}'
   
2. Head coach:  Joachim Low (Germany)
   
3. Germany
   
4. Group B

复制代码

6.哪个俱乐部的人最多

1. [ryh@localhost ~]$  awk -F")" '/aged/{num[$NF]++}END{for(i in num) {print num[i],"\t", i}}' name.txt|sort -rn
   
2. 13        Bayern Munich

复制代码

7.队长里打什么位置的最多

1. [ryh@localhost ~]$ awk '/\(c\)/{num[$2]++} END{for(i in num) {print num[i], "\t", i |"sort -rn"}}' name.txt
   
2. 6        MF

复制代码

8.比你年纪大的有多少人

1. [ryh@localhost ~]$  awk -F"[()]" 'BEGIN{mydate=19860922}  /aged/{date=(NF==7)?$4:$2; gsub(/-/,"", date); if(date-mydate<0) {num++} } END{print num}' name.txt

复制代码

9.列出365天里所有人都不过生日的日期

1. [ryh@localhost ~]$  awk -F"[()]" '/aged/{date=(NF==7)?$4:$2; date=substr(date,6); num[date]++} END{for (date in num) print date}' name.txt |awk '{d[NR]=$0} END{ for(i=1;i<=12;i++)  for(j=1;j<=31;j++) {flag=1; date=sprintf("%.2d-%.2d",i,j); for(k in d){if(d[k]==date) {flag=0; break} } ; if(flag==1 && date!="02-30" && date!="02-31" &&date!="04-31" && date!="06-31" && date!="09-31" && date!="11-31") {print date} }}'

复制代码

10.打各个位置的人一共有多少

1. [ryh@localhost ~]$ awk '/aged/{num[$2]++} END{for(i in num) {print num[i], "\t", i}}' name.txt
   
2. 76       FW
   
3. 48       GK
   
4. 130      MF
   
5. 114      DF

复制代码