12 lines
164 B
Text
12 lines
164 B
Text
|
#!/usr/bin/env -S awk -f
|
||
|
|
{
|
||
|
|
split(substr($0, 2), p, "/");
|
||
|
|
for (k in p) {
|
||
|
|
if (k == length(p)) {
|
||
|
|
printf "/%s", p[k]
|
||
|
|
} else {
|
||
|
|
printf "/%.3s", p[k]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|