On Wed, 13 Aug 2003, David Byrne wrote:
> my $count = 0;
> foreach my $value (@expression) {
> if (!$value) {
> $count += 1;
> }
> }
my $count = grep {length == 0} @expression;
maybe.
Mike
--
[EMAIL PROTECTED] | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | GPG PGP Key 1024D/059913DA
[EMAIL PROTECTED] | Fingerprint 0570 71CD 6790 7C28 3D60
http://www.exegenix.com/ | 75D2 9EC4 C1C0 0599 13DA
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
