root/branches/newmole/scripts/morning_dateit.pl

#!/usr/bin/perl/

# bring in the perl module that includes copy
use File::Copy;
$input = "date.h";
$working = "working.txt";

copy $input , $working ;


# get current time and date
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                            gmtime(time);


# previous file is named .bak
$old = "YEARRR";
# system "grep $old $working";
# $working =~ s/$old/$year/gi;

# change name of file within the main input script
system( "sed -es/\"YEARRR\"/$year/ < $input > year.txt ") ;
system( "sed -es/\"MONTHHH\"/$mon/ < year.txt > month.txt ") ;
system( "sed -es/\"DAYYY\"/$mday/ < month.txt > day.txt ") ;


copy "day.txt" , "../source_hot/date.h";

unlink 'year.txt' , 'month.txt' , 'day.txt' , 'working.txt' ;