Shell Programming and Scripting

while ( <MSTR_FL> )
{
chomp;
next if ( -d $_ ); # No dirs
#next if ( /(?:Z$)|(?:gz$)|(?:tmp$)|(?:orig$)|(?:bak$)|(?:bkp$)|(?:old$)|(?:bad$)/ );
next if ( /(?:gz$)|(?:tmp$)|(?:orig$)|(?:bak$)|(?:bkp$)|(?:old$)|(?:bad$)/ );
next if ( m#(?:bid/stg/)|(?:backup)|(?:cvd_conv)|(?:/bak/)|(?:/st3527/)|(?:/bidops/)# );
 
# We have a compressed file. so remove the .Z at the end
s/.Z$//;
 
my $dir;
my $file_name;
my $obj_type_id;
if ( $file_name =~ /\.bteq\.ctl$/io )
{
$obj_type_id = 26;
}

$
$ perl -le '@files = qw(network_usage_dt_code network_usage_dt_code.dat);
          foreach $f (@files) {
            if ($f =~ /^\w+$/) {printf("%-30s %s\n", $f, "File with no extension")}
            else               {printf("%-30s %s\n", $f, "File with an extension")}
          }'
network_usage_dt_code          File with no extension
network_usage_dt_code.dat      File with an extension
$
$

$
$ perl -le '@files = qw(/my/path/network_usage_dt_code /not/my/path/network_usage_dt_code);
            foreach $f (@files) {
              ($dir, $filename) = $f =~ m|^(.*/)(.*?)$|;
              if ($dir eq "/my/path/") {printf("%-40s %s\n", $f, "File is in my path")}
              else                     {printf("%-40s %s\n", $f, "File is not in my path")}
            }'
/my/path/network_usage_dt_code           File is in my path
/not/my/path/network_usage_dt_code       File is not in my path
$
$