#!/usr/bin/perl
                                        
$chardon = 'gvar\adonis\2008-04-07\chardon.log';     
 
open(CHARDON, "<$chardon" ) 
or die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardon.log.\n" ) ;            
@tabl1 = <CHARDON>;
$chardbis = 'gvar\adonis\2008-04-07\chardrstlog.log';
open(CHARDBIS, ">>$chardbis" ) 
or die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardrstlog.log.\n" );    
print CHARDBIS "@tabl1";                                                
close(CHARDON);                                        
close(CHARDBIS);                                                        
 
open(CHARDBIS,"$chardbis" ) or 
die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardrstlog.log.\n" );
 
$i = 1;                                            
$a = "**********";                                                        
while ($ligne1 = <CHARDBIS> )                                
{    
    if($ligne1 =~ /**********/)                                {
    $chardlog = 'gvar\adonis\2008-04-07\chardlog**********.log';
    open(CHARDLOG,">>$chardlog" ) or 
    die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardlog**********.log.\n" );            
    print CHARDLOG "$i $ligne1";                                
    }
    $i++;                                        
}
 
print "fichiers triés avec succés et envoyés dans chardlog$a.log\n";     
close(CHARDLOG);                                        
close(CHARDBIS);                                                        
open(CHARDBIS, "$chardbis" ) 
or die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardrstlog.log.\n" );        
$j = 1;                                            
$b ="**********";                                                
while ($ligne2 = <CHARDBIS> )                            
{    
    if($ligne2 =~ /**********/)                            
    {
    $chardlog2 = 'gvar\adonis\2008-04-07\chardlog**********.log';     
    open(CHARDLOG2,">>$chardlog2" ) 
             or die("Desole, impossible d'acceder a gvar\adonis\2008-04-07\chardlog0xb74026ad.log.\n" );        
    print(CHARDLOG2 "$j $ligne2" );                            
    }
$j++;                        
}
print "fichiers triés avec succés et envoyés dans chardlog$b.log\n";    
close (CHARDLOG2);                                    
close (CHARDBIS);