первый результат из гугла http://docs.oracle.com/javase/7/docs/technotes/guides/language/strings-switch...

Ruby :}

C#

Erlang

SQL

В жабе обещали запилить.

Perl

Java, Scala

Tcl

GML, буду оригинален.

В тех языках, где есть тип 'string' и на нём определена операция сравнения.

switch string {
  case 'qwerty':
    break;
  default:
    break;
}

Неожиданно, но groovy.

http://mrhaki.blogspot.ru/2009/08/groovy-goodness-switch-statement.html

haskell. Через case можно сравнивать, все что можно посчитать одинаковым.

case string of
    "qwerty" -> putStrLn "hello, qwerty" 
    "dvorak" -> putStrLn "hello, dvorak"

А лиспосрач будет, или ещё рано?

http://www.discontinuity.info/~pkhuong/string-case.lisp

Новая Джава.

C

#include <stdio.h>

enum eChoice {
  cQwerty
  ,cStuff
  ,cLOR
  ,cElse
};

struct sChoice {
  char * Variant;
  enum eChoice Code;
} Variants[] = {
   { "qwerty", cQwerty }
  ,{ "абырвалг", cStuff }
  ,{ "главрыба", cStuff }
  ,{ "linux.org.ru", cLOR }
  ,{ "opensource.ru", cLOR }
  ,{ "", cElse }
};

enum eChoice strtocase(char *srcstr) {
        enum eChoice result = cElse;
  int idx = 0;
  while (result == cElse && Variants[idx].Code != cElse) {
    if (!strcmp(srcstr, Variants[idx])) {
      result = Variants[idx].Code;
    }
  }
  return result;
}

int main() {
  char * test = "qwerty";
  switch(strtocase(test)) {
    case cQwerty: printf("Слабый пароль.\n"); break;
    case cStuff: printf("Борменталь.\n"); break;
    case cLOR: printf("Рулез.\n"); break;
    default: printf("Ну и запросы у вас.\n");
  }
}

А в C всех спасает препроцессор. Где-то была версия получше, лень искать.

Ну, или так.

Как-то так:

Да это же почти паскаль:

var
 
SSSS: ansistring;

begin

SSSS:='главрыба';

case SSSS of
'qwerty': Writeln('Слабый пароль.'); 
'абырвалг','главрыба': Writeln('Борменталь.');
'linux.org.ru','opensource.ru': Writeln('Рулез.');
else Writeln('Ну и запросы у вас.');
end;

end.

Любой, где есть строки. То есть не asm, forth, C и не плюсы: в них строк нет.

Хотя насчёт forth не уверен: в нём можно в том числе и это, если определиться, что такое «строка».

Почему ещё никто не вспомнил баш?

Потому что это не язык, а недоразумение :3

Хоть бы кто ссылку кинул, в чем отличие case от if :) И почему если if можно сравнивать, а case нет. Ну или я не так понял ТС.

Потому что это не язык, а недоразумение :3

Зато там в case можно даже регэкспы пихать. А вашему языку слабо?

C++. Макросы, где возможно шаблоны

ты так собираешься проверять «слабость пароля»?

По мне так, самое выдающееся сравнение по CASE в эрланге и остальных язычках, реализующих как в эрланге :)

Но занятно посмотреть на ассемблерный код участка где CASE.

elif в python.

Хоть более громоздко, чем case, но зато является расширением конструкции if-else, а не независимым инструментом.

А вашему языку слабо?

За них не скажу, нашему — нет :) Case со строками (комментарий)

Нет, нашему норм. Ruby же.

а есть ли языки, где можно сравнивать строки оператором CASEа есть ли языки, где можно сравнивать строки оператором CASE

В сибирскую глубинку интернет привозят на дисках.

но зато является расширением конструкции if-else, а не независимым инструментом

И в чём тут плюс? case на уровне синтаксиса гарантирует, что сравниваемый объект един для всех проверок, тогда как при elif возможна ситуация if (var1 == val1 ) {} elif (var2 == val2), а для реализации case get_and_change_some_value на elif'ах надо вводить временную переменную.

буду не популярен: case ненужен. if elif.

C++

elif ущербен же.

зато:

{
 'qwerty': lambda: 'слабый пароль',
 'абырвалг': lambda: 'Борменталь',
 'linux.org.ru': lambda: 'рулез',
}. get('linux.org.ru', lambda: 'Ну и запросы у вас')()

это быстрый хак, придумал вот на месте. уверен, можно красивее.

Даже в баше есть.

elif ущербен же.

Ну, есть ещё случай, когда нужно проматчить не просто строку, и даже не регулярку, а выхлоп от sed например. Хотя это редко бывает, да.

FoxPro

То, что хочет ТС ('строка1' OR 'строка2'), я бы сделал анонимными массивами, а не строками:

$ perl -M5.014 -E'for("абыв"){say 1 when [qw/124 567/]; say 2 when ["абыв", "абыр"];}'
2

Впрочем, возможность бесплатно использовать regexp'ы в switch - это отличная добавка.

Хоть бы кто ссылку кинул, в чем отличие case от if :)

Тыц

что? это как — такой специальный случай, который удобно решается только в баше и перле?

Проще.

Go

Пыха может, внезапно :)

Nimrod

http://build.nimrod-lang.org/docs/manual.html#case-statement

+1

ваш вариант много лучше

плюсы и сишка это умеют вообще-то. форт вроде тоже, но не шибко уверен.

Танцы с бубном вокруг _препроцессора_ и ручная пляска с циклом вокруг заранее подготовленного массива — это не «умеют». Потому, что проще (не говоря о поддерживаемости) банально написать if'ы.