2020-06-22 12:47:23 +00:00
|
|
|
#!/usr/bin/gawk -f
|
|
|
|
|
|
|
|
BEGIN {
|
|
|
|
f="/dev/stdout"
|
|
|
|
}
|
|
|
|
|
|
|
|
/^# / {
|
|
|
|
match($0, /^#[\ \t]+(.*)$/, a);
|
|
|
|
f = a[1] ".csv";
|
|
|
|
gsub(/\ /, "_", f);
|
|
|
|
next;
|
|
|
|
}
|
|
|
|
|
|
|
|
/^.+$/ {
|
|
|
|
l = $0;
|
2020-06-22 12:50:17 +00:00
|
|
|
gsub(/\t+/, ";", l);
|
2020-06-22 12:47:23 +00:00
|
|
|
printf("%s\n", l) >> f;
|
|
|
|
}
|