1

所以我有一个这样的数组：

W,X,Y,Z
-7,6,101,15
-7,6,101,16
-7,6,101,17
-7,6,101,78
-7,6,101,79
-7,6,101,84
-7,6,101,92
-7,9,615,49
-7,9,615,50
-7,10,759,38
-7,10,759,39

现在，我想在 W=X=Y 和 Z 是连续数字时打印一行。

预期输出：

W,X,Y,Z
-7,6,101,15-16-17
-7,6,101,78-79
-7,6,101,84
-7,6,101,92
-7,9,615,49-50
-7,10,759,38-39

我如何在 Perl 上实现它？

谢谢，艺术

这是我的脚本：

while ( $output_line = <FILE_C> ) {                                                                          
    chomp $output_line;                                                                                      
    my ( $W, $X, $Y, $C, $D, $E, $F, $Z ) = ( split /\s/, $output_line );                                    
    if ( $Y == $Block_previous ) {                                                                           
        print("Yes\t$Block_previous\t$Y\t$Z\n");                                                             
        push( @Z_array, $Z );                                                                                
        push( @Y_array, $Y );                                                                                
        next;                                                                                                
    }                                                                                                        
    else {                                                                                                   
        push( @Z_array_nonblkmatch, $Z );                                                                    
    }                                                                                                        
    foreach $Z_printer (@Z_array) {                                                                          
        print("$Y_array[0]\t$Z_printer\n");                                                                  

        if ( ( $Z_delta == 1 ) || ( $Z_delta == -1 ) ) {                                                     
            push( @Z_adj, $Z_printer, $Z_printer_prev );                                                     

            #~ print ("pair: $Z_printer_prev-$Z_printer\n");                                                 
        }                                                                                                    
        else {                                                                                               
            #~ print ("$Z_printer\n");                                                                       
        }                                                                                                    
        $Z_printer_prev = $Z_printer;                                                                        
    }                                                                                                        
    @Z_adj               = ();                                                                               
    @Z_array             = ();                                                                               
    @Y_array             = ();                                                                               
    @Z_array_nonblkmatch = ();                                                                               
    $Block_previous      = $Y;                                                                               

    #~ <STDIN>;                                                                                              
}                                                                                                            
close(FILE_C);

谢谢，raina77ow！但是，这是输出的样子：-7,6,101,15-16-17-79

-7,6,101,16-17-79

-7,6,101,17-79

-7,6,101,78-79

-7,6,101,79-50

-7,6,101,84-50

-7,6,101,92

-7,6,615,49-50-39

-7,6,615,50

4

1 回答 1

0

一种可能的方法（ideone demo）：

use warnings;
use strict;

my $prev;
while (<DATA>) {
  chomp;
  next unless /\S/;
  my @numbers = split /,/;
  if (defined $prev && $numbers[3] == $prev + 1) {
    print '-' . ++$prev;
    next;
  }
  print "\n" if defined $prev;
  print join ',', @numbers;
  $prev = $numbers[3];
}

__DATA__
-7,6,101,15
-7,6,101,16
-7,6,101,17
-7,6,101,78
-7,6,101,79
-7,6,101,84
-7,6,101,92
-7,9,615,49
-7,9,615,50
-7,10,759,38
-7,10,759,39

我选择不像您那样将这些数据收集到中间数组中，因为问题很简单：将其分组打印。关键是存储最后 ( Z) 列的值，然后对照它检查每个新行：如果匹配，则仅打印递增的值（即print '-' . ++$prev行），如果不匹配，则结束此行（除第一种情况）并用这一行的数字开始一个新的。

于 2013-04-30T20:00:09.960 回答