Changeset 5193

Timestamp:

01/22/08 00:30:25 (8 months ago)

Author:

tokuhirom

Message:

overwrite the YAML.

Files:

• lang/perl/Encode-JP-Mobile/branches/auto-convert-sjis-pictgram/tools/softbank-scrape-name.pl (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/branches/auto-convert-sjis-pictgram/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);
+