13 lines
245 B
Awk
Executable File
13 lines
245 B
Awk
Executable File
#!/usr/bin/awk -f
|
|
|
|
BEGIN {
|
|
print("\n")
|
|
for (v in ENVIRON) {
|
|
if (v !~ /^(PWD|HOME|PATH|SHELL|HOSTNAME|UID|USER|GID|GROUP)$/) {
|
|
gsub(/[^0-9A-Za-z_]/, "_", v);
|
|
gsub(/'/, "'\\''", ENVIRON[v])
|
|
print("export "v"='"ENVIRON[v]"'")
|
|
}
|
|
}
|
|
}
|