Question

I have created a regexp in Perl that is about 95 characters in length, I wish to shorten it to 78 characters but can’t find a suitable method. Any advice welcome, the regexp is similar to the code below, ideally there is something similar to \ in C.

my ($foo, $bar, $etc) = $input_line =~ 
/^\d+: ....  (\X+)\(\X(\d+.\d+|\d+)\/\X(\d+.\d+|\d+) (\X+)\)$/

Answer 1

Perl interpolates regex, so you could do something like this

my $input_line = '123: ....  X(X1.1/X5 XXX)';

 my $dOrI = '(\d+.\d+|\d+)';
 my ($foo, $bar, $etc) = $input_line =~ 
 /^\d+: ....  (\X+)\(\X$dOrI\/\X$dOrI (\X+)\)$/;

print "$foo, $bar, $etc";

---

Output –

X, 1.1, 5