[Cascavel-pm] Verificar endereço em arquivo..

[Nelson Ferraz]

Tem um erro aqui:

> ## Se a variavel $site for igual a [.], redireciona pra codigo htm;
> if ($site eq /^[.]$/ ) {
> print redirect (SITEINEXIST);
> }

Você usa "eq" para verificar uma expressão regular, quando deveria  
usar "=~".

Aqui tem um problema de lógica:

> elsif (grep( {/^$site$/}@linhas)) {
> print redirect (SITEEXIST);
> }

Se você quer encontrar linhas que têm "foo", use /foo/
Se você quer encontrar linhas que começam com "foo", use /^foo/
Se você quer encontrar linhas terminam com "foo", use /foo$/

Se você usar /^foo$/, vai encontrar linhas que começam E terminam com  
"foo": ou seja, linhas que são exatamente "foo".

[]s

Nelson