Comment partager/exporter une variable globale entre les deux scripts perl?

Comment pouvons-nous partager ou exporter une variable globale entre les deux scripts perl.

Voici la situation:

first.pl

#!/usr/bin/perl
use strict;
our (@a, @b);
.........

second.pl

#!/usr/bin/perl
use strict;
require first.pl;

Je veux utiliser une variable globale (@a, @b) a déclaré dans first.pl

Aussi,supposons qu'il y a une variable dans le deuxième dossier de perl comme le premier dossier de perl. Mais je veux profiter du premier fichier variable. Comment atteindre cet objectif?

InformationsquelleAutor Cthar | 2010-12-28
  1. 30

    En général, lorsque vous travaillez avec des fichiers multiples, et de l'importation des variables ou des sous-programmes entre eux, vous trouverez qu'en exigeant que les fichiers finit par obtenir un peu compliqué à mesure que votre projet se développe. Cela est dû à tout le partage d'un espace de noms commun, mais avec quelques variables déclarées dans certains fichiers, mais pas les autres.

    De la manière habituelle, ce problème est résolu dans le Perl est de créer des modules, et puis les importer à partir de ces modules. Dans ce cas:

    #!/usr/bin/perl

package My::Module;  # saved as My/Module.pm
use strict;
use warnings;

use Exporter;
our @ISA = 'Exporter';
our @EXPORT = qw(@a @b);

our (@a, @b);

@a = 1..3;
@b = "a".."c";

    puis d'utiliser le module:

    #!/usr/bin/perl

use strict;
use warnings;

use My::Module;  # imports /declares the two variables

print @a;
print @b;

    Que use ligne signifie en réalité:

    BEGIN {
    require "My/Module.pm";
    My::Module->import();
}

    La import méthode vient de Exporter. Lorsqu'il est appelé, il va exporter les variables dans le @EXPORT tableau dans le code appelant.

    Regarder la documentation pour Exportateur et perlmod devrait vous donner un point de départ.

    InformationsquelleAutor Eric Strom
  2. 18

    Ils vont partager des variables globales, oui. Voyez-vous un problème avec ça?

    Exemple:

    first.pl:

    #!/usr/bin/perl

use strict;
use warnings;

our (@a, @b);

@a = 1..3;
@b = "a".."c";

    second.pl:

    #!/usr/bin/perl

use strict;
use warnings;

require "first.pl";

our (@a,@b);
print @a;
print @b;

    Donner:

    $ perl second.pl
123abc
    • Merci.... j'ai manqué de déclarer même variable dans les second.pl. Au début, lorsqu'il n'est pas déclaré,il est dit, la Variable "@a" n'est pas importé à ..... Il travaille maintenant...
    InformationsquelleAutor ysth
  3. 2

    Vous ne pouvez utiliser l'emballage et l'exportation de la variable?

    • Merci.... Après ce problème.... je me penche sur l'utilisation de l'emballage. Merci quand même.
    InformationsquelleAutor SAN