Создание настраиваемого файла статистики из файлов текущего каталога
У меня есть файлы, подобные этим:
$ cat A9E27.txt
person,42%
person,60%
$ cat ffn2eG6.txt
train,85%
$ cat sBHFgkv.txt
person,85%
person,73%
chair,44%
person,57%
$ cat A8eVAmK.txt
и т. д. и т. д. Некоторые из моих текстовых файлов даже пусты. как я могу создать файл, который похож на это
1,A9E27.txt,person,42%,person,60%
2,ffn2eG6.txt,train,85%
3,sBHFgkv.txt,person,85%,person,73%,chair,44%,person,57%
4,A8eVAmK.txt
5, etc etc
где 1 показывает номер файла, когда я сортирую имена файлов по алфавиту, что-то вроде ls -1 | sort и A9E27.txt - это имя файла, и перед ним каждая строка содержимого файла, разделенная запятой.
ОБНОВЛЕНИЕ: SchrodingersScat ответ от Ubuntu IRC почти правильный на стандартный вывод:
$ for i in * ; do echo -n "$i"; cat "$i" | sed ':a;$!{N;s/\n/, /;ba;}' ; done
5Co16.txtA9E27.txtperson,42%, person,60%
ffn2eG6.txttrain,85%
Kkc4e.txtsBHFgkv.txtperson,85%, person,73%, chair,44%, person,57%
дает правильный ответ, но как я могу сохранить этот результат, показанный на стандартный вывод в файл правильно?
2 ответа
kerframil от bash IRC:
$ i=1; for f in *; do [[ -f $f ]] || continue; data=$(tr '\n' ',' < "$f"); printf '%s,%s,%s\n' "$((i++))" "$f" "${data%,}"; done > ../../in-your-file-correctly.txt
заметки:
/join #bash
Как насчет использования perl в режиме прихлебывания?
$ perl -F'\n' -0777ne 'print join(",", ++$n, $ARGV, @F), "\n"' *.txt
1,A8eVAmK.txt
2,A9E27.txt,person,42%,person,60%
3,ffn2eG6.txt,train,85%
4,sBHFgkv.txt,person,85%,person,73%,chair,44%,person,57%
Обратите внимание, что оболочка *.txt glob приводит к тому, что файлы обрабатываются в порядке сортировки по умолчанию для вашей локали - это может отличаться от того, что вы считаете "буквенным" (хотя оно должно совпадать с ls -1, Я думаю).
Чтобы сохранить результат в файл, перенаправьте его:
perl -F'\n' -0777ne 'print join(",", ++$n, $ARGV, @F), "\n"' *.txt > somefile