Discussion :

[GLDavid]

Bonjour

Excusez un peu mais je suis béotien total sur Perl.
Voici mon problème : J'ai une chaîne de caratère contenu dans une variable.
En fait, ce string, représente un chemin absolu. Je veux repérer tous les caractères \ et placer leur position dans un tableau.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my @name = "C:\Machin\Toto\Tutu; 
my @position;
my $i=0;
printf ("%d\n", length($name[0]));
for ($i=0; $i<length($name[0]); $i++) {
if ($name[$i] eq '\\') {
push(@position, $i);
}
}
printf ("\n");
foreach(@position) {
printf("%d ", @position);
}

Or, au final, mon tableau position est...vide
Qu'ai-je raté ?

@++

[GLDavid]

Ca va, j'ai trouvé grâce à rindex !

@++

[Choupi]

Je te propose ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my $chemin = 'C:\Machin\Toto\Tutu';
my @position;
my $index;
print "$chemin\n";
 
if(($index = index($chemin,"\\")) != -1){
	while($index != -1){
		push(@position,$index);
		$index = index($chemin,"\\",$index+1);
	}
}
print "@position";

Tu peux donner ton code aussi ? pour voir la diff ?

[Jedai]

En perl, une string n'est pas un tableau, donc ici tu fais un tableau qui contient une string (ton chemin complet) et ensuite tu vérifies pour tous les éléments de ce tableau (il n'y en a qu'un seul) s'ils sont strictement égaux à \ ...
Il faut utiliser substr, ou le faire avec une regex :

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
16
17
18
19
 
#!/usr/bin/perl
use strict;
 
my $name = "C:\\Machin\\Toto\\Tutu"; #Attention il faut mettre \\ pas \
my @position;
 
print length($name), "\n";
foreach my $i ( 0..(length($name)-1) ) {
  if (substr($name, $i, 1) eq '\\') {
    push(@position, $i);
  }
}
 
print "\n";
{
  local $, = "\n";
  print @position;
}

J'en ai profité pour rendre tout ça un peu plus Perl.

On pourrait même faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
use strict;
 
my $name = "C:\\Machin\\Toto\\Tutu"; #Attention il faut mettre \\ pas \
my @position = grep { $_ } map { substr($name, $_, 1) eq '\\' and $_ } ( 0..(length($name)-1) );
 
print "\n";
{
  local $, = "\n";
  print @position;
}

Pour rendre ça plus amusant (ça marche pas si il y a un \ en position 0 mais bon...c'est facilement correctible).

Et je ne parle pas des solutions avec des regexs, qui pourrait être vraiment plus courtes (mais peut-être un peu inutiles)...

Maintenant, si c'est vraiment important et fait souvent (j'en doute un peu), il faudrait essayer de comparer avec une solution à base d'index().

[Edit] Bon bah tout le monde a répondu pendant que j'écrivais donc bon...
--
Jedaï

[Choupi]

index juste au dessus. Ca marche avec un \ devant... mais j'aime bien qd meme. Avec des regex, va pas falloir se perdre

Sinon GLdavid vient du forum C ou il m'a si souvent aide... d'amitie.

NB :

"C:\\Machin\\Toto\\Tutu"; #Attention il faut mettre \\ pas \

pas oblige ... il va sans doute bosser avec des simples \ ... mettre juste un '...

[Jedai]

Mon premier script marche même si le \ est en première position. Avec ' ça marche, mais il faut mettre \\ et pas \ à la fin d'un chemin de dossier parce que sinon il croît que c'est ' qui est échappé.
(mais le index() est sans doute plus rapide, non que ça soit vraiment important pour ce genre d'application mais bon...)

Une solution avec une regex :

Code :

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

1
2
3
4
5
 
my $name = "C:\\Machin\\Toto\\Tutu";
my @position;
 
$name =~ s/(\\)/ push (@position, pos $name) && "\\"/ge;

--
Jedaï

[GLDavid]

Salut à vous tous !

Merci de votre aide surtout à Choupi qui a bien compris mon origine 100% C-Java ! .
En fait, ce que je voulais c'était obtenir la position du dernier '\' pour récupérer les caractères suivants. De sorte que de "C:\Toto\Bidule", je ne récupère que "Bidule".
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 
sub Relative_path {
my($name) = @_;
my($i) = rindex($name, '\\');
my($nom) = substr($name, $i+1);
return $nom;
}
 
my($nom) = &Relative_path($ARGV[$#$ARGV]);

Et voilà, le tour est joué :o .
Merci encore à vous !!!

Et à bientôt car je crois que je reviendrais vous voir !!!

@ ++

[Jedai]

En fait, sans vouloir doucher ton enthousiasme, de un, cette fonction est disponible dans l'un des modules du Core de Perl, donc c'est pas la peine de la recoder, de deux même si tu veux la recoder, il suffit d'une regex...

Code :

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

1
2
3
4
 
sub Relative_path {
    return $_[0] =~ /\\([^\\]+)$/;
}

Voilà...

--
Jedaï

[GLDavid]

Salut !

Merci de ton post jedaï, mais comme je l'ai mentionné là-haut, je suis béotien complet en PERL !

@++