Probleme en vue

Youki :D , un script perl qui passe un scalaire dans un tableau comme cela

Code:

---

my @donner = $_;

---

jusque la tout vas bien mais comment repasser @donner dans un scalire sans utiliser for my $???( @donner ) ?


Et pour la deuxiéme question comment ont fait pour appeler d'autre sous programme si ont est dans un sous programme ? (c'est pour être sur de ce que je fait)

Merci !- :D

Balises [ code ] et [ /code ] ajoutées par 2Eurocents.

Citation:

---

Envoyé par vodevil

un script perl qui passe un scalaire dans un tableau comme cela

Code:

---

my @donner = $_;

---

jusque la tout vas bien mais comment repasser @donner dans un scalire sans utiliser for my $???( @donner ) ?

---

Bah ... par exemple ...

Code:

---

my $scal = join ("", @donner);

---

Mais il y a surement d'autres façons de le faire ;)

Citation:

---

Envoyé par vodevil

Et pour la deuxiéme question comment ont fait pour appeler d'autre sous programme si ont est dans un sous programme ? (c'est pour être sur de ce que je fait)

Merci !- :D

---

Euh ... A part qu'il n'est jamais bon d'aborder deux sujets dans le même fil ( quand est il résolu ? sur un des deux sujets ou sur les deux ;) ), je ne comprend pas bien le problème :(

Thanks 2eurocents , s marche au poil , et pour la deuxiéme question c'est bon j'ai trouvé en fait pas besoin de me prendre la tête il suffit d'appeler la fonction comme n'importe qu'elle autre

Alors il ne faut pas oublier d'ajouter le tag [Résolu] sur le sujet, avant de refermer doucement la porte en partant et en nous laissant somnoler dans la torpeur de l'été qui s'avance ... ;)

Bonne continuation.

2Eurocents , moi j'ai le même parb mais ta méthode ralantit pas mal mon script !

Citation:

---

Envoyé par bluecurve

2Eurocents , moi j'ai le même parb mais ta méthode ralantit pas mal mon script !

---

8O

Ralentit par rapport à quoi ?

Si c'est par rapport au même script, sans la fusion de chaines du tableau dans un scalaire, je veux bien le croire !

Si c'est par rapport à une autre méthode, je veux bien la connaître !! Je reconnais que la mienne n'est pas forcément optimale (je suis un feignant, donc je n'ai pas cherché mieux que celle-ci qui est simplissime).

Ceci dit, j'ai fait un peu de profilage sur quelques méthodes simples :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

#!/usr/bin/perl -d:Profile   use strict; use warnings;   sub avec_join { my @tab= 'aaa'..'zzz';   my $scal=join ("", @tab); print "--- join ---\n$scal\n--- join ---\n"; }   sub avec_for { my @tab= 'aaa'..'zzz';   my $scal=""; $scal .= $_ for (@tab); print "--- for ---\n$scal\n--- for ---\n"; }   sub avec_foreach { my @tab= 'aaa'..'zzz';   my $scal=""; $scal .= $_ foreach (@tab); print "--- foreach ---\n$scal\n--- foreach ---\n"; }   sub avec_map { my @tab= 'aaa'..'zzz';   my $scal=""; map { $scal .= $_ } @tab; print "--- map ---\n$scal\n--- map ---\n"; }   sub avec_print { my @tab= 'aaa'..'zzz';   my $sep=$,; $,=""; print "--- print ---\n"; print @tab; print "\n--- print ---\n"; $,=$sep; }   avec_join (); avec_for (); avec_foreach (); avec_map (); avec_print ();

---

Ca vaut ce que ça vaut, mais à l'éxécution, en regardant le fichier prof.out généré, j'ai la méthode avec_map qui est d'une lenteur affligeante ; j'ai la méthode avec_join qui s'en sort toujours parfaitement ; et j'ai les trois autres méthodes qui s'en sortent de manière équivalente - une fois devant, une fois derrière, selon l'activité annexe de mon système (même si la méthode avec_print n'est pas réellement comparable avec les autres).

Si tu a tout testé je ne contrdirais pas t'est résultat , je vais donc revoie mon script pour trouvé d'ou sa vient

Merci :D