Help for this page

Select Code to Download


  1. or download this
    use strict;

my $source = 'VM';
...
VMTKSWPTVA0120080605.TXT
VMTKSWPDCN0120080605.TXT
VMTKSWPSLA0120080605.TXT
  2. or download this
    Matched VMTKSWPDLN0120080605.TXT
Matched VMTKSWPTVN0120080605.TXT
Matched VMTKSWPSLN0120080605.TXT
...
Matched VMTKSWPTVA0120080605.TXT
Matched VMTKSWPDCN0120080605.TXT
Matched VMTKSWPSLA0120080605.TXT
  3. or download this
    my $source = 'VM';
my $COB    = '20080605';
my $regex = qr /^$source.*$COB/;
...
        print "Matched $_";
    } 
}