Änderungsdatum auslesen und funktion zurückliefern - #127732 (Datenbanken und Verzeichnisdienste)

renee

2009-11-03 16:27

User since
2003-08-04
14371 articles
ModeratorIn

Mal ein Stückchen Code, mit dem Du vielleicht was anfangen kannst...

Code (perl): (dl )

my @modifydate = (localtime( time - ( 86400 * -M $logfile ) ))[3..5];
my @today = (localtime)[3..5];

if( "@modifydate" eq "@today" ) {
  print "$logfile wurde heute zuletzt bearbeitet\n";
}

Man kann das ganze natürlich noch eleganter mit DateTime oder ähnlichen Modulen machen...

edit: Kleinen Fehler beseitigt...
Last edited: 2009-11-03 16:29:44 +0100 (CET)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/