#!/usr/bin/perl

use strict;
use warnings 'all';

my %files;

while (<DATA>) {
    next unless /^\s*\\([^\\]*).*\\(.*\.cxx)\@\@/;
    push @{$files {$1}} => $2;
}

foreach my $dir (sort keys %files) {
    foreach my $file (sort @{$files {$dir}}) {
        printf "%-15s  %s\n" => $dir, $file;
    }
}

__DATA__
qzang.5
    \nbsstools\i95\src\i95val.h@@\main\golden\2
    \nbsstools\i95\src\i95val.cxx@@\main\golden\2
    \nbsstools\rlp\src\rlpval.cxx@@\main\golden\3
    \nbsstools\rlp\src\rlpval.h@@\main\golden\3
source file(s) -- 4
rajeevv.19
    \nbsscallpmsg\acl\src@@\main\golden\4
    \nbsscallpmsg\acl\src\aclpi.h@@\main\golden\1
    \nbsscallpmsg\acl\src\aclpi.cxx@@\main\golden\1
    \nbsssbs\appl\src@@\main\golden\4
    \nbsssbs\appl\src\radiomeasurements.h@@\main\golden\1
[download]

Abigail