El Env:: Golpe es una extensión Perl para tener acceso a variables de ambiente de golpe de _all_.

SINOPSIS

use Env:: Golpe;

Interface estándar:

mi @var = get_env_var ("SORCERER_MIRRORS",
Fuente => "/etc/sorcery/config",);
imprima "SORCERER_MIRRORS vía get_env_var:n",
juntura ("n", @var), "ncount =", escalar @var, "n";

@var = Env:: Golpe:: SORCERER_MIRRORS
(Fuente => "/etc/sorcery/config",);
imprima "SORCERER_MIRRORS vía name:n",
juntura ("n", @var), "ncount =", escalar @var, "n";

mi @keys = get_env_keys (Fuente => "/etc/sorcery/config",
SourceOnly => 1,);
imprima "primero 10 keys:n", trace un mapa {"del $ _n"} @keys [0.. 9];
Opóngase la interface orientada:
mi $be = Env:: Golpe-> nuevo (Fuente => "/etc/sorcery/config",
Teclas => 1,);
mis @var = $be-> se ponen ("SORCERER_MIRRORS");
imprima "SORCERER_MIRRORS vía get:n",
juntura ("n", @var), "ncount =", escalar @var, "n";

@var = $be-> SORCERER_MIRRORS;
imprima "SORCERER_MIRRORS vía name:n",
juntura ("n", @var), "ncount =", escalar @var, "n";

$be = Env:: Golpe-> nuevo (Teclas => 1,);
@var = $be-> HOSTTYPE;
imprima "HOSTTYPE vía name:n",
juntura ("n", @var), "ncount =", escalar @var, "n";

si (el $be-> existe (BASH_VERSINFO)) {
imprima "BASH_VERSINFO => n",
juntura ("n", $be-> BASH_VERSINFO), "n";
}

mi %options = $be-> opciones ([], Teclas => 1);
Ate la interface de PICADILLO:
mi %env = ();
el lazo %env, "Env:: Golpe", Fuente => "/etc/sorcery/config", ForceArray => 1;

mi $var = $env {SORCERER_MIRRORS};
imprima "SORCERER_MIRRORS vía hash:n atado",
juntura ("n", $var), "ncount =", escalar $var, "n";

$var = $env {HOSTTYPE};
imprima "HOSTTYPE vía hash:n atado",
juntura ("n", $var), "ncount =", escalar $var, "n";

mientras (mi ($key, $value) = cada %env) {
imprima "el $key => n", juntura ("n", $value), "n";
}