Question : problème avec la sous-routine externe

J'ai l'ennui using une bibliothèque ou une sous-routine externe de « myutilities » (pas sure qui sont les plus simples.  Essentiellement, j'emploie le Perl dans l'ubuntu et j'ai un manuscrit de « mymain.pl » et je veux essentiellement « traiter » un autre manuscrit « load_vars.pl » qui charge un groupe de variables, puis plus tard dans « mymain.pl » je veux employer une sous-routine externe dans « myutilities.lib » ou « myutilities.pl » (celui qui est le plus facile).  Je ne recherche pas la réutilisation à long terme ou n'importe quoi de pareil de code.  Je regarde juste pour obtenir cet asap.
I AM nouveau au Perl, mais j'accrois vraiment toutes les possibilités de regex.  Veuillez me donner quelques conseils, j'ai essayé la « utilisation », « exiger » etc. et rien ne fonctionne.  Je suis sûr que c'est tout à fait facile.  Un exemple très très court using le suivant est appreciated.

print « : Je suis dans mymain.pl \ n » ; />print « …  Je suis dans maintenant de load_vars.pl \ n » ;
print du
… « using des utilités…  Je suis dans maintenant de myutilities \ n » ; />print « : Je suis de retour dans mymain.pl \ n » ;

Thanks.
Chris
 class= de

Réponse : problème avec la sous-routine externe

Si vous ne voulez pas employer les « vars d'utilisation » désapprouvés vous pouvez passer les variables aux routines secondaires dans myutilities.pl, et dans load_vars.pl, les renvoyez après qu'ils soient assignés. Dans ce cas-ci, vous devez employer une routine secondaire dans load_vars.pl
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 :

mymain.pl
# ! /usr/bin/perl
employer strict ;

mon ($a, $b, $c) ;
exiger « load_vars.pl » ;
exiger « myutilities.pl » ;
début d'impression « : Je suis dans mymain.pl \ n \ n » ;
($a, $b, $c) = &load_vars ;
&myutilities ($a) ;
extrémité d'impression « : Je suis dans mymain.pl \ mymain du non-et n que les variables chargées sont : \ na=$a \ nb=$b \ nc=$c \ n » ;

load_vars.pl
# ! /usr/bin/perl
employer strict ;

substrater les load_vars {
  imprimer les « variables de chargement…  Je suis dans maintenant de load_vars.pl \ n \ n » ;
  mon $a = « pomme » ;
  mon $b = « banane » ;
  mon $c = « cerise » ;
  retourner ($a, $b, $c) ;
}
1 ;

myutilities.pl
# ! /usr/bin/perl
employer strict ;

substrater les myutilities {
  mon ($a) = @_ ;
  copie « using des utilités…  Je suis dans maintenant de myutilities \ n ».
  « et dans les myutilities a = $a \ n \ n » ;
}
1 ;


Rendement :
[~ root@dm1] # ./mymain.pl
début : Je suis dans mymain.pl

variables de chargement…  Je suis dans load_vars.pl maintenant

using des utilités…  Je suis dans les myutilities maintenant
et dans les myutilities a = pomme

extrémité : Je suis dans mymain.pl
et le mymain de n les variables chargées sont :
a=apple
b=banana
c=cherry
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us