39 lines
688 B
Awk
39 lines
688 B
Awk
# tee.awk --- tee in awk
|
|
# Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
|
|
# May 1993
|
|
# Revised December 1995
|
|
|
|
BEGIN \
|
|
{
|
|
for (i = 1; i < ARGC; i++)
|
|
copy[i] = ARGV[i]
|
|
|
|
if (ARGV[1] == "-a") {
|
|
append = 1
|
|
delete ARGV[1]
|
|
delete copy[1]
|
|
ARGC--
|
|
}
|
|
if (ARGC < 2) {
|
|
print "usage: tee [-a] file ..." > "/dev/stderr"
|
|
exit 1
|
|
}
|
|
ARGV[1] = "-"
|
|
ARGC = 2
|
|
}
|
|
{
|
|
# moving the if outside the loop makes it run faster
|
|
if (append)
|
|
for (i in copy)
|
|
print >> copy[i]
|
|
else
|
|
for (i in copy)
|
|
print > copy[i]
|
|
print
|
|
}
|
|
END \
|
|
{
|
|
for (i in copy)
|
|
close(copy[i])
|
|
}
|