#!/perl/bin/perl -w

$zaehler= 0;
while ($in =<>) {
    chomp($in);
    if ($in !~/^\s*$/) {
        $zaehler++;
        print "$in\n";
    }
}
print "\nDie Datei enthaelt $zaehler Saetze !\n";

#!/perl/bin/perl -w

use File::Compare;

printf "blabla1.txt und blabla2.txt sind %s.\n",
compare("blabla1.txt", "blabla2.txt") ? "ungleich" : "gleich";

use File::Compare 'cmp'; 
blabla1=blabla2 dann 0, blabla1>blabla2 dann 1 und blabla1<blabla2 dann -1.
sub munge($) {
my $line = $_[0];
for ($line) {
    s/^\s+//;  
    s/\s+$//;  
}
return uc($line);
}
if (not cmp("blabla1.txt", "blabla2.txt", sub { munge $_[0] eq munge $_[1]} )) {
print "blabla1.txt und blabla2.txt sind in gewisser weise gleich.\n";
}

#!/perl/bin/perl -w

print "Bitte geben sie eine Zahl ein:\n";
$zahl1 = <STDIN>;
print "Bitte geben sie erneut eine Zahl ein:\n";
$zahl2 = <STDIN>;

chomp($zahl1);
chomp($zahl2);
$nenner = (1 / $zahl1) + (1 / $zahl2);           
$FMass = 2 / $nenner;                                 
$Recall=$zahl1 / $zahl2;                    

print "\nRecall = $Recall\n\nF-Mass = $FMass\n  "

#! /perl/bin/perl

use strict;
use warnings;

print "Bitte geben Sie den ersten Dateinamen ein: ";
my $file1 = <STDIN>;
chomp $file1;

print "Bitte geben Sie den zweiten Dateinamen ein: ";
my $file2 = <STDIN>;
chomp $file2;

[...evtl weitere Eingaben...]

[...code von zaehler.pl...]
[...code von vergleich.pl...]
[...code von division.pl...]