Mercurial > hg > egg-tcls

changeset 402:eaf56c84dc8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Use File::Slurper instead of old and somewhat broken File::Slurp.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 06 Jan 2017 18:45:56 +0200
parents 9ffce5c1ba99
children 282e9d9ddb99
files fetch_weather.pl
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_weather.pl	Fri Jan 06 15:12:52 2017 +0200
+++ b/fetch_weather.pl	Fri Jan 06 18:45:56 2017 +0200
@@ -26,8 +26,7 @@
 use Date::Format;
 use Date::Parse;
 use Data::Dumper;
-use File::Slurp::Unicode;
-use Text::CSV;
+use File::Slurper qw(read_text write_text);
 
 
 ###
@@ -285,7 +284,7 @@
 ###
 if (opt_chk_valid("outfile", 1))
 {
-  my $str = read_file(opt_get("outfile"), err_mode => 'quiet');
+  my $str = read_text(opt_get("outfile"));
   if (defined($str))
   {
     foreach my $line (split(/\s*\n\s*/, $str))
@@ -345,12 +344,12 @@
 
         print STDERR "Storing to cache '$meta_file'.\n" if (opt_get_int("debug") > 0);
         $meta_str = $res->decoded_content;
-        write_file($meta_file, $meta_str);
+        write_text($meta_file, $meta_str, "utf8");
       }
       else
       {
         print STDERR "Using CACHED Tiehallinto static meta data from '$meta_file'.\n" if (opt_get_int("debug") > 0);
-        $meta_str = read_file($meta_file);
+        $meta_str = read_text($meta_file, "utf8");
       }
 
       # Parse the data ..