Bonjour,
J'utilise très peux Cygwin, j'ai un pb lors de l'ouverture lorsque le chemin comporte des /

PB :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
use strict;
use warnings;
use utf8;
 
my $FileEnv = '/home/Michel/perl/env_perso';
#my $FileEnv = "env_perso";
my $Fh;
 
open($Fh,'<:utf8', $FileEnv)
        or die Ano("Erreur ouverture fichier environnement : $FileEnv : \n\t $! \n");
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Michel@MiDo ~/perl
$ ll
total 2.0K
-rw-r--r-- 1 Michel None 431 Aug  3 08:03 env.pl
-rw-r--r-- 1 Michel None 440 Aug  3 03:52 env_perso
 
Michel@MiDo ~/perl
$
 
Michel@MiDo ~/perl
$ perl env.pl
Undefined subroutine &main::Ano called at env.pl line 9.
OK :
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
21
use strict;
use warnings;
use utf8;
 
#my $FileEnv = '/home/Michel/perl/env_perso';
my $FileEnv = "env_perso";
my $Fh;
 
open($Fh,'<:utf8', $FileEnv)
        or die Ano("Erreur ouverture fichier environnement : $FileEnv : \n\t $! \n");
 
while ( my $ligne = <$Fh> ) {
        last if ($ligne =~ /^#/);
        my @Elem = split (/ /, $ligne);
        my ($Var, $Valeur) = split (/=/, $Elem[1]);
        $ENV{$Var} = $Valeur;
}
 
print "$ENV{ORACLE_SID}\n";
 
close $Fh;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Michel@MiDo ~/perl
$ perl env.pl
bsiR
J'ai essayé les "" \ // et Cie... rien n'y fait !
Y a-t-il un truc ?

[EDIT 08:15] visiblement, il utilise le Perl du Win7

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Michel@MiDo ~/perl
$ perl -v
 
This is perl 5, version 24, subversion 0 (v5.24.0) built for MSWin32-x64-multi-thread
MERCI d'avance !