Discussion :

[GLDavid]

Bonjour !

Dans le cadre "Changez mes scripts Perl Windows vers Linux", voici mon problème. Je veux détecter un motif qui soit un chemin de répertoire sous Windows. Voici comment je m'y prend (d'ailleurs très mal) :

Code :

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

1
2
3
4
 
$change = " # amino acids = 22926410, # proteins = 54115, C:\Xcalibur\database\IPI\ipi.HUMAN-07-08-2004.v2.34.fasta";
$change =~ s/C:\\Xcalibur\\database\\IPI\\//;
print "$change\n";

J'admet que c'est la méthode "naïve" mais j'en ai essayé d'autre et je n'y arrive pas. Quelqu'un peut me venir en aide ?

Merci d'avance.

@ ++

[dmitry_ovsianko]

Code :

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

1
2
3
4
5
6
7
8
my $change = " # amino acids = 22926410, # proteins = 54115, C:\\Xcalibur\\database\\IPI\\ipi.HUMAN-07-08-2004.v2.34.fasta"; 
 
use File::Basename;
 
fileparse_set_fstype ('MSWin32');
my ($nom, $chemin, $suffix) = fileparse ($change);
 
print "$nom";

[GLDavid]

Merci Dmitry de ta réponse mais je pense avoir mal formulé ma question, autant pour moi. L'idée est de remplacer le chemin Windows vers un chemin Linux.
D'où :

Code :

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

1
2
 
$change ~= s/C:\\Toto\\database\\/\/home/Toto\/database\//;

Mais bon, tel quel, ça marche pô !
Désolé encore d'avoir mal formulé ma missive.

Et merci d'avance de vos réponses.

@ ++

[GLDavid]

Ok, c'est bon, j'ai trouvé :

Code :

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

1
2
3
4
5
6
 
$change = " # amino acids = 22926410, # proteins = 54115, C:\Xcalibur\database\IPI\ipi.HUMAN-07-08-2004.v2.34.fasta";
print "$change\n";
$change =~ s/C:\Xcalibur/\/home\/david\//;
$change =~ s/databaseIPI/database\//;
print "$change\n";

Merci encore à ceux qui m'auront aidé :o

@ ++