env :: bash.

ENV :: BASH´Â _ALL_ BASH ȯ°æ º¯¼ö¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

env :: bash. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Beau E. Cox
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

html_quickform_livetext.

HTML_QUICKFORM_LIVETEXT ÇÁ·ÎÁ§Æ®´Â Å° ÇÁ·¹½º¸¦ °¡·Î ä´Â ÀÔ·Â ÅؽºÆ®·Î ±¸Çö µÈ »ç¿ëÀÚ Á¤ÀÇ html_quickform ¿ä¼ÒÀÔ´Ï´Ù. ...

133

´Ù¿î·Îµå