Perl

[PERL] Nom de variable composé

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Nom de variable composé

Super_carotte

Bonjour, :hello:

Je suis en train de faire un test pour utiliser des noms de variables composé (comme en PHP par exemple).

Pour tester, j'ai fais ce petit test.

Code :

#!/usr/bin/perl -w
no strict 'vars';
my $aaabbb="Hello !";
my $test1="aaa";
my $test2="bbb";
print "$aaabbb \n";
print "${aaabbb}\n";
print "${aaa.$test2}\n";
print "${$test1.bbb}\n";
print "${'aaa'.$test2}\n";
print "${$test1.'bbb'}\n";
print "${$test1.$test2}\n";

Je suis surpris de voir que malgré l'utilisation du "no strict 'vars'", a part les deux premiers exemples, aucun ne fonctionne.
L'utilisation de variables composées est elle possible en perl? :??:

Message édité par Super_carotte le 19-12-2011 à 16:53:08

Publicité

gilou

Modérateur
Modzilla

Pour autant que je sache, non.

print eval "\$${test1}${test2}"; marche, mais ce n'est pas vraiment une variable composée.

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Super_carotte

Hmmm.. c'est problématique.
En fait, j'ai une fonction qui s'appelle elle même. (CF ci-dessous)

Et j'aurai besoin de créer une variable qui a un nom différent a chaque fois.

C'est la variable "$pm2" qui doit changer de nom a chaque fois.
Auriez vous une idée pour arriver à faire ça sans utiliser de nom de variable composé?

Code :

sub launch_process
{
my $pm2 = new Parallel::ForkManager(10);
my(@args) = @_;
my $ID_inLaunch=$args[0];
my $RETOUR_inLaunch ="";
foreach my $row_inFork (@tabProc)
{
if ($row_inFork->{ID_PROCESS} == $ID_inLaunch )
{
my $LOCK_inLaunch = $row_inFork->{LOCK};
my $TYPE_inLaunch = $row_inFork->{TYPE};
my $FILS_inLaunch = $row_inFork->{FILS};
my $PERE_inLaunch = $row_inFork->{PERE};
my @tab1 = split(/ /,$PERE_inLaunch);
my $tailletab1 = scalar @tab1;
my @tab2=@tabProcFini;
my %hash = map{$_ => 1} (@tab1, @tab2);
my @tab = keys %hash;
my $nombre_elements_commun = @tab1 + @tab2 - @tab;
if($nombre_elements_commun == $tailletab1)
{
if ($LOCK_inLaunch == "0" ) #si le processus est bloqué (dans ce test code, il ne l'est jamais)
{
$RETOUR_inLaunch = "Not OK";
if ($RETOUR_inLaunch eq "OK" ) #si le retout est OK (dans ce test code, il ne l'est jamais)
{
print "tabProcFini : @tabProcFini\n";
print "PROCESS","$ID_inLaunch is Running \n";
(tied @tabProcFini)->shlock;
push(@tabProcFini,$ID_inLaunch); #j'ajoute le processus dans le tableau des processus fini
(tied @tabProcFini)->shunlock;
print "\n";
}
else
{
print "ID_inLaunch $ID_inLaunch\n";
sleep 2;
(tied @tabProcFini)->shlock;
push(@tabProcFini,$ID_inLaunch); #j'ajoute le processus dans le tableau des processus fini
(tied @tabProcFini)->shunlock;
if ($FILS_inLaunch ne "NULL" )
{
my @tabFils_inLaunch = split(/ /,$FILS_inLaunch);
foreach my $row_fils_inLaunch (@tabFils_inLaunch) #pour chaque processus
{
print "row_fils_inLaunch $row_fils_inLaunch\n";
$pm2->start and next; # je lance un fork
launch_process($row_fils_inLaunch);
$pm2->finish;
}
}
}
}
else
{
print "PROCESS","$ID_inLaunch is Locked !!! \n";
push(@tabProcFini,$ID_inLaunch);
print "\n";
}
}
}
}
}

Merci,
Cordialement,
Benjamin

Message édité par Super_carotte le 20-12-2011 à 12:04:27

Super_carotte

Je pense avoir réussi en faisant ainsi:
no strict 'refs';
my $ID_inLaunch = #ce que me donne la fonction en entrée
my $varname = "pm$ID_inLaunch";
$$varname = new Parallel::ForkManager(10);

Et donc, je l'utilise comme ceci:
$$varname->start and next; # je lance un fork
launch_process($row_fils_inLaunch);
$$varname->finish;

Merci Gilou !

Message édité par Super_carotte le 20-12-2011 à 12:22:59

gilou

Modérateur
Modzilla

La solution Perl habituelle, ce serait de faire un hash et d'associer a la clé de valeur $ID_inLaunch la valeur de new Parallel::ForkManager(10);
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[PERL] Nom de variable composé

Sujets relatifs
[Objective-C] Récupérer une variable d'un vue	[PERL] Supprimer valeure d'un tableau contenant des hash
[PERL] Erreure dans code. Algo?	[Shell/Unix] Reactualisation de variable dans une boucle
[PERL] plusieurs tie(tableau)	PERL - Communication processus pere/fils
Problème affectation de classeur dans une variable	Nom d'une procédure comme jdoc:
Extraire du texte de longueur variable dans une chaine	Appel de procédure : variable non renvoyée
Plus de sujets relatifs à : [PERL] Nom de variable composé

Page générée en 0.071 secondes