Shell Programming and Scripting

use warnings;
use strict;

my (%line, @f, $f, $c, $i, @d, $e);
## Read file line by line.
while (<>) {
        ## Remove last 'break line' character and get a string with fields which                                                                                                                                  
        ## are the same (1º, 2º and 4º).                                                                                                                                                                          
        ## Example:                                                                                                                                                                                               
        ## @f = ('294', 'F03', '2000', '40441')                                                                                                                                                                   
        ## $f = "294;F03;40441"                                                                                                                                                                                   
        chomp;                                                                                                                                                                                                    
        @f = split /;/;                                                                                                                                                                                           
        $f = join ";", @f[0..1], $f[3];                                                                                                                                                                           
        ## Save in array same lines with different third field.                                                                                                                                                   
        ## Example:                                                                                                                                                                                               
        ## $line{ "294;F03;40441" } = ('2000')                                                                                                                                                                    
        push @{ $line{$f} }, $f[2] if not $f[2] ~~ @{ $line{$f} };                                                                                                                                                
        ## For example, at end of the while loop, one position of the array should                                                                                                                                
        ## be:                                                                                                                                                                                                    
        ## $line{ "294;F03;40443" } = ('2000', '2001')                                                                                                                                                            
}                                                                                                                                                                                                                 
                                                                                                                                                                                                                  
## Go through the array. If one position has more than one value, get the                                                                                                                                         
## complete line joining fields and print them.                                                                                                                                                                   
for $c ( keys %line ) {                                                                                                                                                                                           
        if (@{ $line{$c} } > 1) {                                                                                                                                                                                 
                for $i ( 0 .. $#{ $line{$c} } ) {                                                                                                                                                                 
                        @d = split /;/, $c;                                                                                                                                                                       
                        $e = join ";", @d[0..1], $line{$c}[$i], $d[2];                                                                                                                                            
                        print "$e\n";                                                                                                                                                                             
                }                                                                                                                                                                                                 
        }                                                                                                                                                                                                         
                                                                                                                                                                                                                  
}

ArchT60::/tmp
kent$ cat t.txt                                                                              
294;F03;2000;40441
294;F03;2000;40443
284;F01;5400;44051
284;F01;5700;45666
294;F03;2001;40443



ArchT60::/tmp
kent$  awk -F';' '{key=$1 FS $2 FS $4; a[key]=(a[key] && a[key]!= $3)?a[key]","$3:$3;} END { for (k in a ){ if( split(a[k],t,",")>1 ){ split(k,h,FS); for (i in t) print h[1] FS h[2] FS t[i] FS h[3] } } }'  t.txt


294;F03;2000;40443
294;F03;2001;40443

awk -F';' '{B[$1$2$4]++}B[$1$2$4]==2{print A[$1$2$4]}B[$1$2$4]==1{A[$1$2$4]=$0}B[$1$2$4]>1' infile

[ctsgnb@shell ~/sand]$ cat tst
294;F03;2000;40441
294;F03;2000;40443
284;F01;5400;44051
284;F01;5700;45666
294;F03;2001;40443
[ctsgnb@shell ~/sand]$ awk -F';' '{B[$1$2$4]++}B[$1$2$4]==2{print A[$1$2$4]}B[$1$2$4]==1{A[$1$2$4]=$0}B[$1$2$4]>1' tst
294;F03;2000;40443
294;F03;2001;40443
[ctsgnb@shell ~/sand]$