Discussion :

[Saoua83]

Bonjour,

J'ai une nouvelle question, j'ai fait quelques recherches mais je n'ai pas trouvé, donc je me tournes vers votre savoir.

Je parse un fichier de quelques milliers de lignes, et je viens de me rendre compte qu'au bout de quelques milliers de lignes écrites dans mon fichier, il stoppe comme un grand sans raisons ni erreurs, ce qui amène ma question:

lorsque l'on ouvre un fichier en écriture, y a t-il un nombre limité de caractères ?

Merci encore de vos futures réponses.

S.

EDIT :

Je viens de comprendre qu'apparemment ce n'est pas l'ecriture dans le fichier qui me pose problème, mais le tri que j'effectue, je place chacune des lignes de mon fichier de sortie dans un @tableau, je le tri et je lui dit de resortir les informations triées dans mon fichiers. C'est apparemment la taille du tableau qui est limitante.
Quelqu'un saurait m'en dire plus? ou une autre solution pour trier les lignes d'un fichier par ordre alphanumerique?

Encore merci d'avance.

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
sub sort_function{
	my ($file1,$sort_file) = @_;
	open (FILE, $file1) or die ("E/S : $!\n");
	@_ = <FILE>;
	open WRITER,"> $sort_file" or die ("The file can't be modified\n");
	print WRITER sort(@_);
	close WRITER;
	close FILE;
}

[Philou67430]

Edit : suite à ton complément d'info, ma réponse n'a plus de sens... je réfléchis.

[Jasmine80]

De façon générale, si tu ne t'en sors pas avec des données trop lourdes, il vaut mieux utiliser une base de données.

Le module DBI permet d'interroger ta base de données.

Tri alphanumérique d'un champ (colonne) de la table

Code :

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

1
2
3
SELECT * 
FROM `ma_table` 
ORDER BY `champ_de_mots` ASC

[Philou67430]

Sur un PC véloce :
- pour une bible de 450ko, j'ai mis 9s pour la trier.
- pour une bible de 4,5Mo, j'ai mis 2mn 40s.

Code :

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

$ time perl -MTie::File -e 'tie @array, q(Tie::File), $ARGV[0] or die "cant open $ARGV[0] ($!)\n";@array = sort @array;untie @array;' bible2.txt

[Saoua83]

Merci Jasmine, et merci Philou67430. Je testes ça.