Shell Programming and Scripting

$filepattern = '.*A0PD7193.*DMECBID.SUPL.*\.txt';

DMEP.A0PD7193.DMECBID.SUPL.2011042981697.txt

$filepattern = ".*A0PD7193.*DMECBID.SUPL.*\.txt";

#!/usr/bin/perl -w

use strict;
use warnings;

my $filepattern = '.*A0PD7193.*DMECBID.SUPL.*\.txt';
my $filename    = 'DMEP.A0PD7193.DMECBID.SUPL.2011042981697.txt';

if ( $filename =~ /$filepattern/ ) {
    print "OK\n";
}
else {
    print "NOK\n";
}

my $filepattern = '.*A0PD7193.*DMECBID.SUPL.*\.txt';

DMEP.A0PD7193.DMECBID.SUPL.2011042981697.txt
DMEP.A0PD7193.DMECBID.SUPL.2011050681697.txt
DMEP.A0PD7193.DMECBID.SUPL.2011051381697.txt

my $filename    = 'DMEP.A0PD7193.DMECBID.SUPL.2011042981697.txt';

/etl/foldername/

#!/usr/bin/perl -w
$file = '/etl/PDAC/CBA/Supplier/';
$filepattern = '.*A0PD7193.*DMECBID.SUPL.*\.txt';
if ($file =~ $filepattern){
print "The file is there and now the Job load begins\n";
}else {
print "The file does not exist.\n";
}
exit;

-bash-3.00$ ./Supplier_filecheck_andload_test1.pl
The file does not exist.

#!/usr/bin/perl
use strict;
use warnings;
opendir(DIR, "/etl/PDAC/CBA/Supplier/") or die "Failed.";
my @files = grep(/.*A0PD7193.*DMECBID.SUPL.*\.txt/, readdir DIR);
foreach my $f (@files) {
    print "$f\n"
}

#!/bin/bash

for f in `find /etl/PDAC/CBA/Supplier -maxdepth 1 -type f`; do
    if [ x`echo "$f" | grep '.*A0PD7193.*DMECBID.SUPL.*\.txt'` != "x" ]; then
        echo "The file is there and now the Job load begins."
    else
        echo "The file does not exist."
    fi
done