nur schreiben der JSON wenn Werte sich geändert haben

2025-11-03 20:02:37 +01:00
parent de590f3747
commit c41a716761
2 changed files with 128 additions and 53 deletions
--- a/getwetter.pl
+++ b/getwetter.pl
@@ -1,69 +1,75 @@
 use Mojo::UserAgent;
-use Data::Printer;
+#use Data::Printer;
 use File::Slurp;
 use JSON;

 my $ua = Mojo::UserAgent->new;
-# # my $tx = $ua->get('https://wetter.lauters.heim-server.de/current.html')->result->body;
+my $tx = $ua->get('https://wetter.lauters.heim-server.de/current.html')->result->body;

-# # my $netext = $tx =~ s/\R//rg;
+my $netext = $tx =~ s/\R//rg;

-my $tx = $ua->get('https://wetter.lauters.heim-server.de/clientraw.txt')->result->body;
-append_file('clientraw.txt', "$tx");
+my $wohin = '';
+my $referenz = {
+    "uvindex" => "0",
+    "solarstrahlung" => "0",
+    "taupunkt" => "0",
+    "luftdruck" => "0",
+    "luftfeuchte" => "0",
+    "temp" => "0"
+};

-# my $red = read_file('clientraw.txt');
-my @read = split(' ', $tx);
-
-my $var = read_file('variablen.txt');
-my @vari = split(/\n/, $var);
-# p @vari;
-# p @read;
-
-my $c = 0;
-my $json = {};
-for my $v ( @read ) {
-    if ( $vari[$c] =~ /,/ ) {
-        my ($wert, $einheit, $jsonkey ) = split(',', $vari[$c]);
-        if ( $jsonkey ) {
-            $json->{$jsonkey} = $read[$c];
-        }
-        print "$wert: $read[$c] $einheit\n";
-    }
-
-    $c ++;
+if ( -e $wohin.'wetter.json') {
+    my $red = read_file( $wohin. 'wetter.json');
+    $referenz = decode_json($red);
 }

+my $json = {
+    "uvindex" => "0",
+    "solarstrahlung" => "0",
+    "taupunkt" => "0",
+    "luftdruck" => "0",
+    "luftfeuchte" => "0",
+    "temp" => "0"
+};

-# my @tr = $red =~ /<tr>(.*?)<\/tr>/g;
+my @tr = $netext =~ /<tr>(.*?)<\/tr>/g;

-# for my $t ( @tr ) {
-#     if ( $t =~ /<nobr>Temperatur Au&szlig;en<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
-#         $json->{temp} =  $aktuell =~ s/,/\./r;
-#     }
+for my $t ( @tr ) {
+    if ( $t =~ /<nobr>Temperatur Au&szlig;en<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
+        $json->{temp} =  $aktuell =~ s/,/\./r;
+    }

-#     if ( $t =~ /<nobr>Luftfeuchte Au&szlig;en<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)%<\/font><\/b/g;
-#         $json->{luftfeuchte} =  $aktuell;
-#     }
+    if ( $t =~ /<nobr>Luftfeuchte Au&szlig;en<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)%<\/font><\/b/g;
+        $json->{luftfeuchte} =  $aktuell;
+    }

-#     if ( $t =~ /<nobr>Luftdruck<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)hPa<\/font><\/b/g;
-#         $json->{luftdruck} =  $aktuell =~ s/,/\./r;
-#     }
+    if ( $t =~ /<nobr>Luftdruck<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)hPa<\/font><\/b/g;
+        $json->{luftdruck} =  $aktuell =~ s/,/\./r;
+    }

