Discussion :

[super_dz]

Bonjour TLM,

j'ai une question et je ne sais pas si quelqu'un auparavant la posé !

voilà : j'ai un fichier txt de plus de 10 000 lignes (23 000 ou 59 000 par exemple), et je veux créer des sous fichiers de 10 001 chaqu'un et le reste des lignes dans le dernier fichier même s'il n'a pas 10 001 lignes

est t'il possible de faire ca en Perl !, et possible de nomer les sous fichiers aussi comme : Batch_01.txt, Batch_02.txt, Batch_03.txt ...etc

et merci d'avance

[djibril]

oui c'est possible et facilement faisable en perl et j'ai même déjà fait ça donc j'ai une procedure sous la main qui le fait .
Mais il faut que tu cherches un peu

[super_dz]

Re,

je connais que ca sous LINUX :

splitt -10001 file_name !!!!!! c'est tout

en plus c'est pas le programme que je cherche, car c'est juste une partie d'un programme qui marche pour l'instant, et il me faut le bout de programme qui fait cette division,

et c'est le seul truc qui me reste.

[djibril]

bah ecrit le en perl.
il n'existe pas de fonction en perl pour le faire, tu doit ecrire du code pour cela.
ou bien faire un appel system, mais dans ce cas, ton code est moins propre et pas portable

[super_dz]

Ok, je vais faire le nécessaire,

Merci

[super_dz]

bon, c'est ce que j'ai pû faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
#-------- diviser le fichier Batch en sous fichier part de 10001 lignes chacun-------------#
my $mod = ($val % 10000) +1;

for ($i=1;$i<=$mod;$i++)
	   {
		open (PARTIE, "resultats_$i.txt");
		While ($lign = <SORTIE>)
		   {
             print PARTIE ("$lign/n");
        }
close(PARTIE);
#--------------------------------------------------------------------------------------------------#

le pb ici, et comment fixer dans la boucle While chaque 10001 du fichier Batch !

[djibril]

bon allez, je te donne ma procedure :

la voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
sub decouper_fichier_ligne {
   my ($fichier, $nbr_ligne, $nouveau_fichier) = @_;
    if( scalar(@_) != 3) {
    my $usage = "Vous devez donner 3 arguments au sous programme\n".
     "Usage : decouper_fichier_ligne(\"gros_fichier.txt\",10000,\"petit_fichier.txt\")\n";
     die($usage);
   }
 
   my ($nom_file, $extension) = $nouveau_fichier =~ /(.+)(\.\w+)$/gi;
   if (not defined $extension) {
     $extension = "";
     $nom_file = $nouveau_fichier;
   }
   my $compteur_ligne = 0;
   my $compteur_fichier = 1;
   #creation d'un fichier coupe
   my ($fh_temp) = ();
   $nouveau_fichier = "$nom_file"."_"."$compteur_fichier$extension";
   open ($fh_temp, ">$nouveau_fichier") 
      || die "Impossible d'ouvrir le fichier $nouveau_fichier";
 
   #Lecture du fichier original
   open (my $fichier_fh, $fichier) 
     || die "Impossible d'ouvrir le fichier $fichier";
   while(my $ligne = <$fichier_fh>) { 
     chomp($ligne);
     #on atteint le compte de lignes
     if ($compteur_ligne == $nbr_ligne) {
       #fermeture fichier temp
       close($fh_temp);
       #reinialise le compteur ligne 
       $compteur_ligne = 0;
       #incremente compteur fichier
       $compteur_fichier ++;
 
       #ouverture nouveau fichier
       $nouveau_fichier = "$nom_file"."_"."$compteur_fichier$extension";
       open ($fh_temp, ">$nouveau_fichier") 
         || die "Impossible d'ouvrir le fichier $nouveau_fichier";       
     }
     print {$fh_temp} "$ligne\n";
     $compteur_ligne ++;
   }
  close($fh_temp);
 
return;
}

tu l'as met dans ton script.
Pour l'appeler, tu fais ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

decouper_fichier_ligne("gros_fichier.txt",10000,"Batch.txt");

Il te creera des fichiers de 10000 lignes de nom Batch_1.txt, Batch_2.txt etc.
voilà

[super_dz]

Ok, many Thnks,

je vais l'analyser demain afin de le tester et puis l'utiliser,

merci bcp,

[Woufeil]

Pour info, j'avais fait à peu près la même en plus court, mais avec moins de fonctionnalités

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open (my $in, "<grosfic.txt") or die "Erreur E/S : $!";
open (my $out, ">Batch_01.txt") or die "Erreur E/S : $!";
my ($i, $j) = (1, 1);
while (<$in>)
{
   print $out $_;
   $i++;
   if ($i == 10002)
   {
      close $out;
      open ($out, '>', 'Batch_'.++$j.'.txt') or die "Erreur E/S : $!";
      $i = 1;
   }
}

[djibril]

si j'enleve les commentaires et les declarations sur plusieurs ligne, ma procedure sera plus courte
mais c'était pas le but