Bonjour.  
 
Dans un fichier J'ai  
liste_priorité = {1, 2, 3}
liste_course = {viande, fromage, ...., beurre}
.....
 
 
Je dois remplacer le contenu de la liste_course par la liste suivante que j'ai tapé sous excel:  
 
assiette
pc
tv
dvd
...
chaussette
 
Au final, je dois obtenir les même séparateurs et {} au début et à la fin.  
Mon ancienne liste comporte 15 éléments, ma nouvelle 22.
Dois enregistrer ma nouvelle liste dans un fichier texte ?  

Tu peux aller lire directement tes valeurs dans le fichier excel, si tu sais en quelles lignes et colonnes tu les a tapées:
 
Un exemple de script qui va lire des valeurs dans une feuille excel:
 
 

#!/usr/bin/perl -w
 
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
 
$Win32::OLE::Warn = 3;                                # die on errors...
 
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  
 
# open Excel file
my $Book = $Excel->Workbooks->Open("c:/komodo projects/test.xls" ); 
 
# You can dynamically obtain the number of worksheets, rows, and columns
# through the Excel OLE interface.  Excel's Visual Basic Editor has more
# information on the Excel OLE interface.  Here we just use the first
# worksheet, rows 1 through 4 and columns 1 through 3.
 
# select worksheet number 1 (you can also select a worksheet by name)
my $Sheet = $Book->Worksheets(1);
 
foreach my $row (1..4)
{
 foreach my $col (1..3)
 {
  # skip empty cells
  next unless defined $Sheet->Cells($row,$col)->{'Value'};
 
 # print out the contents of a cell  
  printf "At ($row, $col) the value is %s and the formula is %s\n",
   $Sheet->Cells($row,$col)->{'Value'},
   $Sheet->Cells($row,$col)->{'Formula'};        
 }
}
 
# clean up after ourselves
$Book->Close;

( http://www.ibm.com/developerworks/ [...] /l-pexcel/ )
A+,

Si ma liste est dans un fichier texte,  
peut on implémenter une fonction perl qui ouvre ce fichier texte, et effectue la modif dans un fichier cible ?

Ben il y a rien de plus simple:
0) créer une liste vide
1) Ouvrir le fichier (open, etc)
2) lire ligne a ligne chaque mot (1 par ligne, c'est ça) et le mettre dans la liste (push, etc)
3) fermer le fichier (close, etc)
4) utiliser la liste ainsi constituée pour modifier le fichier cible suivant la méthode vue dans l'autre sujet (Tie::File etc)
 
Une variante, peut être plus adaptée, serait de faire
0) creer une variable texte contenant "{"
..
2) lire ligne a ligne chaque mot (1 par ligne, c'est ça) et ajouter "mot trouvé, " a la variable texte
3) fermer le fichier (close, etc) et ajouter "}" a la variable texte
4) utiliser le texte ainsi constitué...
 
A+,