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

renee

2009-11-03 15:48

User since
2003-08-04
14371 Artikel
ModeratorIn

Worin liegt genau Dein Problem?

Ich würde mit -M arbeiten...

Code: (dl )

my $Modifytime = -M $Logfile;

das ist aussagekräftiger. Man sollte beachten, dass die Angabe dann in Tagen ist. Das musst Du noch in das Datum umrechnen.

Ein paar allgemeine Anmerkungen:

* Du solltest use strict (siehe auch Wiki:

Artikel) und use warnings verwenden

*

Quote

Code (perl): (dl )

@logfiles = qw/"BACKUP_XX_ARCH.log" "BACKUP_XX_FULL.LOG"/;

Du solltest hier die Werte ohne die " schreiben, also

Code (perl): (dl )

@logfiles = qw/BACKUP_XX_ARCH.log BACKUP_XX_FULL.LOG/;

* Deine "open"s haben Probleme. Siehe auch http://reneeb-perlblog.blogspot.com/2009/09/versch...

*

Code: (dl )

1
2
3

$Text =~ /(ERROR)/g;

if ($1 eq "ERROR")

Der Reguläre Ausdruck ist hier unnötig. Du kannst einfach

Code (perl): (dl )

if( $Text =~ /ERROR/ ) {...}

schreiben.

Bei fixen Suchstrings, lohnt sich auch "index" zu verwenden:

Code (perl): (dl )

if( index( $Text, 'ERROR' ) != -1 ) { ...  }

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/