PERL scripts die regels in een bestand telt.

[libris]

Hier een perl script die regels telt van een bestand.. kan altijd van pas komen.

#! /usr/local/bin/perl
# Dit script telt de regels van een bestand.. made by libris..
if ($#ARGV != 1) {
$bestand = $ARGV[0];
}

$inhoud = `type $bestand`;

@array = split(/\n/, $inhoud);

$count = scalar(@array);
print "Er zitten $count regels in het bestand!";

Hij is simpel maar kan wel handig zijn.

[sandor]

Hoi libris,

het script zal wel werken maar alleen onder Windows door het commando type, is het niet makkelijker om het commando open hiervoor te gebruiken om het bestand in een variabele te zetten hierdoor zal het onder Windows en Linux werken.

De regel: $inhoud = `type $bestand`;
zal dan worden: $inhoud = open(FILE, "$bestand");

Als het goed is moet dit werken en dit is beter omdat dit onder beide OS zal werken.

Groeten,
Sander

[libris]

ja is zeker beter. maar snel in elkaar geflanst voor Windows :lol: