21 lines
638 B
Awk
21 lines
638 B
Awk
# readable.awk --- library file to skip over unreadable files
|
|
#
|
|
# This file and how to use it are described in the manual.
|
|
# Therefore, we respectfully advise you to Read The Fine Manual
|
|
# for more information.
|
|
#
|
|
# Arnold Robbins, arnold@skeeve.com, Public Domain
|
|
# October 2000
|
|
# December 2010
|
|
|
|
BEGIN {
|
|
for (i = 1; i < ARGC; i++) {
|
|
if (ARGV[i] ~ /^[a-zA-Z_][a-zA-Z0-9_]*=.*/ \
|
|
|| ARGV[i] == "-" || ARGV[i] == "/dev/stdin")
|
|
continue # assignment or standard input
|
|
else if ((getline junk < ARGV[i]) < 0) # unreadable
|
|
delete ARGV[i]
|
|
else
|
|
close(ARGV[i])
|
|
}
|
|
}
|