[langage] [RegExp] Détecter un chemin Windows

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:

---

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.

@ ++

Code:

---

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";

---

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:

---

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.

@ ++

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

Code:

---

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

@ ++