Hi there,

I am trying to fix a bug in a Perl script.

Can someone explain what the below code does/would do?

PHP Code:

while (my $a readdir(DIR)){

    if(
$a =~ m/(.+?)_(air)?port/ && $a !~ m/featured_(air)?port/ && $a !~ m/london_airport/&& $a !~ m/glasgow/ && $a !~ m/_opt/i){

        
push(@dirs,$a);

    }


Thanks