if - else if

Hi,

jeg har et script: test.pl
-----------------------------------------
#!/usr/bin/perl

my $var1 = 1;
my $var2 = 2;
my $var3 = 3;
my $var4 = 4;

if ($var1 == $var2)
{
    print "if ()\n";
}
else if ($var4 > $var3)
{
    print "else-if ()\n";
}
else
{
    print "else\n";
}
--------------------------------

Dette script virker ikke, fordi Perl ikke kender else-if. kann man løse problemet på en anden måde end ...
test2.pl
--------------------------------------------
#!/usr/bin/perl

my $var1 = 1;
my $var2 = 2;
my $var3 = 3;
my $var4 = 4;

if ($var1 == $var2)
{
    print "if ()\n";
}
else
{
    if ($var4 > $var3)
    {
        print "else-if ()\n";
    }
    else
    {
        print "else\n";
    }
}
--------------------------

jeg synes det er lidt dumt, hvis man nu f.eks. har mange "else-if" - og så laver det som i test2.pl.


med venlig hilsen
KernelX