-#     if ( $t =~ /<nobr>Taupunkt<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
-#         $json->{taupunkt} =  $aktuell =~ s/,/\./r;
-#     }
-#     if ( $t =~ /<nobr>UV-Index<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)UV-I<\/font><\/b/g;
-#         $json->{uvindex} =  $aktuell =~ s/,/\./r;
-#     }
-#     if ( $t =~ /<nobr>Solarstrahlung<\/nobr>/ ) {
-#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)W\/m&sup2;<\/font><\/b/g;
-#         $json->{solarstrahlung} =  $aktuell =~ s/,/\./r;
-#     }
-# }
+    if ( $t =~ /<nobr>Taupunkt<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
+        $json->{taupunkt} =  $aktuell =~ s/,/\./r;
+    }
+    if ( $t =~ /<nobr>UV-Index<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)UV-I<\/font><\/b/g;
+        $json->{uvindex} =  $aktuell =~ s/,/\./r;
+    }
+    if ( $t =~ /<nobr>Solarstrahlung<\/nobr>/ ) {
+        my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)W\/m&sup2;<\/font><\/b/g;
+        $json->{solarstrahlung} =  $aktuell =~ s/,/\./r;
+    }
+}

-write_file( 'wetter.json', encode_json($json) );
+my $aenderungen;
+for my $ref ( keys %{$referenz} ) {
+    if ( $referenz->{$ref} ne $json->{$ref} ) {
+        $aenderungen = 1;
+    }
+}
+
+write_file( $wohin.'wetter.json', encode_json($json) ) if $aenderungen;
+# write_file( "/var/www/html/wetter/wetter.json", encode_json($json) );
--- a/getwetter_test.pl
+++ b/getwetter_test.pl
@@ -0,0 +1,69 @@
+use Mojo::UserAgent;
+use Data::Printer;
+use File::Slurp;
+use JSON;
+
+my $ua = Mojo::UserAgent->new;
+# # my $tx = $ua->get('https://wetter.lauters.heim-server.de/current.html')->result->body;
+
+# # my $netext = $tx =~ s/\R//rg;
+
+my $tx = $ua->get('https://wetter.lauters.heim-server.de/clientraw.txt')->result->body;
+append_file('clientraw.txt', "$tx");
+
+# my $red = read_file('clientraw.txt');
+my @read = split(' ', $tx);
+
+my $var = read_file('variablen.txt');
+my @vari = split(/\n/, $var);
+# p @vari;
+# p @read;
+
+my $c = 0;
+my $json = {};
+for my $v ( @read ) {
+    if ( $vari[$c] =~ /,/ ) {
+        my ($wert, $einheit, $jsonkey ) = split(',', $vari[$c]);
+        if ( $jsonkey ) {
+            $json->{$jsonkey} = $read[$c];
+        }
+        print "$wert: $read[$c] $einheit\n";
+    }
+
+    $c ++;
+}
+
+
+# my @tr = $red =~ /<tr>(.*?)<\/tr>/g;
+
+# for my $t ( @tr ) {
+#     if ( $t =~ /<nobr>Temperatur Au&szlig;en<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
+#         $json->{temp} =  $aktuell =~ s/,/\./r;
+#     }
+
+#     if ( $t =~ /<nobr>Luftfeuchte Au&szlig;en<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)%<\/font><\/b/g;
+#         $json->{luftfeuchte} =  $aktuell;
+#     }
+
+#     if ( $t =~ /<nobr>Luftdruck<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)hPa<\/font><\/b/g;
+#         $json->{luftdruck} =  $aktuell =~ s/,/\./r;
+#     }
+
+#     if ( $t =~ /<nobr>Taupunkt<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)&deg;C<\/font><\/b/g;
+#         $json->{taupunkt} =  $aktuell =~ s/,/\./r;
+#     }
+#     if ( $t =~ /<nobr>UV-Index<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)UV-I<\/font><\/b/g;
+#         $json->{uvindex} =  $aktuell =~ s/,/\./r;
+#     }
+#     if ( $t =~ /<nobr>Solarstrahlung<\/nobr>/ ) {
+#         my ($aktuell) = $t =~ /<b><font size="1">aktuell<\/font><\/b><br><b><font size="5">(.*?)W\/m&sup2;<\/font><\/b/g;
+#         $json->{solarstrahlung} =  $aktuell =~ s/,/\./r;
+#     }
+# }
+
+write_file( 'wetter.json', encode_json($json) );