Line Count

[Bernhard Sadlowski]

On 09 Feb 2002 14:44, Kai Windmöller <kai.windmoeller at gmx.de> wrote:
> find . -type f -exec wc -l {} \;
> /* Zeilen + Dateinamen */
> 
> find . -type f -exec wc -l {} \; | cut -b-8
> /* nur Zeilen */
> 
> find . -type f -exec wc -l {} \; | cut -b-8 | perl -e "for(<STDIN>) {
> \$s=\$s+\$_;};print \$s"
> /* Summe der Zeilen */
 
> PS: gibt es ein Tool mit dem man den Perlteil ersetzen kann (ausser
> awk)?

Wie wärs mit

	find . -type f -name '*.[Cch]' -exec cat "{}" \;  | wc -l

Oder wenn man es etwas kompizierter macht und alle Textfiles zählen möchte:

	find . -type f -exec file "{}" \; | \
	egrep ': .*text$' | sed -e 's/: .*text$//' | \
	while read textfile; do cat "$textfile"; done | wc -l

Bernhard