ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [Perl] простое ветвление
12 сообщений из 12, страница 1 из 1
[Perl] простое ветвление
    #38386468
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
Всем привет.
Собственно по теме.
Код: sql
1.
2.
3.
4.
if (($version =~ m/plus/i) && ($Soft_ID_SOFT!=5))  
{ 
$err=5;
}


Вот такое ветвление есть и на него руагется перл.
По сути нужно одновременное выполение условий, Soft_ID_SOFT должен быть не равным 5, а в переменной version должна быть подстрока plus.

Модератор:
forward12 , не стесняйтесь указывать используемый язык программирования в теме и использовать тег SRC для оформления кода внутри сообщения
...
Рейтинг: 0 / 0
04.09.2013, 12:37
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38386643
mhx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mhx
Гость
Не вижу ошибок. Как ругается? Включите strict и warnings
...
Рейтинг: 0 / 0
04.09.2013, 14:05
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38386654
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
forward12Всем привет.
Собственно по теме.
Код: sql
1.
2.
3.
4.
if (($version =~ m/plus/i) && ($Soft_ID_SOFT!=5))  
{ 
$err=5;
}


Вот такое ветвление есть и на него руагется перл.
По сути нужно одновременное выполение условий, Soft_ID_SOFT должен быть не равным 5, а в переменной version должна быть подстрока plus.

Модератор:
forward12 , не стесняйтесь указывать используемый язык программирования в теме и использовать тег SRC для оформления кода внутри сообщения
касательно языка, то тут каюсь, хотел но забыл. Задергали в скайпе.
А касательно тега src? то какой язык нужно было выбирать в перечне? Т.е. я там в дроплисте не видел перл.
...
Рейтинг: 0 / 0
04.09.2013, 14:11
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38386663
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
mhxНе вижу ошибок. Как ругается? Включите strict и warnings
раскажите плиз как их включить? Это внутри кода? или в настройках конфига перл?
...
Рейтинг: 0 / 0
04.09.2013, 14:17
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38386697
mhx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mhx
Гость
Какого еще конфига? О чем вы?
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
#!/usr/bin/perl
use strict;
use warnings;
$\ = "\n";
my ($version, $Soft_ID_SOFT, $err) = ('test_plus_string', 6, 0);
if (($version =~ m/plus/i) && ($Soft_ID_SOFT!=5))
{
    $err = 5;
}
print $err;


Выведет 5, как и задумывалось.
...
Рейтинг: 0 / 0
04.09.2013, 14:40
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38386922
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
mhx,

пасибо, буду тестить ваш код, как вариант у меня появлялась ошибка в другом месте кода.
...
Рейтинг: 0 / 0
04.09.2013, 16:24
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387189
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
Вобщем решаю вопрос со своим хостером.
Хостер утверждает что нужно ставить доп модули, без них ошибки будет видно только в логах сервера.
...
Рейтинг: 0 / 0
04.09.2013, 19:53
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387197
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkle
Участник
forward12А касательно тега src? то какой язык нужно было выбирать в перечне? Т.е. я там в дроплисте не видел перл.Действительно, для Perl подсветку давно надо бы прикрутить... Да можно и без языка оставить, или, можно подобрать тот, который наиболее приемлемую подсветку синтаксиса сделает. Вопрос всего лишь в удобочитаемости.
...
Рейтинг: 0 / 0
04.09.2013, 20:03
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387322
Фотография Warstone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Warstone
Участник
forward12Вобщем решаю вопрос со своим хостером.
Хостер утверждает что нужно ставить доп модули, без них ошибки будет видно только в логах сервера.Угу...
Ну или выводить STDERR в STDOUT.
Или перегружать CORE::die и/или END...
Или оборачивать все в eval: eval { ..code.. }; if($@){ print "ERR: $@"; }

There is ALWAYS more than one way to do it.
...
Рейтинг: 0 / 0
05.09.2013, 01:47
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387644
forward12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
forward12
Участник
в accesslog сервера была такая ошибка
95.54.153.106 - - [04/Sep/2013:19:36:41 +0200] "POST /cgi-bin/new/scriptname.cgi HTTP/1.0" 500 616 "-" "sometext"

К сожалению весь кода скрипта привести не могу, ибо не я его автор и скрипт отвественный за проверку лицензий софта.
Смущают меня 3 вещи
1) POST - скрипт работает с гет запросами, причем тут пост не понятно
2) что значит цифра 616? это явно не номер строки, ибо в журнале видел вообще 6 значные цифры, а исхдник вообще 800 строк кода.
3) sometext -его вообще в коде скрипта нет.
...
Рейтинг: 0 / 0
05.09.2013, 11:57
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387891
mhx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mhx
Гость
2) что значит цифра 616? это явно не номер строки, ибо в журнале видел вообще 6 значные цифры, а исхдник вообще 800 строк кода.
Полагаю, это
Size of response in bytes, excluding HTTP headers. In CLF format, i.e. a '-' rather than a 0 when no bytes are sent.
Детальнее о формате логе см. параметр LogFormat в конфиге апача. Расшифровку см. тут — http://httpd.apache.org/docs/2.2/mod/mod_log_config.html
...
Рейтинг: 0 / 0
05.09.2013, 13:54
| Ответить | Цитировать | Написать  
[Perl] простое ветвление
    #38387904
mhx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mhx
Гость
access_log в поиске ошибок, кстати, мало поможет, глядите error_log
...
Рейтинг: 0 / 0
05.09.2013, 13:59
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [Perl] простое ветвление
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]