Basically my goal is for any directory path that matches "o-le-v7","a-le-v7","o-le-v7-g" and "a-le-v7-g" in the end,and then check if the contents of these matching directories contains one of *.so,*.o,*.a ,if none of them are present,print the directory path.How do i change the below script to do that?

    

#!/usr/bin/perl -w  
use strict;   
use warnings;  
use File::Spec; 
 
use strict; 
use warnings; 
 
while (<DATA>) { 
    chomp; 
    my ($dir, $ext) = split ' '; 
     
    my $path = File::Spec->catfile($dir, "*.$ext") . "\n"; 
     
    if (! glob($path)) { 
        print "No '$ext' in $dir\n"; 
    } 
}
[download]