数组嵌套问题， 求大神帮忙，急

rubyish

maybe

1. 6f41f212-e96e-11e2-b0af-001517a36ca5
   
2. 0d77a328-e427-11e2-b0af-001517a36ca5
   
3. 65defa18-e5de-11e2-a387-001517a3798d
   
4. 39cbd594-e57e-11e2-87b7-001517a331f1
   
5. b92e5823-ea7f-11e2-b869-001517a36ded
   
6. eb993574-e9d3-11e2-b869-001517a36ded
   
7. 68c77618-e7ed-11e2-b0af-001517a36ca5
   

复制代码

perl abc.pl > OK

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. while (<DATA>) {
   
5.     my ( $id, $words ) = split ':';
   
6.     my @word = split ';', $words;
   
7.     my $OK = 1;
   
8.     for (@word) {
   
9.         my ( undef, $A, $B ) = split /\s*[A-Z]+\s*/;
   
10.         my $X = split /\s+/, $A;
    
11.         my $Y = split /\s+/, $B;
    
12.         $OK--, last if $X != $Y;
    
13.     }
    
14.     say $id if $OK;
    
15.     # or print line if ok
    
16.     # print if $OK;
    
17. }
    
18. 
    
19. __DATA__
    
20. 6f41f212-e96e-11e2-b0af-001517a36ca5: HEY h ey HEY hh ey
    
21. 0d77a328-e427-11e2-b0af-001517a36ca5: ALLMAN aa l m ax n ALLMAN ao l m ax n
    
22. 65defa18-e5de-11e2-a387-001517a3798d: OF ah v OF ax v; YOUR y ao r YOUR y ax r
    
23. 39cbd594-e57e-11e2-87b7-001517a331f1: FOR f ax r FOR f ao r
    
24. b92e5823-ea7f-11e2-b869-001517a36ded: WHO h uw WHO hh uw
    
25. 8eb46f0a-e9b5-11e2-a387-001517a3798d: WI d ah b ax l y uw ay WI w ay
    
26. eb993574-e9d3-11e2-b869-001517a36ded: WHAT w aa t WHAT w ah t; YEARS y ih r z YEARS y iy r z; WERE w er r WERE w ax r; THE dh ax THE dh ah; HOLOCAUST h aa l ah k ao s t HOLOCAUST hh aa l ax k ao s t
    
27. 68c77618-e7ed-11e2-b0af-001517a36ca5: HUT h ah t HUT hh ah t; TEXAS t eh k s ax s TEXAS t eh k s ih s
    
28. dedf0820-e808-11e2-b0af-001517a36ca5: THE dh ax THE dh iy; OF ah v OF ax v; THE dh ax THE dh ah; WHAT w aa t WHAT hh w ah t
    

复制代码