Power-Programmierung/CD2.mdf/c/compcomp/awk/unbundle.awk

Text File | 1990-02-08 | 165 b | 9 lines

# unbundle -- unpack a bundle into separate files
# AKW p 82

$1 != prev { close(prev); prev = $1 }
{
        print substr($0, index($0, " ") + 1) >$1
}