zoecutting
MIS
Hi,
I've been left with a Perl script to maintain and I know nothing about the language. Something has gone wrong somewhere and I'm pretty sure I've tracked it down to this Regular Expression:
# get bold & plain parts
next unless $line =~ /^\s*(.*(?:\007f\-b\007))?(.*?)\s*$/s;
my ($bold, $plain) = ($1, $2);
Is there any kind soul out there willing to help me decipher it?
I've been left with a Perl script to maintain and I know nothing about the language. Something has gone wrong somewhere and I'm pretty sure I've tracked it down to this Regular Expression:
# get bold & plain parts
next unless $line =~ /^\s*(.*(?:\007f\-b\007))?(.*?)\s*$/s;
my ($bold, $plain) = ($1, $2);
Is there any kind soul out there willing to help me decipher it?