Updated.

[chise/kage.git] / glyphwiki / detect_ko.pl

diff --git a/glyphwiki/detect_ko.pl b/glyphwiki/detect_ko.pl
new file mode 100644 (file)
index 0000000..662be4e
--- /dev/null
+++ b/glyphwiki/detect_ko.pl
@@ -0,0 +1,116 @@
+use utf8;
+binmode STDOUT, ":utf8";
+
+$target_lang = "ko";
+$target_cur = "$target_lang.txt";
+$target_unused = "$target_lang.unused.txt";
+$target_done = "$target_lang.done.txt";
+$target_notyet = "$target_lang.notyet.txt";
+$target_done_new = "$target_lang.done.new.txt";
+$target_notyet_new = "$target_lang.notyet.new.txt";
+
+$done = "";
+$notyet = "";
+$result = "";
+
+if(-e $target_cur || -e $target_unused || -e $target_done_new || -e $target_notyet_new){
+  print "Error. Clean files first.\n";
+  exit;
+}
+
+%current = ();
+open(my $fh, "<:utf8", $target_notyet);
+while(<$fh>){
+  if($_ =~ m/^[:!]/){
+    next;
+  }
+  if($_ =~ m/^(\r\n|\r|\n)$/){
+    next;
+  }
+  $ja = $_;
+  $ja =~ s/(\r\n|\r|\n)$//;
+  $local = <$fh>;
+  $local =~ s/(\r\n|\r|\n)$//;
+  if($ja ne $local){
+    $current{$ja} = $local;
+  }
+}
+close $fh;
+open(my $fh, "<:utf8", $target_done);
+while(<$fh>){
+  if($_ =~ m/^[:!]/){
+    next;
+  }
+  if($_ =~ m/^(\r\n|\r|\n)$/){
+    next;
+  }
+  $ja = $_;
+  $ja =~ s/(\r\n|\r|\n)$//;
+  $local = <$fh>;
+  $local =~ s/(\r\n|\r|\n)$//;
+  if($ja ne $local){
+    $current{$ja} = $local;
+  }
+}
+close $fh;
+%current2 = %current;
+
+@files = ();
+push(@files, "/var/www/glyphwiki.org/index.cgi");
+opendir($dh, "/home/kamichi/glyphwiki/") or die $!;
+foreach(grep(/\.pl$/, readdir($dh))){
+  if($_ !~ m/^en./){
+    push(@files, "/home/kamichi/glyphwiki/$_");
+  }
+}
+closedir($dh);
+
+foreach(@files){
+       $fn = $_;
+       %cand = ();
+       open(my $fh, "<:utf8", $_);
+  $line = 1;
+  while(<$fh>){
+    if($_ =~ m/^[ \t]*([^\#]*[^ -~\r\n\t]+[^\#]*)(\#.*)?[\r\n]+$/){
+      if($_ !~ m/\#.*ja_mama/){
+        $cand{$1} .= $line.",";
+      }
+    }
+               $line++;
+  }
+  close($fh);
+  $buffer1 = "";
+  $buffer2 = "";
+  $buffer3 = "";
+  foreach(sort({$cand{$a} <=> $cand{$b}} keys(%cand))){
+    if(exists($current{$_})){
+      $buffer1 .= ":".substr($cand{$_}, 0, length($cand{$_}) - 1)."\n$_\n$current{$_}\n";
+      $buffer3 .= ":".substr($cand{$_}, 0, length($cand{$_}) - 1)."\n$_\n$current{$_}\n";
+      delete($current2{$_});
+    } else {
+      $buffer2 .= ":".substr($cand{$_}, 0, length($cand{$_}) - 1)."\n$_\n$_\n";
+      $buffer3 .= ":".substr($cand{$_}, 0, length($cand{$_}) - 1)."\n$_\n$_\n";
+    }
+  }
+  $done .= "!".$fn."\n".$buffer1."\n";
+  $notyet .= "!".$fn."\n".$buffer2."\n";
+  $result .= "!".$fn."\n".$buffer3."\n";
+}
+
+$unused = "";
+foreach(sort({$current2{$a} <=> $current2{$b}} keys(%current2))){
+  $unused .= ":\n$_\n$current2{$_}\n";
+}
+
+open(my $fh, ">:utf8", $target_cur);
+print $fh $result;
+close $fh;
+open(my $fh, ">:utf8", $target_done_new);
+print $fh $done;
+close $fh;
+open(my $fh, ">:utf8", $target_notyet_new);
+print $fh $notyet;
+close $fh;
+open(my $fh, ">:utf8", $target_unused);
+print $fh $unused;
+close $fh;