diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:41:09 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:41:09 +0300 |
| commit | 8c042f99cc7465c86351d21331a129111b75345d (patch) | |
| tree | 9656e653be0e42e5469cec77635c20356de152c2 /awklib/eg/prog/dupword.awk | |
| parent | 8ceb5f934787eb7be5fb452fb39179df66119954 (diff) | |
| download | egawk-8c042f99cc7465c86351d21331a129111b75345d.tar.gz egawk-8c042f99cc7465c86351d21331a129111b75345d.tar.bz2 egawk-8c042f99cc7465c86351d21331a129111b75345d.zip | |
Move to gawk-3.0.0.
Diffstat (limited to 'awklib/eg/prog/dupword.awk')
| -rw-r--r-- | awklib/eg/prog/dupword.awk | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/awklib/eg/prog/dupword.awk b/awklib/eg/prog/dupword.awk new file mode 100644 index 00000000..8ae0fdc7 --- /dev/null +++ b/awklib/eg/prog/dupword.awk @@ -0,0 +1,16 @@ +# dupword --- find duplicate words in text +# Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain +# December 1991 + +{ + $0 = tolower($0) + gsub(/[^A-Za-z0-9 \t]/, ""); + if ($1 == prev) + printf("%s:%d: duplicate %s\n", + FILENAME, FNR, $1) + for (i = 2; i <= NF; i++) + if ($i == $(i-1)) + printf("%s:%d: duplicate %s\n", + FILENAME, FNR, $i) + prev = $NF +} |