Don't let us stop you. :-)
#!/usr/bin/perl -w
use strict;
sub timestamp {
# return current timestamp in HHMMSS format
my ($second, $minute, $hour) = (localtime)[0,1,2];
sprintf ("%02d%02d%02d", $hour, $minute, $second);
}
sub datestamp {
# return current date in DDMMCCYY format
my ($day, $month, $year) = (localtime)[3,4,5];
sprintf ("%02d%02d%04d", $day, $month + 1, $year + 1900);
}
my $filename = 'new.file.d{activity_date}.t{activity_time}';
$filename =~ s/{activity_date}/datestamp/e;
$filename =~ s/{activity_time}/timestamp/e;
print $filename;
|