Modérateur: modos Ixus
par fredmarseil » 15 Nov 2004 21:03
par micjack » 15 Nov 2004 21:21
Ca serrait trop facile
par fredmarseil » 15 Nov 2004 21:30
par tomtom » 15 Nov 2004 21:36
par fredmarseil » 15 Nov 2004 21:49
par jdh » 15 Nov 2004 23:22
par tomtom » 15 Nov 2004 23:45
#!/bin/bash
####
# Parsing d'un fichier texte
#
# Ca serait mieux avec awk mais 'parait que c'est pas bien
#
# TomTom
#
###
### Quelques initialisations
FICHIER_TXT=./test.txt
NB_LIGNE=$(wc -l $FICHIER_TXT)
NB_COL=1
while [ ""$(head -1 $FICHIER_TXT | cut -d ":" -f $[$NB_COL+1]) != "" ]
do
NB_COL=$[NB_COL+1]
done
for ((COL=1;COL<=$NB_COL;COL++))
do
COLONE[$COL]=$(head -1 $FICHIER_TXT | cut -d ":" -f $COL)
MAX_CHAMP[$COL]=0
done
### Boucle de calcul
for ((NUM_LIGNE=2;NUM_LIGNE<=$NB_LIGNE;NUM_LIGNE++))
do
LIGNE=$(head -$NUM_LIGNE $FICHIER_TXT | tail -1)
for ((COL=1;COL<=$NB_COL;COL++))
do
CHAMP=$(echo $LIGNE | cut -d ":" -f $COL)
LONG_CHAMP=$[$(echo $CHAMP |wc -m)-1]
if (( $LONG_CHAMP > ${MAX_CHAMP[$COL]} ))
then
MAX_CHAMP[$COL]=$LONG_CHAMP
fi
done
done
### Affichage
for ((COL=1;COL<=$NB_COL;COL++))
do
echo "La longueur maximale du champ n°$COL \"${COLONE[$COL]}\" est : ${MAX_CHAMP[$COL]}"
done
par jdh » 15 Nov 2004 23:56
#!/usr/bin/awk -f
BEGIN { FS=":";
getline;
for (i=1; i<=NF; i++) { ch[i]=$(i); lg[i]=0; }; }
{ for (i=1; i<=NF; i++) { l=length($(i)); if (l>lg[i]) lg[i]=l; }; }
END { for (i=1; i<=NF; i++) {print "Champ \"" ch[i] "\" longueur max " lg[i];}; }
par neox » 16 Nov 2004 00:16
#!/bin/perl -w
FIC=open(monfichier.txt)
while (<FIC>)
{
$LIGNE=$_;
compte les champs($LIGNE);
compte_les_caracteres($LIGNE);
....
}
close(FIC);
par fredmarseil » 16 Nov 2004 00:24
par jdh » 16 Nov 2004 03:25
#!/bin/bash
#
# calcul des longueurs de champs
#
# le fichier a analyser est en parametre $1
FIC=$1
# declaration des variables
numch=0 # nb de champs (+1)
ch=(" ") # noms des champs
lg=(0) # longueurs max des champs
trchamp=1 # 1 pour la premiere ligne puis 0
# boucle de parcours du fichier (noter que le fichier est au "done" final)
while read ligne
do
OIFS=$IFS
# astuce : decoupage de $ligne grace au : (=$IFS)
IFS=":"
set $ligne
if [ "$trchamp" = "1" ]
then
# traiter la ligne des champs
numch=1
until [ -z "$1" ]
do
ch[$numch]=$1 # nom du champ
lg[$numch]=0
shift
numch=$[numch+1]
done
trchamp=0
else
# traiter les autres lignes
i=1
until [ -z "$1" ]
do
v=$1
l=${#v} # longueur du champ
if [ "$l" -gt "${lg[$i]}" ]
then
lg[$i]=$l
fi
shift
i=$[i+1]
done
fi
IFS=$OIFS
done <$FIC
# affichage resultat
i=1
while [ "$i" -lt $numch ]
do
echo "champ \"${ch[$i]}\" longueur max : ${lg[$i]}"
i=$[i+1]
done
par tomtom » 16 Nov 2004 10:23
jdh a écrit:Désolé, Tomtom, j'ai eu du mal à comprendre ton script.
Surtout il saute au yeux qu'il lit le fichier sans arret (head -1, tail , ...)
Il me semblait important de traiter le fichier en une seule lecture si possible.
) de réécrire la boucle à ta façon
par Franck78 » 16 Nov 2004 11:30
Rien à faire dans la boucle...
Retour vers Linux et BSD (forum généraliste)
Utilisateur(s) parcourant actuellement ce forum : Aucun utilisateur inscrit et 1 invité
