Comment puis-je créer un nom de variable Perl basé sur une chaîne?

Question

En Perl, est-il possible de créer une variable globale basée sur une chaîne?

Par ex, si j'avais une fonction comme:

sub create_glob_var { 
    my ($glob_var_str) = @_; 
    # something like this (but not a hash access). 
    our ${$glob_var_str}; 
}; 

et je l'ai appelé comme:

create_glob_var("bar"); 

Comment pourrais-je modifier create_glob_var réellement créer une variable globale appelée $bar?

Mon projet utilise perl 5.8.5.

EDIT

Ce qui suit ne fonctionne pas:

use strict; 
BEGIN { 
    sub create_glob_var { 
    my ($glob_var_str) = @_; 
    no strict 'refs'; 
    $$glob_var_str = undef; # or whatever you want to set it to 
    } 

    create_glob_var("bah"); 
}; 

$bah = "blah"; 

Produit:

Variable "$bah" is not imported at /nfs/pdx/home/rbroger1/tmp2.pl line 12. 
Global symbol "$bah" requires explicit package name at /nfs/pdx/home/rbroger1/tmp2.pl line 12. 
Execution of /nfs/pdx/home/rbroger1/tmp2.pl aborted due to compilation errors.

NOTE je me rends compte que l'utilisation des variables globales provoque ozone depletion and male pattern baldness. J'essaie de nettoyer un code hérité qui est déjà complètement infecté par l'utilisation de variables globales. Un refactor à la fois ...

Answer 1

Si yo Vous essayez de nettoyer l'ancien code, vous pouvez écrire un module qui exporte la (les) variable (s) requise (s). Chaque fois que vous ressentez le besoin d'invoquer create_glob_var, ajoutez plutôt une variable à ce paquet et mettez-la dans la liste d'importation.

Cela vous aidera à garder une trace de ce qui se passe et comment les variables sont utilisées.

package MyVars; 

use strict; use warnings; 

use Exporter 'import'; 

our($x, %y, @z); 

our @EXPORT_OK = qw($x %y @z); 

Le script:

#!/usr/bin/perl 

use strict;use warnings; 

use MyVars qw($x %y @z); 

$x = 'test'; 
%y = (a => 1, b => 2); 
@z = qw(a b c); 

use Data::Dumper; 
print Dumper \($x, %y, @z); 

Sortie:

$VAR1 = \'test'; 
$VAR2 = { 
      'a' => 1, 
      'b' => 2 
     }; 
$VAR3 = [ 
      'a', 
      'b', 
      'c' 
     ];

Answer 2

Vous devrez utiliser un eval, mais cela est généralement considéré comme mauvais. Quelque chose comme:

eval("$glob_var_str = \@_;");

EDIT

juste vérifié que vous ne pouvez le faire sans my et no strict refs.

Answer 3

Essayez de regarder cette question: Does Perl have PHP-like dynamic variables?

En bref, il semble que vous devriez être en mesure de le faire $$glob_var_str = "whatever";

Answer 4

sub create_glob_var { 
    my ($glob_var_str) = @_; 
    no strict 'refs'; 
    $$glob_var_str = undef; # or whatever you want to set it to 
} 

Le no strict 'refs' est nécessaire que si use strict est en vigueur, qu'il toujours devrait être.

Addendum:

Si vous vous demandez s'il y a un moyen d'écrire un sous-programme create_glob_var tel que le code suivant réussira:

use strict; 
create_glob_var("bar"); 
$bar = "whatever"; 

... alors la réponse est « Non » Cependant, vars pragma Perl fera ce que vous voulez:

use strict; 
use vars qw($bar); 
$bar = "whatever"; 

Mais ce genre est de style ancien de codage Perl.De nos jours, on en général faire:

use strict; 
our $bar = "blah"; 

our peut aussi simplement déclarer des variables globales qui peuvent être librement utilisées par la suite:

our ($foo, @bar, %baz); 
# ... 
$foo = 5; 
@bar = (1, 2, 3); 
%baz = (this => 'that'); 

Answer 5

Le vars pragma fait déjà le levage de charges lourdes pour ce que vous voulez, si mettre à l'œuvre:

#! /usr/bin/perl 

use warnings; 
use strict; 
use vars; 

BEGIN { vars->import(qw/ $bah /) } 

$bah = "blah"; 
print $bah, "\n"; 

Si vous préférez épeler create_glob_var, puis utilisez

#! /usr/bin/perl 

use warnings; 
use strict; 
use vars; 

sub create_glob_var { vars->import("\$$_[0]") } 

BEGIN { create_glob_var "bah" } 

$bah = "blah"; 
print $bah, "\n"; 

Quoi qu'il en soit, la sortie est

blah

Je suis curieux de savoir pourquoi vous voulez le faire de cette façon plutôt que de déclarer ces variables avec our. Oui, cela peut prendre quelques itérations pour tous les attraper, mais ce sont des corrections à court terme de toute façon, n'est-ce pas?

En général, vous pouvez utiliser une variable comme nom de variable (voir "Symbolic references" in perlref), mais vous avez vraiment, vraiment, vraiment ne veulent pas faire: permettre à la strict 'refs' pragma désactive cette fonction.

Rafael Garcia-Suarez a montré une grande sagesse quand il écrit: « Je ne sais pas ce que votre problème d'origine, mais je suggère d'utiliser un hachage. »

Voir aussi:

• Why it's stupid to 'use a variable as a variable name'
• A More Direct Explanation of the Problem
• What if I'm really careful?

Answer 6

Answer by Sinan Unur est en effet le meilleur. Cependant, ceci a capté ma curiosité, donc j'ai fait un peu de lecture (perlocod perldoc) et j'ai appris à propos du hash "package_name ::" pour accéder à l'espace de noms d'un paquet.

Le code suivant ajoute un enregistrement à la table des symboles de main :: package:

use strict; 
my $name = "blah"; 
my $var = "sss"; 
$main::{$name} = \$var; 

print "$main::blah\n"; 

Cette affiche "sss".

Cependant, j'ai dû ajouter le nom du paquet à l'instruction print parce que "use strict" n'est toujours pas dupe.Je vais continuer à chercher - utiliser des vars ne semble pas fonctionner pour le moment.