[Cascavel-pm] Help on REGEX !!!

[Luis Campos de Carvalho]

Solli Moreira Honorio wrote:
> Pessoal,
>  
> Eu tenho a seguinte linha:
> ##?#PCI#VEN_10B7&DEV_9055&SUBSYS_905510B7&REV_24#3&61aaa01&0&70#{ad498944-762f-11d0-8dcb-00c04fc3358c}
>  
> e eu preciso certificar que esta linha tenha:
> PCI
> VEN_10B7&DEV_9055&SUBSYS_905510B7&REV_24
> 3&61aaa01&0&70

   Necessariamente nesta ordem?
   Em qualquer ordem?

> Como fazer isto via expressão regular ?

   Rápido, sujo e porco:

   $line = 
'##?#PCI#VEN_10B7&DEV_9055&SUBSYS_905510B7&REV_24#3&61aaa01&0&70#{ad498944-762f-11d0-8dcb-00c04fc3358c}';
   if( $line =~ 
m/.*PCI.*\QVEN_10B7&DEV_9055&SUBSYS_905510B7&REV_24\E.*\Q3&61aaa01&0&70\E/ 
){
     print "A linha tem\n";
   }else{
     print "a linha não tem\n";
   }

   E sua expressão regular é (tudo na mesma linha!!)

qr/.*PCI.*\QVEN_10B7&DEV_9055&SUBSYS_905510B7&REV_24\E.*\Q3&61aaa01&0&70\E/;

   Espero que isso ajude...
   Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is BSc in Comp Science,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=