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";
}
}