Как объединить эти два условия в одно?
Если строка начинается с "!ACT" и в строке НЕТ "-\d", то $act=0
А если строка начинается с "!ACT" и в строке есть "-\d", то $act=1;

думаю что при отсутствии заведомо оговоренных допущений - никак.
если же файл изначально "правильный" то можно применить следующий код



если же в файле есть "мусор" вида  !PPP sjhfsjfhksljlk jl -3434 (т.е строки начинаются не только с !ACT) то нулевое значение не будет отражать реальное положение вещей - нужно предварительно готовить правильный файл.
или оставить все как есть.
Кстати, вот это условие if (/^!ACT/){$act=1; next} не говорит нам что в строке есть \d

dva300, дело в том, что дальше есть проверка 

if (defined $act)

т.е. $act может быть undefined, ==0 и ==1

Если попалась строка ^!ACT, то $act уже или 0 или 1. 
Если далее в строке есть -\d, то $act = 1, иначе $act=0.

Добавлено @ 16:21


очень просто:
if (/^!ACT/ && !/-\d/){$act=0; next}  # сдесь в конце идет next. Значит, есть в строке нет -\d, то после $act=0 эта строка больше не обрабатывается.

сюда мы попадаем, только если первая строка не сработала. Однако, в строке есть !ACT, поэтому $act=1
if (/^!ACT/){$act=1; next}

Добавлено @ 16:23
Т.е. нужно составить регулярное выражение с условием:

если нашли ^!ACT,  то
    1) если нет -\d, то $act=1
    2) иначе $act = 0
иначе не трогаем $act
    

Это сообщение отредактировал(а) Suppir - 27.8.2010, 16:25

попробую вот так:
/^!ACT(?(?!-d)$act=0|$act=1)/;

я думаю что чем проще тем лучше.
не пройдет и пары м. и вы (или кто-то другой) будит читать данные конструкции очень долго + вспоминать логику.

вообщем я категорично против такого рода оптимизации кода 

после долгой возни и тестов я пришел к такому же выводу 

может я не совсем в тему, но всё же.. почему не воспользоваться стандартным if elsif?

потому что вопрос изначально звучал по другому
а воспользоваться безусловно можно.