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