Changeset 5227 for lang/perl/Encode-JP-Mobile/trunk/tools

Timestamp:

01/22/08 07:53:35 (10 months ago)

Author:

tokuhirom

Message:

r5453@skinny (orig r5193): tokuhirom | 2008-01-22 00:30:25 +0900
overwrite the YAML.

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/softbank-scrape-name.pl (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/tools/softbank-scrape-name.pl

@@ -6 +6 @@
 use YAML;
 use FindBin;
+use File::Spec::Functions;
+use Encode;
 
-my $table_file = shift || "$FindBin::Bin/../dat/softbank-table.yaml";
+my $table_file = shift || catfile($FindBin::Bin, qw/.. dat softbank-table.yaml/);
 my $table = YAML::LoadFile($table_file);
 
@@ -26 +28 @@
 }
 
-binmode STDOUT, ":utf8";
-print Dump $table;
+YAML::DumpFile($table_file, $table);
+