-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Wednesday 13 August 2003 11:56 am, David Byrne wrote:
Wouldn't the simple solution work? Just check for the defined-ness of the
element?
Vince
> #!perl -w
> # Count missing values
> while (my $line = <>) {
> chomp ($line);
> my ($probe_id,$expression) = split /\t/, $line, 2;
> my @expression = split /\t/, $expression;
> my $count = 0;
> foreach my $value (@expression) {
># if (!$value) {
unless (defined $vaue){
> $count += 1;
> }
> }
> print "$count\n";
> }
- --
Vince Coccia, Ph.D
[EMAIL PROTECTED]
(978) 568-0849
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)
iD8DBQE/Om2a8dVHKVeyb6wRAsOkAJ40O0YCZqTHTNA5Hj0Gw5RkNG0yVwCgjn/E
V/1W8iXFZIuNSLwhCpJhFmU=
=cRK2
-----END PGP SIGNATURE-----
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
