✔ anzahl der zeilen und anzahl der wörter pro zeile

[psykochris]

Hi @ all,
muss aus einer Datei die anzahl der zeilen sowie die anzahl der Wörter pro zeile ermitteln.
wie geht das?

thx

 

[imweasel]

Hi,

das kannst du z.B. mit folgendem Script machen

#! perl

use warnings;
use strict;

my ( @datei, $zeile, $zeilen_counter, @foo, $woerter );

open(FILE, "< textfile.txt") or die("Fehler: $!\n");
@datei = <FILE>;
close(FILE);

$zeilen_counter = 0;

foreach (@datei) {
	$zeile = $_;
	@foo = split(" ", $zeile);
	$zeilen_counter ++;
	$woerter += ( $#foo + 1 );
	print "Zeile $zeilen_counter hat: $woerter Woerter\n";
	$woerter = 0;
}

print "\nDie Datei hat $zeilen_counter Zeilen";