enarc.awk

来自「awk scripts awk scripts awk scripts awk 」· AWK 代码 · 共 15 行

# generate text archive

BEGIN {
    arcfile = ARGV[1]
    delete ARGV[1]
}
FILENAME != filename {
    print ("-ARCHIVE-", FILENAME) >arcfile
    print filename = FILENAME
}
{
    print >arcfile
}