Bonjour à tous,

je cherche à faire petit script perl qui permettrait de decouper un fichier XLS volumineux en plusieurs fichiers de 130 lignes chacun avec un nom différent.

J'ai adapté ce que j'ai pu trouvé sur le web, mais j'ai des caractères spéciaux qui sont présents après découpage ?? et le découpage n'est pas exacte ?? Pourquoi ?

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
 
 
#!/usr/bin/perl
 
print "Quel est le fichier à découper ?\n";
my $question= <STDIN>;
chomp $question;
my $xlsfile=$question;
open(XLXFILE, "$xlsfile") || die "Impossible d'ouvrir le fichier $xlsfile :$!";
print "Lecture du fichier : $xlsfile\n";
 
BEGIN { $file = "partie00"; }
 
while(<XLXFILE>) {
	if ($. % 130 == 1) {
		close F;    # ferme le fichier précédent
		open F, "> $file.csv"
		or die "Impossible de créer $file.csv: $!";
		$file++;    # auto-incrément magique
	}
	print F;
 
}
close XLXFILE or die "Impossible de fermer le fichier  $XLXFILE\n";
merci pour votre aide,
panaone