myUtils: Zeitpunkt der letzten Änderung von Datei ermitteln

[TomLee]

@yersinia

Auf die Gefahr hin das ich nicht alles richtig verstanden habe was genau gewünscht ist:
Wäre es nicht auch einfach OK stat mit der Option %Z zu verwenden, welche die Epoch-Sekunden zurückgibt ?
Nur die benötigt man doch zur weiteren Verwendung in einer myUtils ? Oder geht es darum, auf möglichst kürzestem Weg, genau das Zeitformat %Y-%m-%d_%H-%M-%S zu erhalten um das irgendwo auszugeben ?

Code Auswählen Erweitern

sub fupy {
my $t = system("stat -c '%Z' testjson.json");
return $t;
}

[betateilchen]

warum sollte man das auf Betriebssystemebene machen, wo doch stat() eine perl Standardfunktion ist?

Code Auswählen Erweitern

(stat("fileName"))[9]
liefert auch die Sekunden zurück, die man dann beliebig formatieren kann.

[yersinia]

Ich benötige den Zeitpunkt der letzten Änderung um diesen dann weiter verarbeiten zu können; am liebsten als DateTime-Objekt - das Zielformat ist

Code Auswählen Erweitern

%Y%m%dT%H%M%S
Allerdings bekomme ich mit

Code Auswählen Erweitern

my $t = system("stat -c '%Z' www/test.txt");nur den Rückgabewert -1.

warum sollte man das auf Betriebssystemebene machen, wo doch stat() eine perl Standardfunktion ist?

Davon abgesehen. Ich gehe davon aus, dass perl auch im FHEM-Kontext fähig ist, Metainformationen einer Datei abzufragen.

[betateilchen]

Davon abgesehen. Ich gehe davon aus, dass perl auch im FHEM-Kontext fähig ist, Metainformationen einer Datei abzufragen.

Natürlich - siehe die Ergänzung in meinem letzten Beitrag.

[yersinia]

Wo wir wieder hier wären:

Code Auswählen Erweitern

stat($filename)[9]scheint undef zurückzugeben:

Code Auswählen Erweitern

DateTime::_check_from_epoch_params('epoch', undef, 'time_zone', 'local') called at /usr/lib/aarch64-linux-gnu/perl5/5.32/DateTime.pm line 481
DateTime::from_epoch('DateTime', 'epoch', undef, 'time_zone', 'local') called at FHEM/99_myUtils.pm line 41

[betateilchen]

Logisch, das ist ja auch falsch. Es muss

Code Auswählen Erweitern

(stat($filename))[9]
heißen. stat() liefert ein array, Du willst aus dem array das Element 9 haben. Also musst Du auch das array korrekt übergeben, wenn Du es nicht einer Variablen zuweisen möchtest. Deshalb die zusätzlichen Klammern (die übrigens auch in meinem Codebeispiel stehen !)


Aber...

Ich benötige den Zeitpunkt der letzten Änderung um diesen dann weiter verarbeiten zu können; am liebsten als DateTime-Objekt - das Zielformat ist

Code Auswählen Erweitern

%Y%m%dT%H%M%S

Das ist doch noch einfacher zu lösen:

Code Auswählen Erweitern

sub test {
  my $filename = "./fhem.pl";
  return POSIX::strftime("%Y%m%dT%H%M%S",localtime((stat($filename))[9]));
}

liefert

Code Auswählen Erweitern

20240129T195015

[TomLee]

Allerdings bekomme ich mit
Code Auswählen Erweitern

Code Auswählen Erweitern

my $t = system("stat -c '%Z' www/test.txt");nur den Rückgabewert -1.

Du musst im Log schauen.

Code Auswählen Erweitern

sub test {
  my $filename = "./fhem.pl";
  return POSIX::strftime("%Y%m%dT%H%M%S",localtime((stat($filename))[9]));
}
Und was ist hier jetzt der Grund dafür das man das POSIX:: vor strftime weglassen kann ?

