c:\@Work\Perl\monks>perl -wMstrict -e
"my @cleared = (
'JOB::HEREISASTRING',
'Something',
'StringA',
'StringB',
'StringC',
'StringD',
'Something Else',
'StringE',
'StringF',
'StringG',
'StringH ',
'JOB::HEREISANOTHERSTRING',
'Something',
'StringI',
'StringJ',
'StringK',
'StringL',
'Something Else',
'StringM',
'StringN',
'StringO',
'StringP',
);
;;
my $rx_job = qr{ \A JOB:: [[:upper:]]+ \z }xms;
;;
my $rx_thing = qr{ Something | Something \s+ Else }xms;
;;
my $prefix = '';
CLEARED:
for my $clear (@cleared) {
if (my ($pre) = $clear =~ m{ \A ($rx_thing) \z }xms) {
$prefix = $pre;
next CLEARED;
}
;;
if ($clear =~ $rx_job) {
print $clear, qq{\n};
next CLEARED;
}
;;
print qq{~~$prefix~~$clear\n};
}
"
JOB::HEREISASTRING
~~Something~~StringA
~~Something~~StringB
~~Something~~StringC
~~Something~~StringD
~~Something Else~~StringE
~~Something Else~~StringF
~~Something Else~~StringG
~~Something Else~~StringH
JOB::HEREISANOTHERSTRING
~~Something~~StringI
~~Something~~StringJ
~~Something~~StringK
~~Something~~StringL
~~Something Else~~StringM
~~Something Else~~StringN
~~Something Else~~StringO
~~Something Else~~StringP
(BTW: This format is something like what I'd have liked to have seen for your SSCCE.)
Give a man a fish: <%-{-{-{-<
|