Programming-Idioms

This language bar is your friend. Select your favorite languages!

Idiom #205 Get an environment variable

Read an environment variable with the name "FOO" and assign it to the string variable foo. If it does not exist or if the system does not support environment variables, assign a value of "none".

import "os"
foo, ok := os.LookupEnv("FOO")
if !ok {
	foo = "none"
}
import "os"
foo := os.Getenv("FOO")
if foo == "" {
	foo = "none"
}
#include <stdlib.h>
const char * foo = getenv("FOO");
if (foo == NULL) foo = "none";
#include <cstdlib>
#include <string>
const char* tmp = std::getenv("FOO");
std::string foo = tmp ? std::string(tmp) : "none";
string foo = Environment.GetEnvironmentVariable("FOO");
if (string.IsNullOrEmpty(foo)) foo = "none";
Foo = os:getenv("FOO","none").
  call get_environment_variable ("FOO", length=n, status=st)
  if (st /= 0) then
    foo = "none"
  else
    allocate (character(len=n) :: foo)
    call get_environment_variable ("FOO", value=foo)
  end if 
const foo = process.env["FOO"] || "none";
sysutils
var
  foo: string;
begin
  foo := GetEnvironmentVariable('FOO');
  if (foo = '') then foo := 'none';
end.
use 5.010;
my $foo = $ENV{FOO} // 'none';
from os import getenv
foo = getenv('FOO')
import os
try:
    foo = os.environ['FOO']
except KeyError:
    foo = None
foo = ENV["FOO"]
use std::env;
let foo;
match env::var("FOO") {
    Ok(val) => foo = val,
    Err(_e) => foo = "none".to_string(),
}
imports System
Dim _foo as String
Try
	foo = Environment.GetEnvironmentVariable("FOO")
Catch ex as Exception
	foo = "none"
End Try
Do you know the best way to do this in your language ?
New implementation...

Idiom created by

tkoenig 
foo, ok := os.LookupEnv("FOO")
if !ok {
	foo = "none"
}
foo := os.Getenv("FOO")
if foo == "" {
	foo = "none"
}
const char * foo = getenv("FOO");
if (foo == NULL) foo = "none";
const char* tmp = std::getenv("FOO");
std::string foo = tmp ? std::string(tmp) : "none";
string foo = Environment.GetEnvironmentVariable("FOO");
if (string.IsNullOrEmpty(foo)) foo = "none";
Foo = os:getenv("FOO","none").
  call get_environment_variable ("FOO", length=n, status=st)
  if (st /= 0) then
    foo = "none"
  else
    allocate (character(len=n) :: foo)
    call get_environment_variable ("FOO", value=foo)
  end if 
const foo = process.env["FOO"] || "none";
var
  foo: string;
begin
  foo := GetEnvironmentVariable('FOO');
  if (foo = '') then foo := 'none';
end.
my $foo = $ENV{FOO} // 'none';
foo = getenv('FOO')
try:
    foo = os.environ['FOO']
except KeyError:
    foo = None
foo = ENV["FOO"]
let foo;
match env::var("FOO") {
    Ok(val) => foo = val,
    Err(_e) => foo = "none".to_string(),
}
Dim _foo as String
Try
	foo = Environment.GetEnvironmentVariable("FOO")
Catch ex as Exception
	foo = "none"
End Try