Select Code to Download

opendir ( SSPR , "/apps/inst1/metrica/TechnologyPacks/ON-SITE/summarys
+pr/") or die "$!";
while ( defined ( $file_name = readdir(SSPR) ) ) {
...
    @{$sspr_hash{$file_name}} = <FH>;
    map { $_ =~ s/[\n\r]//g } @{$sspr_hash{$file_name}};
}

    # this loop is to analysed the schema from summary spr files
    foreach $file_name ( keys %sspr_hash ) {
...
            }
        }
    }