Changeset 3463 for lang/javascript/ajaxzip2

Timestamp:

12/23/07 04:07:23 (5 years ago)

Author:

kawa0117

Message:

addrajax 2.11 @ CodeRepos?

Files:

• lang/javascript/ajaxzip2/work/csv2jsonzip.pl (modified) (4 diffs)

lang/javascript/ajaxzip2/work/csv2jsonzip.pl

@@ -1 +1 @@
 #!/usr/bin/perl
 # ---------------------------------------------------------------- #
-#   郵便番号一覧 CSV ファイルを JSON ファイルに変換
+#   AjaxZip 2.0 - Ajax郵便番号→住所自動入力フォーム（CGI不要版）用
+#   郵便番号一覧 CSV ファイルを JSON 形式に変換するスクリプト
 #   http://www.kawa.net/works/ajax/ajaxzip2/ajaxzip2.html
 #   (c) 2001-2007 Kawasaki Yusuke. All rights reserved.
@@ -10 +11 @@
     use lib qw( lib );
     use JSON;                       # JSON.pm がデフォルトです
-    # use JSON::Syck;               # JSON::Syckがあれば利用可能です
-# ---------------------------------------------------------------- #
+#   use JSON::Syck;                 # JSON::Syckがあれば利用可能です
+# ---------------------------------------------------------------- #
+    my $VERSION   = '2.11';
     my $CSV_ENC   = 'CP932';        # CSVファイルのエンコーディング
+    my $JSON_ENC  = 'utf8';         # JSONファイルのエンコーディング
     my $DISP_ENC  = 'utf8';         # 表示用のエンコーディング
     my $CSV_FILE  = 'ken_all.csv';  # 入力元CSVファイル名（デフォルト）
@@ -174 +177 @@
     my $c    = 0;
 
+    my $use_syck = $JSON::Syck::VERSION;
+    my $use_json = $JSON::VERSION unless $use_syck;
+    my $new_json = (( $use_json =~ /^([\d\.]+)/ )[0] >= 2.0 ) if $use_json;
+
+    print STDERR "module: \tJSON.pm ($use_json)\n" if $use_json;
+    print STDERR "module: \tJSON::Syck ($use_syck)\n" if $use_syck;
     print STDERR "json:   \t$JSON_BASE\n";
+
     foreach my $zip3 ( sort keys %$out ) {
         # JSONフォーマットでダンプする
         my $data = $out->{$zip3};
-        my $dump = $JSON::Syck::VERSION ? JSON::Syck::Dump($data) : objToJson($data);
+        my $dump = $use_syck ? JSON::Syck::Dump($data) : 
+                   $new_json ? to_json($data) : objToJson($data);
 
         # JSONファイル名の決定
@@ -189 +200 @@
         # JSONファイルに書き出す
         open( JSON, "> $jsonfile" ) or die "$! - $jsonfile\n";
+        $dump = Encode::encode( $JSON_ENC, $dump ) if $new_json;
         print JSON $dump, "\n";
         close( JSON );