Variable globale, variable de sous-programme Question en Perl

Question

Comment puis-je transférer la valeur de la variable de sous-programme dans une autre variable de sous-programme, Puis-je utiliser une variable globale. J'ai essayé d'utiliser package et la variable globale, mais a échoué.

sub foo(){ 

my $myvar = "Hello"; 
} 

sub foo1(){ 
my $myvar1 = $myvar; # how can I get the "Hello" from $myvar. 
} 

Package Bar; 
our $bar; 

Merci.

Answer 1

Vous pouvez déclarer la variable dans un champ qui comprend les 2 fonctions:

{ my $myvar 

    sub foo{ 
    $myvar = "Hello"; 
    } 

    sub foo1{ 
    my $myvar1 = $myvar; 
    } 
} 

Ce n'est pas vraiment élégant cependant, et peut être difficile à maintenir, car il ne sait pas dans foo1 où la valeur de $myvar a été défini. Il est probablement préférable de passer la variable en argument.

sub foo { 
    my $myvar = "Hello"; 
    return $myvar; 
} 

sub foo1 { 
    my($myvar)= @_; 
    my $myvar1 = $myvar; 
} 

# calling code 
my $myvar= foo(); 
foo1($myvar); 

Notez que tous les 3 $myvar sont des variables différentes, dans des portées différentes.

Comme une note de côté, en utilisant des prototypes (sub foo()) est probablement pas une bonne idée, sauf si vous savez vraiment ce qu'ils font, ce qui risque de ne pas être le cas (voir The problem with prototypes pour une discussion sur des prototypes)

Answer 2

Vous avez quelques approches.

Le plus simple est de ne pas déclarer la variable avec my. Mais cela vous oblige à éviter use strict; et n'est pas recommandé en conséquence.

Vous pouvez déclarer votre variable en dehors de les fonctions en haut de votre script. Cette variable serait alors disponible pour toutes les fonctions ci-dessous. Ceci est une conséquence de scope: les variables déclarées en dehors d'un ensemble d'accolades sont généralement disponibles à l'intérieur des accolades suivantes.

Vous pouvez déclarer votre variable à l'aide du pragma use vars qw/$myvar/;. Cela rend intrinsèquement votre variable disponible dans le code suivant.

Answer 3

Il suffit de ne pas utiliser my:

#!/usr/bin/perl 

sub foo() { 
    $myvar = "Hello\n"; 
} 

sub foo1() { 
    $myvar1 = $myvar; 
    print $myvar1; 
} 

print "here we go!\n"; 
foo(); 
foo1(); 

Cependant, je ne recommande pas cette façon de programmation.

Answer 4

Comment puis-je transférer la valeur de la variable de sous-programme dans une autre variable de sous-programme? Puis-je utiliser des variables globales?

Oui, vous pouvez:

my $myvar; 
sub foo(){ 
    $myvar = "Hello"; 
} 

sub foo1(){ 
    my $myvar1 = $myvar; # how can I get the "Hello" from $myvar. 
} 

Cela fonctionne même avec "use strict;" et "utiliser des avertissements". J'ai essayé d'utiliser le package et la variable globale, mais j'ai échoué.

Les variables de package sont pour les variables que vous souhaitez exporter en dehors de votre package, pas pour les variables que vous souhaitez partager entre deux sous-routines dans le même package.

Answer 5

Le code suivant peut démontrer une solution à ce que vous décrivez:

#!/usr/bin/perl 
use strict; 
my $var = "hello"; 
sub foo { 
    local *var; 
    print "$var world\n"; 
    $var = "hi"; 
} 

sub bar { 
    local *var; 
    print "$var world\n"; 
    $var = "hey"; 
} 

foo(); 
bar(); 
print "$var world\n"; 

Le résultat devrait être:

hello world 
hi world 
hey world