Discussion :

[bulletshit17]

Bonjour,
Je suis neophype en programmation perl, actuellement j'ecris un petit script qui m'aidera à copier un fichier dans un autre repertoire.
L'idée de mon script est de lister tous le fichiers et leur chemin ligne par ligne dans un fichier.
Exemple:

/home/test/cpo1
/etc/col/cpo2
/curentrep/cpo3

Mon script va scruter le fichier ligne par ligne et va indexer chaque ligne comme un fichier pour le recopier dans un autre repertoire.
Voici ce que j'ai déja concocté et qui ne marche toujours pas:
************************

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
my $i;
my $path;
my $files;
system("cp test01 bliz");
$i = 0;
open(FILE, fichiers);
while($files=<FILE>){
while ($i<5){
$path = "bliz".$i;
$lpath = "/home/test/perlTraining/olddata/".$path;
system("cp $files $lpath");
$i = $i + 1;
}
}
close(FILE);
print "OK";

**********************************************
J'ai remarqué qu'une erreur se glisse quand j'ajoute la boucle while($files=

<FILE>)...
cp: missing destination file operand after 'cpo1'
Try 'cp --help' for more information.
sh: 2: /home/test/perlTraining/olddata/bliz0: not found
cp: missing destination file operand after 'cpo1'
Try 'cp --help' for more information
...

*****************
Avant que cette erreur apparaisse, j'avais un fichier statique "fichierTest" en lieu et place de $files. Et tout marchait correctement.
Je continue de bucher sur ce soucis, prière m'aider SVP.

En attente de reponse .

[Lolo78]

Code :

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

open(FILE, fichiers);

D'où vient le mot fichier ci-dessus?

Comme il n,'a pas été défini, tu n'ouvres aucun fichier.

Ajoute systématiquyement en haut de tout script Perl les commandes suivantes:

Code :

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

1
2
use strict;
use warnings;

Cela t'aurait averti que le mot "nu" (bareword) fichier n'est pas défini.

De plus, il faut toujours tester si l'ouverture d'un fichier a marché, avec une syntaxe comme celle-ci (en supposant que ton fichier s'appelle "fichier.txt":

Code :

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

1
2
3
4
open my $FILE, "<", "fichier.txt" or die "ouverture impossible de fichier.txt $!":
while (my $files = <$FILE>) {
   chomp $files;
   # suite

Avec cette syntaxe d'ouverture tu te serais rendu compte que tu ne parvenait pazs à ouvrir le fichier.

Il y a d'autres choses à dire, mais je te laisse continuer pour l'instant sur cette base, vois si tu arrives à progresser.