walter.l...@schwindt.eu <> wrote: > Hello, > > I have to analize a text document and want to get all lines like: > >> F<a string>F<another string>F<another string>F< >> # > (where F is a floating point number between the two characters >< ) > > but only, if all four floating numbers are identical! > > > Example for a text: > > text>text<text >> 5.3<abc>5.3<d>5.3<ef>5.3< >> 4.2<abc>3.0<d>4.2<ef>4.2< > > Here, only the second line is needed. > > > > Some ideas?
Well, the following operates successfully on what you have specified: ------------------------------------------------- use strict; use warnings; my $re = qr{(>[\d.]+<) # match first occurrance ([^<>]+\1)+ # match subsequent occurrances }x; while (<DATA>) { chomp; if (/^$re$/) { print "Match: '$_'\n"; } else { print "No match: '$_'\n"; } } __DATA__ text>text<text >5.3<abc>5.3<d>5.3<ef>5.3< >4.2<abc>3.0<d>4.2<ef>4.2< ------------------------------------------------- HTH -- Brian Raven Please consider the environment before printing this email. This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy. Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden. _______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs