lecture ligne par ligne de 2 fichiers simultanément

**lavazavio** · 16/12/2008, 17h58

Bonjour,

Pour l'administration d'un serveur de donnée, je suis en train d'écrire un script perl qui :
1. Récupère le chemin absolu des fichiers d'un répertoire dans un fichier path.txt
2. Récupère la date de derniere modif de chaque fichier dans un fichier dates.txt
3. Lecture de la ligne1 du fichier path.txt, lecture de la ligne1 du fichier dates.txt
4. Exécution d'une commande touch pour replacer la la date de derniere modification de chaque fichier.

Mais voila, je n'arrive pas à récupérer la ligne1 de path.txt avec la ligne1 de dates.txt, stocker les 2 valeurs dans 2 variables et m'en servir pour ma commande touch.
Je précise que la ligne2 de path.txt doit aller avec la ligne2 de dates.txt --> touch, etc...

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
18
19
20
#ouverture des fichiers path et dates
open(PATH, "/root//path.txt") || die ("Erreur d\'ouverture de PATH");
open(DATES, "/root//dates.txt") || die ("Erreur d\'ouverture de DATES");
 
my $i = 0;
my $j = 0;
while($chemin_absolu = <PATH>){
	while($saved_dates = <DATES>){
		if ($i == $j){
			$cmd_path_date = "touch -m -t $saved_dates $chemin_absolu";
			print $cmd_path_date ."\n";
			system $cmd_path_date;
		}
		$j++;
	}
	$i++;
}
 
close(DATES);
close(PATH);

**Jasmine80** · 17/12/2008, 08h29

Si tes fichiers ne sont pas trop gros, tu peux utiliser des tableaux.

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
18
#ouverture des fichiers path et dates
open(PATH, "/root//path.txt") || die ("Erreur d\'ouverture de PATH");
open(DATES, "/root//dates.txt") || die ("Erreur d\'ouverture de DATES");
 
# stockage des informations dans 2 tableaux indexés
my @path = <PATH>;
my @dates = <PATH>;
 
# fermeture des fileshandles
close PATH;
close DATES;
 
# comparaison des données
# si les fichiers ont le même nombre de lignes 
for my $i (0..$#path){
	$path[$i] vs $dates[$i];
 
}

**lavazavio** · 17/12/2008, 10h10

Merci.
J'avais pensé à tout stocker dans un tableau mais c'est pas trop possible. J'ai environ 35 000 valeurs à stocker (x2) !!!

J'ai résolu mon problème en fouillant toute la soirée dans cette section.

Voila un bout de code pour info :

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
18
19
20
#ouverture des fichiers path et dates
open(PATH, "/root/path.txt") || die ("Erreur d\'ouverture de PATH");
open(DATES, "/root/dates.txt") || die ("Erreur d\'ouverture de DATES");
 
while(<PATH>){
	my $chemin_absolu = $_;
	$chemin_absolu =~ s/\'/\\\'/g;
	$chemin_absolu =~ s/^\s+//;
	$chemin_absolu =~ s/\s+$//;
	$chemin_absolu =~ s/ /\\ /g;
	chomp $chemin_absolu;
	my $saved_dates  = <DATES>; # lecture et stockage dans variable de la meme ligne dans DATES que dans PATH
	chomp $saved_dates;
	$cmd_path_date = "touch -t $saved_dates $chemin_absolu"; # commande qui rapplique les bonnes dates de modif
	print $cmd_path_date ."\n";
	system $cmd_path_date;
}
 
close(DATES);
close(PATH);