Mercurial > hg > egg-tcls
changeset 355:a74cb8a1abf5
Add in commented out code.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 11 Dec 2015 22:38:38 +0200 |
parents | de411e7834aa |
children | 0de6e0c2c89c |
files | fetch_weather.pl |
diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/fetch_weather.pl Fri Dec 11 22:37:53 2015 +0200 +++ b/fetch_weather.pl Fri Dec 11 22:38:38 2015 +0200 @@ -350,8 +350,10 @@ # Parse the data .. my $meta_data = {}; +# my $csv = Text::CSV->new({blank_is_undef => 1, decode_utf8 => 1}); my $csv = Text::CSV->new({blank_is_undef => 1}); die("Failed to instantiate Text::CSV object?\n") unless defined($csv); + foreach my $line (split(/\s*\n\s*/, $meta_str)) { if (defined($line) && $csv->parse($line))