next up previous
Next: Procedura fdate Up: Składnia procedur getenv, getarg Previous: Procedura getarg i funkcja

Procedura getenv

      CHARACTER*(*) KLUCZ, WARTOSC
      CALL GETENV(KLUCZ,WARTOSC)

gdzie KLUCZ jest nazwą a WARTOSC wartoćią danej zmiennej otoczeniowej.

Poniżej podany jest prosty program drukujący nazwę powłoki użytkownika (zmienna otoczniowa SHELL) oraz jego działanie:

      program progenv
      character*16 shell
      call getenv("SHELL",shell)
      print *,"Uzywam powloki ",shell
      stop
      end

./progenv
 Uzywam powloki /bin/tcsh



Adam Liwo 2002-04-17