Script ajout délimiteurs

Bonjour tout le monde,

Je dois écrire un script en Unix qui prend en paramètre un fichier plat et ajoute des séparateurs (';') à des positions bien spécifiques dans chaque ligne. (c'est pour le charger dans la base de données dans Postgres).

Exemple:
1152151 Tata Toto 200696585
4544446 Mimmm Aloooo699669669
donneront:
1152151 ;Tata ;Toto ;200696585
4544446 ;Mimmm ;Aloooo;699669669

Si quelqu'un a une idée ou a déja fait pareil, merci d'avance.

Si tu veux un script tout bête, le voici:

Citation:

---

while read champs1 champs2 champs3 champs4
do
echo "$champs1 ; champs2 ; champs3 ; champs4" >> fichier_final.txt
done < fichier_original.txt

---

Sinon en une ligne:

Citation:

---

cat fichier_original.txt | tr " " " ; " > fichier_final.txt

---

Voila un script perl qui fais ce que tu demande.
chmod +x script.pl
./script.pl fichiersource.txt


#!/usr/bin/perl
if ($ARGV[0])
{open(FILEDESC,$ARGV[0]) or die "No such file\n";}
else {die "Enter a argument : $0 toto.txt";}

open(OUTFILE,">result.txt")or die "Impossible de creer le fichier ...\n";
my $i;

while (<FILEDESC>)
{
my $str;
@champ = split(/\s+/,$_);
#join(';',@champ);
for($i=0;$i<=$#champ;$i++)
{
if ($i != $#champ) {$str = $str.$champ[$i].";";}
else {$str = $str.$champ[$i];}
}
print OUTFILE "$str";
print OUTFILE "\n";
}

print "Voir le fichier \"result.txt\" pour les resultats\n";

Apres faut voir si le fichier a traiter fais 8ko ou 30 Mo.
8ko : cat ... ok

30ko : vaut mieux traiter le fichier ligne par ligne plutot que cat fichier....

A+

Merci pour vos réponses, mais il faut que je spécifie les index pour chaque champs,
Exemple:

id = $(line:0:5)
nom = $(line:6:10)
....
Dans vos scripts il n'y a pas la possibilité d'indiquer les index.

Merci.