Perl

[Perl] Remplacement et chaine de texte

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Remplacement et chaine de texte

nibbles1

Pour la gloire de NFT

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

Publicité

burgergold

5$? va chez l'diable!

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

nibbles1

Pour la gloire de NFT

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

burgergold

5$? va chez l'diable!

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\\*" ))) {

nibbles1

Pour la gloire de NFT

merci !

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

nibbles1

Pour la gloire de NFT

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

FORUM HardWare.fr

Programmation

Perl

[Perl] Remplacement et chaine de texte

Sujets relatifs
[resolu]découper une chaine	[Perl] programme pour corriger des erreurs
[Réglé]Positionnement du texte dans un DIV et Background-image	Insérer du texte récurrent dans une page par les CSS ?
script JS qui affiche une zone de texte en fonction d'un select	include perl xpm
[!PERL] recuperation de données (pour débutant)	Largeur d'un texte suivant sa police et sa taille
comment couper une chaine	proteger du texte dans un xml
Plus de sujets relatifs à : [Perl] Remplacement et chaine de texte

Page générée en 0.071 secondes