如何在每行之前打印文件内容和文件名？

Question

我有几个文件，比如说，a，b，c，我想要类似的东西

 > cat a b c

，但在 a 的开头行中带有“a”。 “b”位于 b 行的开头，“c”位于 c 行的开头。 我可以使用 python 来执行此操作：

#!/bin/env python

files = 'a b c'

all_lines = []
for f in files.split():
  lines = open(f, 'r').readlines()
  for line in lines:
    all_lines.append(f + ',' + line.strip())

fout = open('out.csv', 'w')
fout.write('\n'.join(all_lines))
fout.close()

但我更喜欢在命令行中执行此操作，将一些简单的命令与管道 | 结合起来。操作员。

有没有一种简单的方法可以实现这一点？

谢谢。

Answer 1

perl -pe 'print "$ARGV,"' a b c

会做的。

Answer 2

grep(1) 和 sed(1) 可以为您执行此操作：grep -H ''; | sed 's/:/,/':

$ cat a ; cat b ; cat c
hello


world
from space
$ grep -H '' * | sed 's/:/,/'
a,hello
b,
b,
b,world
c,from space

Answer 3

您还可以使用 awk(1) 程序:)

$ awk 'BEGIN { OFS=","; } {print FILENAME , $0;}' *
a,hello
b,
b,
b,world
c,from space
d,,flubber