[betateilchen]

Und was ist hier jetzt der Grund dafür das man das POSIX:: vor strftime weglassen kann ?

Das ist nicht ganz die passende Frage.

Die richtige Frage wäre, warum ich das POSIX:: hier explizit angegeben habe.
Antwort: ich bin für klare Verhältnisse, deshalb gebe ich an, aus welchem Modul ich die Funktion strftime() haben möchte, für den Fall, dass es die Funktion in mehreren Modulen oder z.B. in der 99_myUtils.pm geben könnte.

[TomLee]

OK, vielen Dank.

stat() liefert ein array, Du willst aus dem array das Element 9 haben. Also musst Du auch das array korrekt übergeben, wenn Du es nicht einer Variablen zuweisen möchtest. Deshalb die zusätzlichen Klammern

Und ich verstehe aber immer noch nicht warum man sich die Sekunden nicht ausgeben lassen kann (einfach nur zum nachvollziehen), es klappt nicht mit Debug, und auch nicht wenn ich es in einer Variablen festhalten möchte, nur als Parameterübergabe in dem strftime.
Bspw. beim schnell ausprobieren in der Befehlszeile, das gleiche gilt aber auch in der myUtils:

Code Auswählen Erweitern

{my $t=(stat('./fhem.pl'))[9];;return $t;;}
{my $t=(stat('./fhem.pl'))[9];;Debug $t;;}

[betateilchen]

Und ich verstehe aber immer noch nicht warum man sich die Sekunden nicht ausgeben lassen kann

Bei mir funktioniert das einwandfrei.

In die Befehlszeile eingegeben

Code Auswählen Erweitern

{my $t=(stat('./fhem.pl'))[9];;return $t;;}
erhalte ich als Antwort im Frontend

Code Auswählen Erweitern

1706554215
Deine Zeile mit Debug funktioniert bei mir genauso fehlerfrei:

Code Auswählen Erweitern

2024.02.02 18:03:49 1: DEBUG>1706554215

[TomLee]

Bei mir funzt das nicht, weder am Laptop, noch jetzt wo ich es nochmal am Tablet ausprobiert habe, nachdem du geschrieben hast.

Am allgemeinen Zustand kanns auch nicht liegen, das Fläschchen Bier hab ich eben erst aufgemacht.

[TomLee]

Anbei der Nachweis...

Code Auswählen Erweitern

sub fupy {
  #my $filename = "./fhem.pl";
  #return strftime("%Y%m%dT%H%M%S",localtime((stat($filename))[9]));
  my $t=(stat('./fhem.pl'))[9];
  Debug $t;
  return $t;
}

Ja ich weiß das es jetzt was von OT hat, evtl. aber auch nicht.

[betateilchen]

fremdes Elend...

[TomLee]

Ich sag mal so, sicher kannst auch du es bei Dir genauso nachvollziehen:

Wenn man "oben" in der myUtils:

Code Auswählen Erweitern

use File::stat;
use Time::Piece;
use DateTime;zusätzlich angegeben hat  , dann kommt es genau zu meinem geschilderten Verhalten.
Nimmt man das wieder raus und macht einen restart, dann ist das Elend vorbei 

[betateilchen]

Wenn man "oben" in der myUtils:

Code Auswählen Erweitern

use File::stat;


Natürlich funktioniert es dann NICHT.
Das brauche ich gar nicht nachvollziehen, das steht sogar ausdrücklich in der Beschreibung zu File::stat.

This module's default exports override the core stat() and lstat() functions, replacing them with versions that return "File::stat" objects.

Das heißt doch eindeutig: die Sache mit dem array funktioniert dann nicht mehr, weil es gar kein array mehr als Rückgabewert gibt.

Aber davon, dass diese Dinge bei Dir explizit angegeben sind, war bisher nirgends die Rede.