Книга: UNIX — универсальная среда программирования

3.8.16 double

3.8.16 double
awk '
FILENAME != prevfile { # new file
 NR = 1                # reset line number
 prevfile = FILENAME
}
NF > 0 {
 if ($1 == lastword)
  printf "double %s, file %s, line %dn" ,$1,FILENAME,NR
 for (i = 2; i <= NF; i++)
  if ($i == $(i-1))
   printf "double %s, file %s, line %dn" ,$i, FILENAME ,NR
 if (NF > 0)
  lastword = $NF
}' $*


Генерация: 0.096. Запросов К БД/Cache: 0 / 2
поделиться
Вверх Вниз