Env :: bash.

env :: bash ist eine perl-Erweiterung für den Zugriff auf _all_ bash-umgebungsvariablen.
Jetzt downloaden

Env :: bash. Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Beau E. Cox
  • Website des Verlags:
  • http://search.cpan.org/~beau/Env-Bash-0.04/lib/Env/Bash.pm

Env :: bash. Stichworte


Env :: bash. Beschreibung

Env :: bash ist eine perl-Erweiterung für den Zugriff auf _all_ bash-umgebungsvariablen. Env :: bash ist eine Perl-Erweiterung für den Zugriff auf _all_ bash-umgebungsvariablen Drucken "Sorcerer_mirrors via get_env_var: n", Join ("n", @var), "ncount =", scalar @var, "n"; @var = env :: bash :: sorcerer_mirrors (Quelle => "/ etc / sorcery / config",); Drucken "Sorcerer_mirrors via Name: n", Join ("n", @var), "ncount =", scalar @var, "n"; my @keys = get_env_keys (Quelle => "/ etc / sorcery / config", sourceonly => 1,); Drucken "Erste 10 Tasten: n", Map {"$ _n"} @keys ; Objektorientierte Schnittstelle: My $ Be = Env :: Bash-> NEU (Quelle => "/ etc / sorcery / config ", Keys => 1,); mein @var = $ BE-> GET ("Sorcerer_mirrors"); drucken "achtcerer_mirrors via erfahren: n", beitreten ("n", @var), "ncount =", scalar @var, "n"; @Var = $ BE-> SORCRICER_MIRRORS; Drucken "Sorcerer_mirrors via Name: n", Join ("n", @var), "ncount =", scalar @var, "n"; $ SE = ENV :: BASH-> NEU (Keys => 1,); @var = $ BE-> Hosttype; drucken "hosttype via name: n", boot ("n", @var), "ncount =", scalar @var, "n"; Wenn ($ SE-> existiert ('Bash_Versinfo')) {drucken "bash_versinfo => n", teilnehmen ("n", $ BE-> Bash_Versinfo), "n"; } My% Optionen = $ BE-> Optionen ([], Keys => 1); Tie Hash-Schnittstelle: MY% ENV = (); Tie% ENV, "ENV :: Bash", Quelle => "/ etc / sorcery / config", forceRay => 1; mein $ var = $ env {sorcerer_mirrors}; Drucken "SORCREER_MIRRORS VIA BEODE HASH: N", Join ("n", @ $ var), "ncount =", scalar @ $ var, "n"; $ var = $ env {hosttype}; Drucken "Hosttype via Tied Hash: n", Join ("n", @ $ var), "ncount =", scalar @ $ var, "n"; Während (meine ($ -Atteile, $ wert) = jeweils% env) {drucken "$ key => n", teilnehmen ("n", @ $ value), "n"; } Anforderungen: · Perl.


Env :: bash. Zugehörige Software