Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - max2003

Страницы: [1]
1
Perl / Сравнение переменных!!!!
« : 23 Июля 2003, 09:53:34 »
Уважаемые!!!

Есть такой код:

$q = \'3\';
$qw = \'22\';
if ($q <= $qw) { print "OK"; }
if ($q > $qw) { print "NONE"; }

Так вот с числами данный код прекрасно справляется,
а как сравнивать если переменная $q = "A6654DFS0" а $qw = "S6654DFS0".........

Помогите!!!!
Заранее благодарем!!!!

2
Perl / Пересылка данных
« : 01 Июля 2003, 19:24:03 »
Уважаемые!!!

Вопрос для Вас наверное не очень сложный....

когда передаешь данные из формы

aaa.cgi?ddd=$aaa

половина данных не передается если переменная $aaa содержит пробел, например:

$aaa="сегодня новый год";

может есть другой способ для передачи таких данных..

3
Perl / Операции с файлом
« : 26 Июня 2003, 21:18:52 »
Господа!!!

Есть файл с таким текстом:

30;76;89;58;99
88;62;79;18;95
14;63;69;62;39
64;61;93;51;96

считать файл разделенный ( ; ) допустим реально, но вопрос в другом, как мне сложить допустим все вторые столбцы в строках между собой????

Заранее Благодарен.

4
Perl / Help Me!!!!
« : 26 Мая 2003, 15:01:28 »
Господа!!!
Помогите со скриптом!!
Ошибка заключается в том, что данные подставляются другие.

листинг скрипта:

$count=$in{\'id\'};

#----------
if ($count == \'id101\'){$ds101 == $in{\'Car\'};
if ($ds101 == \'0\'){$usr101 == 2.0} if ($ds101 == \'1\'){$usr101 == 1.7} if ($ds101 == \'2\'){$usr101 == 1.8}
if ($ds101 == \'3\'){$usr101 == 1.8} if ($ds101 == \'4\'){$usr101 == 1.8} if ($ds101 == \'5\'){$usr101 == 1.8}
if ($ds101 == \'6\'){$usr101 == 1.8} if ($ds101 == \'7\'){$usr101 == 1.8} if ($ds101 == \'8\'){$usr101 == 1.8}
if ($ds101 == \'9\'){$usr101 == 1.8} $ass = @w[2]* $usr101; $rrr =sprintf "%.1f", $ass;}

#----------
if ($count == \'id102\'){$ds102 == $in{\'Car\'};
if ($ds102 == \'0\'){$usr102 == 3.0} if ($ds102 == \'1\'){$usr102 == 1.6} if ($ds102 == \'2\'){$usr102 == 1.7}
if ($ds102 == \'3\'){$usr102 == 1.5} if ($ds102 == \'4\'){$usr102 == 1.5} if ($ds102 == \'5\'){$usr102 == 1.5}
if ($ds102 == \'6\'){$usr102 == 1.5} if ($ds102 == \'7\'){$usr102 == 1.5} if ($ds102 == \'8\'){$usr102 == 1.5}
if ($ds102 == \'9\'){$usr102 == 1.5} $ass = @w[2]* $usr; $rrr =sprintf "%.1f", $ass;}

#----------
if ($count == \'id103\'){$ds103 == $in{\'Car\'};
if ($ds103 == \'0\'){$usr103 == 4.0} if ($ds103 == \'1\'){$usr103 = 1.9} if ($ds103 == \'2\'){$usr103 == 1.7}
if ($ds103 == \'3\'){$usr103 == 1.5} if ($ds103 == \'4\'){$usr103 = 1.5} if ($ds103 == \'5\'){$usr103 == 1.5}
if ($ds103 == \'6\'){$usr103 == 1.5} if ($ds103 == \'7\'){$usr103 = 1.5} if ($ds103 == \'8\'){$usr103 == 1.5}
if ($ds103 == \'9\'){$usr103 == 1.5} $ass = @w[2]* $usr103; $rrr =sprintf "%.1f", $ass;}

Страницы: [1]