s-выражение и символ \'(\'

[Evgeny]

Привет всем!
Есть переменная $str, значение которой вводит пользователь.
Затем я организовываю просмотр строк файла:

Код: [Выделить]


while()
{  if (/^$str;/) # если строка начинается с $str, а потом \';\'
    { ...
    }
}


И вот если $str содержит \'(\' (а также \'[\', \'{\' и другие), то скрипрт выдаёт ошибку. Как добиться того, чтобы Перл интерполировал значение переменной просто как набор символов, не принимая во внимание то, что это за символы.
Спасибо.

[glebushka]

Ну не знаю, я бы своими кривыми руками сделал тупо и просто - проверял на спец символы, и если да, ставил перед каждым из них /, для отмены их действия. Вот.

[NeoNox]

проверял на спец символы, и если да, ставил перед каждым из них /

ну это, допустим, просто...
$str=~ s/(\\(|\\[|\\{)/\\/$1/g;
только что он дальше с "/(" в тексте будет делать?

to Evgeny а они тебе (в смысле эти спец символы) оч. нужны? Может их проще выкинуть?

while( )
{  if (/^\\Q$str\\E;/) # если строка начинается с $str, а потом \';\'
    { ...
    }
}