Help for this page

Select Code to Download

Select or download this

if (!grep { $_ != 0 } @array) {
    print "No array element is non-zero, so:\n";
    print "All array elements are zero, or the array is empty\n";
}

Select or download this

unless (grep { $_ != 0 } @array) {
    print "No array element is non-zero, so:\n";
    print "All array elements are zero, or the array is empty\n";
}