Discussion :

[black bulldog]

Bonjour,

Avec Cwd::realpath, j'ai 2 résultats différents selon l'entrée : des slash ou des anti-slashs.

(windows xp, perl 5.8.8)

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
#! /user/bin/perl
 
use File::Basename;
use Cwd;
use Cwd 'realpath';
 
my ($script, $path) = fileparse ("$0");
print "FILEPARSE SCRIPT : $script\n";
print "FILEPARSE PATH : $path\n";
 
my $realpath_script = realpath ("$script");
print "REALPATH SCRIPT : $realpath_script\n";
 
my $realpath_file = realpath( 'C:\TEMP\file.txt' );
print ("REALPATH FILE : $realpath_file\n");

Voici ma sortie :

FILEPARSE SCRIPT : script.pl
FILEPARSE PATH : C:\TEMP\
REALPATH SCRIPT : C:\TEMP\script.pl
REALPATH FILE : C:/TEMP/file.txt

Le realpath sur une chaine de caractère semble transformer les anti-slashs en slashs (ligne REALPATH FILE).
Le realpath sur une variable semble sortir des anti-slashs, sans les transformer (ligne REALPATH SCRIPT).
D'où vient la différence ?

Merci

Bulldog

[Philou67430]

Quelle implémentation de perl ? (Strawberry, cygwin, ActivePerl)
Depuis quel shell et quel OS ?

[black bulldog]

Quelle implémentation de perl ? (Strawberry, cygwin, ActivePerl)
Depuis quel shell et quel OS ?

Distribution ActivePerl sous windows XP : lancé directement via le dos ou double clique sur le fichier .pl.
Est-ce que c'est ce que tu attends comme éléments complémentaires ?
Merci

[Philou67430]

J'avais imaginé que le problème pouvait venir du shell d'appel du programme et pas du programme lui-même.
Là, je n'ai pas ActivePerl, et je ne pourrai me pencher sur ce problème que lundi.