Lines Matching refs:sel
1527 my $sel = "";
1528 $sel = "*" if ($selected{$count});
1535 printf STDERR "%1s %2d %-65s", $sel, $count + 1, $email;
1600 my $sel = substr($nr, 0, 1);
1605 if ($sel eq "y") {
1613 } elsif ($sel eq "*" || $sel eq '^') {
1615 $toggle = 1 if ($sel eq '*');
1619 } elsif ($sel eq "0") {
1623 } elsif ($sel eq "t") {
1645 } elsif ($sel eq "a") {
1655 } elsif ($sel eq "s") {
1665 } elsif ($sel eq "o") {
1668 } elsif ($sel eq "g") {
1675 } elsif ($sel eq "b") {
1682 } elsif ($sel eq "c") {
1687 } elsif ($sel eq "x") {
1692 } elsif ($sel eq "%") {
1697 } elsif ($sel eq "d") {
1704 } elsif ($sel eq "t") {
1707 } elsif ($sel eq "f") {
1710 } elsif ($sel eq "r") {
1713 } elsif ($sel eq "m") {
1717 } elsif ($sel eq "k") {
1720 } elsif ($sel eq "p") {
1725 } elsif ($sel eq "h" || $sel eq "?") {