Discussion :

[juzii]

Bonjour

j ai un petit souci d'ouverture d'un fichier csv dans mon script . Il n'arrive pas à l'ouvrir en lecture, alors que quand je lui fais affiché l'adresse du fichier en question, elle est correcte, donc je ne comprends pas pourquoi il ne m'ouvre rien

je vous mets un bout de mon code

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
 
@tab_temp4=</opt/data/modmol/personnel/megn_or/workspace/Project_Descriptor/Pentacle_*.csv>;
foreach $line (@tab_temp4)
{ 
	print "$line\n";
	if ($line =~ m/Pentacle_(.+)\.csv/)
	{		$namealm=$1;
		push @tab_namealm, $namealm;
	}
 
	open (FCH_PEN, ' /opt/data/modmol/personnel/megn_or/workspace/Project_Descriptor/Pentacle_$namealm.csv') || die (" Erreur d'ouverture du fichier csv.\n ");
	@tab_pen=<FCH_PEN>;
	close (FCH_PEN);
 
}

il me retourne tout le temps l'erreur que je lui dis de générer en cas de problème : "erreur d'ouverture du fichier csv"

Merci de votre aide !!

[djibril]

Premier conseil.

Code :

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

1
2
use strict;
use warnings;

Et ensuite on cause

[juzii]

ah oui !! non mais ils étaient déjà mis !! mais comme je l ai dis , j ai mis juste une partie de mon code!!

[djibril]

Code :

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

' /opt/data/modmol/personnel/megn_or/workspace/Project_Descriptor/Pentacle_$namealm.csv'

Il y a un espace au début.

Sinon pour ouvrir proprement un fichier, on écrit :

Code :

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

1
2
3
open ( my $fh,  '<', '/opt/data/modmol/personnel/megn_or/workspace/Project_Descriptor/Pentacle_$namealm.csv') || die ("Erreur d'ouverture du fichier csv. $!\n ");
# ...
close($fh);

[juzii]

oki! j ai fini par résoudre merci!!