| env :: bash. ENV :: BASH´Â _ALL_ BASH ȯ°æ º¯¼ö¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
env :: bash. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~beau/Env-Bash-0.04/lib/Env/Bash.pm
env :: bash. ű×
env :: bash. ¼³¸í
env :: Bash´Â _all_ bash ȯ°æ º¯¼ö¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. env :: bash´Â _all_ bash ȯ°æ º¯¼ö¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ½Ä ³ëÇÁ »ç¿ë env :: bash; Ç¥ÁØ ÀÎÅÍÆäÀ̽º : my @var = get_env_var ( "sorcerer_mirrors", source => "/ etc / sorcery / config"); get_env_var : n ", join ("n ", @var),"ncount = ", scalar @var,"n "À» ÅëÇØ"sorcerer_mirrors¸¦ ÀμâÇϽʽÿÀ. @var = env :: bash :: sorcerer_mirrors (source => / etc / sorcery / config ",); À̸§ : N "À» ÅëÇØ"SORCERER_MIRRORS À̸§ : n ", Á¶ÀÎ ("n ", @var),"ncount = ", scalar @var,"n "; my @keys = get_env_keys (source => / etc / sorcery / config ", sourceonly => 1); Àμâ "óÀ½ 10 Å° : n", ¸Ê { "$ _n"} @KEYS ; °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º : MY $ BE = ENV :: BASH-> »õ·Î¿î (¼Ò½º => "/ etc / sorcery / config ", keys => 1,); my @var = $ be-> get ( "sorcerer_mirrors"); GET : N ", JOIN ("n ", @var),"ncount = ", scalar @var,"n "À» ÅëÇØ"sorcerer_mirrors¸¦ ÀμâÇϽʽÿÀ. @var = $ be-> sorcerer_mirrors; À̸§ : N "À» ÅëÇØ"SORCERER_MIRRORS À̸§ : n ", Á¶ÀÎ ("n ", @var),"ncount = ", scalar @var,"n "; $ be = env :: bash-> new (keys => 1,); @var = $ be-> hosttype; À̸§ : n ", join ("n ", @var),"ncount = ", scalar @var"n "À» ÀμâÇϽʽÿÀ. if ($ be-> exists ( 'bash_versinfo')) {print "bash_versinfo => n", °¡ÀÔ ( "n", $ be-> bash_versinfo), "n"; } My % ¿É¼Ç = $ BE-> ¿É¼Ç ([], Å° => 1); TIE Çؽà ÀÎÅÍÆäÀ̽º : my % env = (); ³ØŸÀÌ % env, "env :: bash", source => "/ etc / sorcery / config", forcearray => 1; MY $ VAR = $ ENV {SORCERER_MIRRORS}; ¹ÀÎ Çؽà : n ", join ("n ", @ $ var),"ncount = ", scalar @ $ var"n "À» ÅëÇØ"sorcerer_mirrors¸¦ ÀμâÇϽʽÿÀ. $ var = $ env {hosttype}; ¹ÀÎ Çؽà : n ", join ("n ", @ $ var),"ncount = ", scalar @ $ var"n "À» ÅëÇØ"È£½ºÆ® Å×ÀÌÇÁ¸¦ ÀμâÇϽʽÿÀ. while (my ($ key, $ value) = °¢ % env) {print "$ key => n", join ( "n", @ $ value), "n"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
env :: bash. °ü·Ã ¼ÒÇÁÆ®¿þ¾î