#!/usr/bin/perl
use strict;
use warnings;

sub vergleiche1 ($$) {
    my ($aa, $bb) = @_;
    print "1: aa = '$aa', ", length($aa), "\1: nbb = '$bb', ", length($bb), "\n";
    print "1: aa ist leer\n" if $aa eq '';
    print "1: bb ist leer\n" if $bb eq '';
    return $aa eq '' or
           $bb eq '' or
           $aa eq $bb;
};

sub vergleiche2 ($$) {
    my ($aa, $bb) = @_;
    print "2: aa = '$aa', ", length($aa), "\n2: bb = '$bb', ", length($bb), "\n";
    print "2: aa ist leer\n" if $aa eq '';
    print "2: bb ist leer\n" if $bb eq '';
    return $aa eq '' ||
           $bb eq '' ||
           $aa eq $bb;
};

sub vergleiche3 ($$) {
    my ($aa, $bb) = @_;
    print "3: aa = '$aa', ", length($aa), "\n3: bb = '$bb', ", length($bb), "\n";
    print "3: aa ist leer\n" if $aa eq '';
    print "3: bb ist leer\n" if $bb eq '';
    return ($aa eq ''  or
            $bb eq ''  or
            $aa eq $bb   );
};


{
    my $eins = 'blubb';
    my $zwei = '';

    print "TEST EINS\n";
    my $t1 = vergleiche1($eins, $zwei);
    print "Ergebnis: [$t1]\n\n";

    print "TEST ZWEI\n";
    my $t2 = vergleiche2($eins, $zwei);
    print "Ergebnis: [$t2]\n\n";

    print "TEST DREI\n";
    my $t3 = vergleiche3($eins, $zwei);
    print "Ergebnis: [$t3]\n\n";

}