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 ?
merci pour votre aide,
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";
panaone
Partager