Reg exp

[DADAJ Marián]

Vdaka.
To ma nenapdalo.Toto je skutocne riesenie.

> S pozdravom
> Ing. Marian Dadaj
> *   pracovne  0421-7- 58101 384   
> *     dadaj na asset.sk
> *SMS       dadaj na topsms.sk
> 


-----Original Message-----
From: Martin MaD Douda [mailto:martin na douda.net]
Sent: Wednesday, February 07, 2001 8:05 PM
To: Multiple recipients of list PERL
Subject: Re: Reg exp



Urcite by to slo tak, ze si ten vyraz postavite do retezce a pustite pres
eval(), jestli to jde jednoduseji nevim.
neco jako:

eval("/(\s+)(\w+)(\s+)(\w+)/$cim");


			Martin
			


On Wed, Feb 07, 2001 at 12:22:09PM +0100, DADAJ Marián wrote:
> potreboval by som za behu programu menit "pravy' regularny vyraz pri
> pouzitei prikazu s.
> vyzera to nasledovne :
> 
> $data="   abc   123";
> $co="(\s+)(\w+){\s+)(\w+)";
> $cim="\2\1\3";
> 
> 1: s/$co/$cim/gi; #Toto mi vsak nefunguje na rozdiel od
> 2: s/$co/\2\1\3/gi; #co reaguje korektne.
> 
> Ako mam napisat reg exp pre $cim, alebo ako smenit pravu stranu s///,
> aby som dosiahol korekny (kroy ocakavam)vysledok?
> 
> vysledok 2 : "abc   123" --toto chcem
> vysledok 1 : "\2\1\3"
> 
> Pouzivam ActivePerl Build 522 Monday, November 1, 1999
> 
> Vdaka za pomoc :)
----------------------------------------------------------------------------
----
                              Martin "MaD" Douda
WEB: http://martin.douda.net/   PHONE:+420603752779   ICQ# 86467013
EMAIL: <martin na douda.net>, <mad na gate.mobil.cz> (160 characters only)
PGP:ID=0x6FE43023 Fingerprint:E495 11DA EF6E 0DD6 965A 54F3 888E CC9E 6FE4
3023
----------------------------------------------------------------------------
----
Neznalost zakonu neomlouva. Murhy.
__________ Informacia od NOD32 1.51 (20001117) __________

Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.nod32.com