Discussion :

[vodevil]

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

Code :

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

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 !-

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

[2Eurocents]

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

Code :

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

my @donner = $_;

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

Bah ... par exemple ...

Code :

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

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

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

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 !-

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

[vodevil]

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

[2Eurocents]

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.

[bluecurve]

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

[2Eurocents]

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

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 :

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
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).

[bluecurve]

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