On Tue, 22 Jun 2010 15:14:45 -0700 (PDT), ChrisC <> wrote:
>I will get a user defined patten "XXXXX##', "##XXXXX##", "##XX##XX##",
>"XXX" etc. How to break down this string pattern using Regex and
>apply it to data;
>
>Pattern "XXXXXXXX##" to break out string "00000078.7\r\n" to get
>"00000078.7";
>
>Pattern ""##XX##XX##" to break out string "LB78KL.7l\n" to get "78.7";
>
>etc......
>
>Or what is the best way to do this?
>
>Thanks,
>
>Jerry
I would think long and hard before doing this.
use strict;
use warnings;
my $data = "LB78KL.7l\n";
my $pat = "##XX##XX##";
$pat =~ s/(X+)/'(' . '.'x length($1) . ')'/eg;
$pat =~ tr/#/./;
print join '', $data =~ /$pat/s;
-sln
|