[Perl] Remplacement et chaine de texte

Marsh Posté le 24-02-2006 à 11:55:40

Bonjour,

je cherche à modifier une chaîne de caractères en en supprimant une partie.
Les chaînes sont des noms de répertoires présent dans un répertoire données.
Je souhaite garder d'une part les nom complets, d'autre part le nom des sous-rep.

Je fais donc :

Code :

$path="f:\\fic\\arc\\" ;
while (<$path*> ) {
push @rep,$_;
}
print "Liste des repertoires :\n";
foreach (@rep) {
print "$_\n";
}
# recuperation des noms
@tab = @rep;
print "Liste :\n";
foreach (@tab) {
s/\b$path\b//;
#~ s/\bf:\\fic\\arc\\\b//;
print "$_\n";
}

Ligne 16 fonctionne mais pas Ligne 15

Bon là je vois pas du tout, et la solution ligne 16 m'arrange pas des masses :sleep:

Message édité par nibbles1 le 24-02-2006 à 13:44:34

Marsh Posté le 24-02-2006 à 11:55:40

Marsh Posté le 24-02-2006 à 17:29:28

Code :

use strict;
use File::Basename;
my $path = "f:\\fic\\arc";
for my $path (glob("$path\\*" )) {
print 'Fullpath: ' . $path . "\n";
print 'Shortpath:' . basename($path) . "\n";
}

Marsh Posté le 24-02-2006 à 18:06:49

ok merci ! je tenterai ça lundi !
En passant, le glob sort toujours les noms de fichiers par ordre alphabétique ?

Message cité 1 fois

---------------
JeanBeulz, chercheur coincheur

Marsh Posté le 24-02-2006 à 19:33:24

nibbles1 a écrit :

ok merci ! je tenterai ça lundi !
En passant, le glob sort toujours les noms de fichiers par ordre alphabétique ?

hum jamais vérifié, sinon tu ajoute le sort

for my $path (sort(glob("$path\\*" ))) {

Marsh Posté le 24-02-2006 à 19:44:27

merci !

---------------
JeanBeulz, chercheur coincheur

Marsh Posté le 27-02-2006 à 09:37:35

C'est cool ça fonctionne (pas le sort )

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *