Fråga : problem med yttre subroutine

Förmiddag som I har, besvärar using ett yttre ”myutilities” arkiv eller subroutine (inte sure som är enklast.  I extrakt I-förmiddagen using perl i ubuntu och jag har ”en mymain.pl” att skriva, och jag önskar ”bearbetar i grunden” another skrivar ”load_vars.pl” som laddar en grupp av variabler, då mer sistnämnd i ”mymain.pl,” som jag önskar att använda en yttre subroutine i ”myutilities.lib” eller ”vilkendera myutilities.pl” (är lättast).  Att inte söka efter för förmiddag som I är långsiktigt, kodifierar återanvänder eller något något liknande det.  Förmiddag som I ser precis för att få detta, projekterar den färdiga förmiddagen för asap.
I är ny till perl, men I-förmiddagen som utnyttjar egentligen alla regexkapaciteter.  Behaga ger mig någon vägledning, har jag försökt ”bruk”, ”kräv” Etc., och ingenting fungerar.  Förmiddag I detta är sure ganska lätt.  Ett mycket mycket kort exempel using är appreciated.

print ”: Förmiddag I i mymain.pl \ n”; />print ”…,  Förmiddag I i nu för load_vars.pl \ n”;
print för
… ”using hjälpmedel…,  Förmiddag I i nu för myutilities \ n”;
print för
… ”avslutar: Baksida för förmiddag I i mymain.pl \ n”;

Thanks.
Chris
 " klar "

Svar : problem med yttre subroutine

Om du inte önskar att använda de skarpt ogilla ”bruksvarsna”, du kan passera variablerna till underrutinerna i myutilities.pl och i load_vars.pl, går dem tillbaka, efter de har tilldelats. I detta fall du måste använda en sub som är rutinmässig i 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
nr.! /usr/bin/perl
använd strikt;

mitt ($a, $b, $c);
kräv ”load_vars.pl”;
kräv ”myutilities.pl”;
tryck”start: Förmiddag I i mymain.pl \ n \ n”;
($a, $b, $c) = &load_vars;
&myutilities ($a);
trycket ”avslutar: Förmiddag I i mymain.pl \ mymain för nand n de laddade variablerna är: \ na=$a \ nb=$b \ nc=$c \ n”;

load_vars.pl
nr.! /usr/bin/perl
använd strikt;

sub load_vars {
  skriv ut ”ladda variabler…,  Förmiddag I i nu för load_vars.pl \ n \ n”;
  mitt $a = ”äpple”;
  mitt $b = ”banan”;
  mitt $c = ”körsbär”;
  retur ($a, $b, $c);
}
1;

myutilities.pl
nr.! /usr/bin/perl
använd strikt;

sub myutilities {
  mitt ($a) = @_;
  tryck ”using hjälpmedel…,  Förmiddag I i nu för myutilities \ n”.
  ”och i myutilities a = $a \ n \ n”;
}
1;


Tillverkat:
[~ root@dm1] nr. ./mymain.pl
start: Förmiddag I i mymain.pl

ladda variabler…,  Förmiddag I i load_vars.pl nu

using hjälpmedel…,  Förmiddag I i myutilities nu
och i myutilities a = äpple

avsluta: Förmiddag I i mymain.pl
och n-mymain de laddade variablerna är:
a=apple
b=banana
c=cherry
Andra lösningar  
 
programming4us programming4us