c:\@Work\Perl\monks>perl -wMstrict -le "my $s = 'workset((ab;joiret;garg)) c wasdobao; erhgahufdgah; c workse +t((adsghlia) c aghaoeriarg;oi c aasdfgohaerg c workset(empty) c ah;sorguiaerg c aoi;hgruio;ghaer c p +layA c dIonly'; print qq{'$s'}; ;; my $rev_dIonly = qr{ ylnoId }xms; my $rev_workset = qr{ \(\( teskrow }xms; ;; my $rs = reverse $s; my ($capture) = $rs =~ m{ ($rev_dIonly .*? $rev_workset) }xms; print qq{'$capture'}; $capture = reverse $capture; print qq{'$capture'}; " 'workset((ab;joiret;garg)) c wasdobao; erhgahufdgah; c workset((adsghl +ia) c aghaoeriarg;oi c aasdfgo haerg c workset(empty) c ah;sorguiaerg c aoi;hgruio;ghaer c playA c dI +only' 'ylnoId c Ayalp c reahg;oiurgh;ioa c greaiugros;ha c )ytpme(teskrow c +greahogfdsaa c io;graireoahga c )ailhgsda((teskrow' 'workset((adsghlia) c aghaoeriarg;oi c aasdfgohaerg c workset(empty) c + ah;sorguiaerg c aoi;hgruio;ghaer c playA c dIonly'
See perlre, perlretut, perlrequick.
(And the proper closing tag for a code block opened with <c> is a </c> tag: note the / forward-slash.)
In reply to Re: regex - problem with the loop I believe or maybe the regex itself ?
by AnomalousMonk
in thread regex - problem with the loop I believe or maybe the regex itself ?
by trummelbummel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |