File: find-double

package info (click to toggle)
postfix 3.10.6-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 27,968 kB
  • sloc: ansic: 134,721; makefile: 17,984; sh: 6,966; perl: 2,796; python: 1,448; awk: 158
file content (13 lines) | stat: -rwxr-xr-x 215 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/bin/sh

sed 's/[^A-Z0-9a-z_][^A-Z0-9a-z_]*/ /g' "$@" | awk '
	{ for (i = 1; i <= NF; i++) {
		if (length($i) > 1 && $(i) == last) {
			if (i == 1)
			    printf("%s ", last)
			print
		}
		last = $(i)
	   }
	}
'