- or download this
if (all(5, 10, 15) > any (3, 8, 12, 20))
{ print "Success!\n" }
- or download this
if (all(@input) =~ /^\d+$/) { print "Got all whole numbers!\n" }
- or download this
if (all(qr/^\d+$/, @input)) { ... }
- or download this
use Junction qw(any all);
if (any(@list) > 0) { print "we have at least one postive number!\n";
+}
if (all(@list) > 0) { print "even better - they're all positive number
+s!\n"; }