[Cascavel-pm] dúvida

Igor Sutton igor.sutton em gmail.com
Sexta Janeiro 26 06:46:56 PST 2007


Olá Roan,

2007/1/26, roan Brasil <roanbrasil em gmail.com>:
> Galera,
>
> Uma dúvida rapidinho aqui... como perl é uma linguagem flexível... e bom
> para simplificar expressões... posso fazer para simplificar a expressão
> abaixo
> if($tipo  =~ m{$marca}io || $descricao =~ m{$marca}io);
>
> mudando para isso que será a mesma coisa?
> if($tipo|| $descricao =~ m{$marca}io);
>

Lembro de um truque que pode ajudá-lo:

if ($marca =~ m{$tipo|$descricao}io) { .. }

Veja os testes que escrevi:

<code>
use strict;
use warnings;

use Test::More qw(no_plan);

{
    my $descricao = "teste";
    my $tipo      = "unf";
    my $marca     = "teste";

    like( $marca, qr{$tipo|$descricao} );
}

{
    my $descricao = "ainf";
    my $tipo      = "unf";
    my $marca     = "teste";

    unlike( $marca, qr{$tipo|$descricao} );

}
</code>

HTH!

-- 
Igor Sutton Lopes <igor.sutton em gmail.com>


Mais detalhes sobre a lista de discussão Cascavel-pm