Les "if" imbriqués ou autre chose en Perl

Question

J'ai introduit un simple if déclaration.

L'exigence est la suivante.

if (Condition1) {
    if (Condition2) {
        print "All OK";
    }
    else {
        print "Condition1 is true but condition2 not";
    }
    else {print "Condition1 not true";
}

Est-il possible d'écrire ce code en Perl ou existe-t-il un autre moyen plus court ou plus efficace de remplir cette condition ?

Answer 1

#OR condition
if ( ($file =~ /string/) || ($file =~ /string/) ){
}

#AND condition
if ( ($file =~ /string/) && ($file =~ /string/) ){
}