Discussion :

[david2109]

Bonjour,

Soit un gros fichier d'environ 90 000 lignes (mais ça peut varier légèrement) dans lequel j'ai besoin de récupérer le contenu d'un numéro de ligne déterminé aléatoirement

En KSH, j'ai donc écrit le bout de code suivant

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
 
 
#! /bin/ksh
 
# Mon gros fichier
fileEntree=$1
# Nombre de ligne dans le fichier
nbEntree=`cat $fileEntree | wc -l`
 
# numéro de la ligne a atteindre
numEntree=$RANDOM
# Modulo
let "numEntree %= $nbEntree"
 
# récupération de la ligne par head et tail
entree=`head -${numEntree} $fileEntree | tail -1`
echo "entree = "$entree

Ca marche bien mais le problème, c'est lent, bcp trop lent (2 secondes pour remonter la valeur).
Or ce bout de code fonctionne dans un autre script et au total, ca met 48h ! (Si je le désactive, ca ne mets "que" 4h)

Je cherche donc une autre méthode plus rapide.

J'ai envisagé de mettre le fichier dans un tableau ksh mais comme la taille du tableau est limité à 4096, ca ne marche pas.

Est-ce qu'il existe une méthode ou fonction du côté de perl ou awk ou ... pour faire un accés direct dans un fichier à partir du numéro de ligne ?

D'avance merci

[Tchetch]

Est-ce que tu peux connaitre la position en terme d'octet, tu peux faire en C (mais il dois y avoir un équivalent en Perl, PHP, ...) fopen et fseek.
Mais tu t'en sortiras mieux avec un script en Perl et une boucle ou un programme compilé que en shell. Là tu lances plusieurs processus, ça coûte du temps au système tout ça.

[david2109]

Bonjour,

Hélas non, je n'ai pas trop la possibilité de connaitre la position en terme d'octets : les lignes sont de 2 tailles différentes (8 ou 11 caractères)

Je vais voir si du coté Perl, il y a une solution.

[Tchetch]

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $i = 0;
 
#ouvre fichier et compte les lignes
open FILE, "/tmp/file.txt";
while(<FILE>) {
    $i++;
}
 
# retour au debut
seek FILE, 0, SEEK_SET;
 
# autres operations necessaires
 
close FILE;

[frp31]

le plus simple tu random un n° de ligne

mais tu ne cherche que cette ligne !

sed -e "'$numero'p" fichier
ou
sed -e "'$numeroligne'!d" fichier
pour(gnu sed)

c'est ce qui sera le plus rapide.
sur un fichier dump de 24Go ça prend 3 secondes 5 seulement pour des lignes de 21935055 caracteres en en plus là c'est en écrivant un fichier de sortie...


sur un fichier de 90000lignes de 512 caractères tu peux diviser par 4 au moins...je pense en tout cas ça vaut le coup de tester.

appora/exports2 > time sed -e "450p" vbresd.dmp > /tmp/toto

real 0m0.65s
user 0m0.06s
sys 0m0.09s
/appora/exports2 > ls -lrt vbresd.dmp
-rw-rw-r-- 1 dbvbresd dba 4063232 Sep 9 18:01 vbresd.dmp

/appora/exports2 > time sed -e "450p" bbresd.dmp > /tmp/toto

real 0m3.57s
user 0m0.44s
sys 0m0.32s
/appora/exports2 > ls -lrt bbresd.dmp
-rw-rw-r-- 1 dbbbresd dba 23736320 Sep 9 18:01 bbresd.dmp
/appora/exports2 > wc -c /tmp/toto
21935055 /tmp/toto

voilà le test avec des lignes de moins de 128 caractères :

/tmp > i=0
/tmp > while [ $i -lt 90000 ] ; do echo "ssssssssssssssssssssssssssssss[......]ssssssssssssssssssssssssssss\n" > toto ; i=$(($i + 1)) ; done
/tmp > wc -l toto
180000 toto
/tmp > time sed -e "450!d" toto


real 0m0.14s
user 0m0.12s
sys 0m0.03s
/tmp >

beaucoup plus rapide que je pensais même...

[david2109]

Bonjour,

Effectivement, avec

Code :

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

1
2
 
entree=`sed -e "$numEntree!d" ${fileEntree}`

les performances sont vraiment bien meilleures.

Et cela a le mérite d'être simple à mettre en place.

Décidément, il y aura toujours à apprendre avec sed ! (c'est bien dans les vieilles marmites que l'on fait les meilleures soupes !)

Merci a tous