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