Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение $perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько таких диапазонов.
С помощью чего можно такое организовать в перле?

• выбор действия в зависимости от значения переменной,alchie, 07:51 , 26-Май-04
  • выбор действия в зависимости от значения переменной,Purple, 08:27 , 26-Май-04
    • выбор действия в зависимости от значения переменной,alchie, 08:46 , 26-Май-04
      • выбор действия в зависимости от значения переменной,Purple, 10:50 , 26-Май-04
        • выбор действия в зависимости от значения переменной,alchie, 10:54 , 26-Май-04
          • выбор действия в зависимости от значения переменной,Purple, 11:57 , 26-Май-04

>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>таких диапазонов.
>С помощью чего можно такое организовать в перле?

if ($perem >= 0 && $perem <= 100) {
  $perem2=110;
} elsif ($perem >= 150 && $perem <= 220) {
  $perem2=250;
} elsif ($perem >= 250 && $perem <= 320) {
  $perem2=350;
}

>>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>>таких диапазонов.
>>С помощью чего можно такое организовать в перле?
>
>if ($perem >= 0 && $perem <= 100) {
>  $perem2=110;
>} elsif ($perem >= 150 && $perem <= 220) {
>  $perem2=250;
>} elsif ($perem >= 250 && $perem <= 320) {
>  $perem2=350;
>}
Спасибо, аналога case в перле нет?

>>>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>>>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>>>таких диапазонов.
>>>С помощью чего можно такое организовать в перле?
>>
>>if ($perem >= 0 && $perem <= 100) {
>>  $perem2=110;
>>} elsif ($perem >= 150 && $perem <= 220) {
>>  $perem2=250;
>>} elsif ($perem >= 250 && $perem <= 320) {
>>  $perem2=350;
>>}
>Спасибо, аналога case в перле нет?

нормального нет
вот кусок из perldoc perlsyn

The BLOCK construct is particularly nice for doing case structures.

           SWITCH: {
               if (/^abc/) { $abc = 1; last SWITCH; }
               if (/^def/) { $def = 1; last SWITCH; }
               if (/^xyz/) { $xyz = 1; last SWITCH; }
               $nothing = 1;
           }

но имхо это более громоздкая конструкция

>>>>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>>>>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>>>>таких диапазонов.
>>>>С помощью чего можно такое организовать в перле?
>>>
>>>if ($perem >= 0 && $perem <= 100) {
>>>  $perem2=110;
>>>} elsif ($perem >= 150 && $perem <= 220) {
>>>  $perem2=250;
>>>} elsif ($perem >= 250 && $perem <= 320) {
>>>  $perem2=350;
>>>}
>>Спасибо, аналога case в перле нет?
>
>нормального нет
>вот кусок из perldoc perlsyn
>
> The BLOCK construct is particularly nice for doing case structures.
>
>           SWITCH:
>{
>            
>   if (/^abc/) { $abc = 1; last SWITCH;
>}
>            
>   if (/^def/) { $def = 1; last SWITCH;
>}
>            
>   if (/^xyz/) { $xyz = 1; last SWITCH;
>}
>            
>   $nothing = 1;
>           }
>
>
>но имхо это более громоздкая конструкция
Кому как.
Спасибо, искал case, нашел switch :)

>>>>>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>>>>>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>>>>>таких диапазонов.
>>>>>С помощью чего можно такое организовать в перле?
>>>>
>>>>if ($perem >= 0 && $perem <= 100) {
>>>>  $perem2=110;
>>>>} elsif ($perem >= 150 && $perem <= 220) {
>>>>  $perem2=250;
>>>>} elsif ($perem >= 250 && $perem <= 320) {
>>>>  $perem2=350;
>>>>}
>>>Спасибо, аналога case в перле нет?
>>
>>нормального нет
>>вот кусок из perldoc perlsyn
>>
>> The BLOCK construct is particularly nice for doing case structures.
>>
>>           SWITCH:
>>{
>>            
>>   if (/^abc/) { $abc = 1; last SWITCH;
>>}
>>            
>>   if (/^def/) { $def = 1; last SWITCH;
>>}
>>            
>>   if (/^xyz/) { $xyz = 1; last SWITCH;
>>}
>>            
>>   $nothing = 1;
>>           }
>>
>>
>>но имхо это более громоздкая конструкция
>Кому как.
>Спасибо, искал case, нашел switch :)

"SWITCH:" - это  всего лишь метка (label) (:

>>>>>>Есть значение $perem,и если оно имеет значение в диапазозе (0..100), то значение
>>>>>>$perem2=110; если $perem=(150..220), то $perem2=250, если ... и т.д. здесь несколько
>>>>>>таких диапазонов.
>>>>>>С помощью чего можно такое организовать в перле?
>>>>>
>>>>>if ($perem >= 0 && $perem <= 100) {
>>>>>  $perem2=110;
>>>>>} elsif ($perem >= 150 && $perem <= 220) {
>>>>>  $perem2=250;
>>>>>} elsif ($perem >= 250 && $perem <= 320) {
>>>>>  $perem2=350;
>>>>>}
>>>>Спасибо, аналога case в перле нет?
>>>
>>>нормального нет
>>>вот кусок из perldoc perlsyn
>>>
>>> The BLOCK construct is particularly nice for doing case structures.
>>>
>>>           SWITCH:
>>>{
>>>            
>>>   if (/^abc/) { $abc = 1; last SWITCH;
>>>}
>>>            
>>>   if (/^def/) { $def = 1; last SWITCH;
>>>}
>>>            
>>>   if (/^xyz/) { $xyz = 1; last SWITCH;
>>>}
>>>            
>>>   $nothing = 1;
>>>           }
>>>
>>>
>>>но имхо это более громоздкая конструкция
>>Кому как.
>>Спасибо, искал case, нашел switch :)
>
>"SWITCH:" - это  всего лишь метка (label) (:
Поспешил-насмешил. Это я про себя.