firefox 更新すると、アドインがバージョンで蹴られるよね。対策。

use strict;
use warnings;
use Cwd;

use File::Find;
 
my $search_pattern='em:maxVersion';
my $file_pattern  ='install\.rdf$'; # install.rdf
find(sub {
  my $file = $File::Find::name;
  my $name = $_;
  $file =~ s,/,\\,g;
  
  return unless -f $file;
  return unless $file =~ /$file_pattern/;
  print "found $file\n";
  open F, $file or print "couldn't open $file\n" && return;
  my @buff = <F>;
  close F;
  open W, '>' , $file  or print "couldn't open $file\n" && return;
  foreach (@buff) {
    if (m/($search_pattern)/o) {
      print "found $file $_\n";
      print W "<em:maxVersion>*</em:maxVersion>\n"
      
    } else {
      print W $_;
    }
  }
  close W;
}, cwd);