dearc.awk

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

# extract files from a text archive

$1=="-ARCHIVE-" {
    if (file)
        close(file)
    file = $2
    print file
    next
}
{
    print > file
}