[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