Shell Programming and Scripting

perl -e 'my $file="abc_yyyy_mm_dd_hh:mi:ss.txt";$file=~s/(.*).{8}\.txt$/\1*.txt/g;print $file;'

 
#!/usr/bin/perl
use strict;
use warnings;

my $filename = "abc_yyymmdd_hhmiss.txt";
$filename =~s/(.*).{8}\.txt$/\1*.txt/g;
print("file name is $filename");

file name is abc_yyymmd*.txt

 
$ perl test.pl                                                                                                                                
file name is abc_yyymmdd_*.txt
file name is abc_yyyy_mm_dd_*.txt
file name is abc_yyyy_mm_dd_*.txt
file name is abc_yyyy_mm_dd_*.txt

 
$ cat test.pl
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "abc_yyymmdd_hhmiss.txt";
$filename =~s/(.*_).*(.txt)/$1*$2/;
print("file name is $filename\n");

$filename = "abc_yyyy_mm_dd_hhmiss.txt";  
$filename =~s/(.*_).*(.txt)/$1*$2/;
print("file name is $filename\n");
$filename = "abc_yyyy_mm_dd_hh:mi:ss.txt";
$filename =~s/(.*_).*(.txt)/$1*$2/;
print("file name is $filename\n");
$filename = "abc_yyyy_mm_dd_hh/mi/ss.txt";  
$filename =~s/(.*_).*(.txt)/$1*$2/;
print("file name is $filename\n");

 
$filename =~s/(.*_).*(.txt)/$1*$2/;