1#!/usr/bin/perl -i 2use POSIX; 3my $v = ` cat ../VERSION `; chomp $v; 4#$v="XXXXX"; 5#print "$v\n"; 6my $s = ctime( time ); 7#print "$s\n"; 8my @s = split ' ', $s; 9my $w = '<subtitle> ' ."$s[2] $s[1] $s[4] (For $v)" . '</subtitle>' . "\n"; 10my $wd = '<date> ' ."$s[2] $s[1] $s[4] (For $v)" . '</date>' . "\n"; 11#print $w; 12while ( <> ){ 13 if( /h4: {/ ){ 14 ++$x; 15 s/{\d+}/{$x}/; 16 print; 17 }elsif( /^<subtitle>/ ){ 18 print $w ; 19 }elsif( /^<date>/ ){ 20 print $wd ; 21 } else { 22 print ; 23 } 24} 25