【Perl】Jsonのkey名抽出

jsonkey.pl

#!/usr/bin/perl

for(@ARGV) {
  open(IN, $_) || die "$!";
  for(<IN>) {
    # 通常のjsonだと m/"(\w*?)":["|\d]/g
    for my $match ( m/"(\$?\w*?)":["|\d|true|false]/g ) {
      $is_match = 0;
      for my $_ (@list) {
        if($_ eq $match) {
          $is_match = 1;
          last;
        }
      }
      unless($is_match) {
        push (@list, $match);
        print $match."\n";
      }
    }
  }
  close(IN);

  open(OUT, ">key_list.log") or die "$!";
  for my $hoge (@list) {
    printf OUT $hoge."\n";
  }
  close(OUT);
}