add_version.pl

   1 #!/usr/bin/perl\r
   2 use strict;\r
   3 use FileHandle;\r
   4 my $version='';\r
   5 if(my $fh=new FileHandle("Changes")){\r
   6   while(<$fh>){\r
   7     my $line=$_;\r
   8     if($line=~ m!^([\d\.]+)!){\r
   9       $version=$1;\r
  10     }\r
  11     last;\r
  12   }\r
  13   $fh->close();\r
  14 }\r
  15 if($version){\r
  16   my @files=('/usr/local/include/lib1stclass.hpp', '/usr/local/include/lib1stclass.h');\r
  17   foreach my $file (@files){\r
  18     if(my $fh=new FileHandle($file)){\r
  19       local $/=undef;\r
  20       my $con=<$fh>;\r
  21       $fh->close();\r
  22       unless($con=~ m!// VERSION=[\d\.]+ //!){\r
  23         if(my $fh=new FileHandle('>> '.$file)){\r
  24           print $fh "\n// VERSION=".$version."//\n";\r
  25           $fh->close();\r
  26         }\r
  27       }\r
  28     }\r
  29   }\r
  30 }\r