Discussion :

[flash21]

Bonjour. je suis novice en perl et j'apprends à faire des manipulations sur des fichiers. J'ai un fichier que j'aimerais découper en plusieurs autres. Vous comprendrez mieux avec l'exemple.

fichier.txt :

CANDIDAT BZ0AH2 SDFFSSD
VOTE FSDFDD FDSFDGG
VOTE DSFDFD ZFDFGTR
CANDIDAT BN38KU YTHUUHG
VOTE ADZRTU FHYGRYY
CANDIDAT DGBUYIH FHGFBBH
VOTE DGGFHH HGFNGHU
VOTE GJB23BJ FHJBHUU
VOTE AZRT99 16GG583
VOTE DGGG89 MARS111

Ce qu'il me faudrait en fait c'est qu'à chaque fois que j'ai une ligne qui commence par CANDIDAT, je crée un nouveau fichier que je nommerais par exemple CANDIDATX.txt (avec X un compteur). Au final, j'aimerais me retrouver avec 3 fichiers selon l'exemple donné. Mes fichiers seraient comme suit :

CANDIDAT1.txt :

CANDIDAT BZ0AH2 SDFFSSD
VOTE FSDFDD FDSFDGG
VOTE DSFDFD ZFDFGTR

CANDIDAT2.txt :

CANDIDAT BN38KU YTHUUHG
VOTE ADZRTU FHYGRYY

CANDIDAT3.txt :

CANDIDAT DGBUYIH FHGFBBH
VOTE DGGFHH HGFNGHU
VOTE GJB23BJ FHJBHUU
VOTE AZRT99 16GG583
VOTE DGGG89 MARS111

Esque quelqu'un saurait comment faire ça en perl? merci de votre aide

[Dimitry.e]

Une méthode simple :
Tu parcours ton fichier source ligne par ligne :

Code :

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

1
2
3
4
5
 
open(F,"<./source") or die ("...");
while(defined(my $ligne = <F>)) {
}
close(F);

A chaque ligne contenant "CANDIDAT", tu ouvres un descripteur sur un nouveau fichier candidat_i.txt. Tu peux utiliser une variable que tu incrémentes à chaque fois pour fixer i.
Ce qui donnerai :

Code :

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

1
2
3
4
5
6
 
if($ligne=~/CANDIDAT/) {
  close(CDT) if fileno(CDT);
  open(CDT,"./candidat_".$i.".txt") or die("...");
  ++$i;
}

La routine fileno() permet de tester que ton descripteur existe avant de le fermer (et donc éviter une erreur flagrante).

Il ne te reste plus qu'à écrire les lignes dans le fichier pointé par le descripteur CDT.

[djibril]

Cadeau :

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
#!/usr/bin/perl
use strict;
use warnings;
 
my $candidat_fichier = 'candidat.txt';
open my $fh_candidat, '<', $candidat_fichier or die "Impossible de lire $candidat_fichier\n";
my $compteur             = 0;
my $nom_fichier_resultat = 'resultat_';
my $fichier_resultat     = $nom_fichier_resultat . "$compteur.txt";
 
print "Creation $fichier_resultat\n";
open my $fh_resultat, '>', $fichier_resultat or die "Impossible d'ecrire $fichier_resultat\n";
while ( my $ligne = <$fh_candidat> ) {
  if ( $ligne =~ m{^CANDIDAT} ) {
    close $fh_resultat or die "Impossible de fermer $fichier_resultat\n";
    $compteur++;
    $fichier_resultat = $nom_fichier_resultat . "$compteur.txt";
    print "Creation $fichier_resultat\n";
    open $fh_resultat, '>', $fichier_resultat or die "Impossible d'ecrire $fichier_resultat\n";
  }
 
  # Ecriture dans le fichier résultat
  print {$fh_resultat} $ligne;
}
close $fh_candidat or die "Impossible de fermer $candidat_fichier\n";
close $fh_resultat or die "Impossible de fermer $fichier_resultat\n";

[Dimitry.e]

Etonnant : j'ai écrit le même script ligne pour ligne( en un peu moins explicite tout de même).
Ceci voudrait dire que je commence à devenir compétent en Perl ?

[djibril]

C'est un bon début

[flash21]

Bonjour et merci pour ce script, c'est exactement ce que je voulais faire....merci à vous 2. faudrait que je m'y mette un pe plus.tu te formes dans le tas dimitri ou t'utilises un truc spécial?

[djibril]

Merci cliquer sur résolu si c bon

[flash21]

D'accord, je mettrais résolu dès que j'en aurais fini. ça un truc qui me dérange néanmoins sur le script. après découpage, le premier fichier crée est toujours vide. exemple : si je dois avoir 3 fichiers après exécution du script, j'en ai 4 avec le 4ème vide de taille. bizar...

[flash21]

Aussi,
le script ne marche que pour un fichier donné. J'aimerais qu'il marche pour n'importe quel fichier que je lui donne. Comment faire?

[djibril]

Je pense que nous vous avons déjà donné un programme qui vous permettra d'avancer. Alors, essayer déjà de comprendre le programme et de l'adapter à vos besoins car pour le moment, vous n'avez rien proposé.

[flash21]

je pense que ça fonctionne comme ça.

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
#!/usr/bin/perl
use strict;
use warnings;
 
 
if (length($ARGV[0]) eq 0) 
{
	die "Le fichier entrant n'existe pas!";
} 
 
#my $candidat_fichier = 'candidat.txt';
open my $fh_candidat, '<', $ARGV[0] or die "Impossible de lire $ARGV[0]\n";
my $compteur             = 0;
my $nom_fichier_resultat = 'resultat_';
my $fichier_resultat     = $nom_fichier_resultat . "$compteur.txt";
 
print "Creation $fichier_resultat\n";
open my $fh_resultat, '>', $fichier_resultat or die "Impossible d'ecrire $fichier_resultat\n";
while ( my $ligne = <$fh_candidat> ) {
  if ( $ligne =~ m{^CANDIDAT} ) {
    close $fh_resultat or die "Impossible de fermer $fichier_resultat\n";
    $compteur++;
    $fichier_resultat = $nom_fichier_resultat . "$compteur.txt";
    print "Creation $fichier_resultat\n";
    open $fh_resultat, '>', $fichier_resultat or die "Impossible d'ecrire $fichier_resultat\n";
  }
 
  # Ecriture dans le fichier résultat
  print {$fh_resultat} $ligne;
}
close $fh_candidat or die "Impossible de fermer $ARGV[0]\n";
close $fh_resultat or die "Impossible de fermer $fichier_resultat\n";

Le script marchera avec tous les fichiers que je mettrais en paramètre lors de l'exécution.