Thread Änderungsdatum auslesen und funktion zurückliefern (15 answers)
Opened by michaelf2050 at 2009-11-03 15:39

renee
 2009-11-03 15:48
#127700 #127700
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
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/

View full thread Änderungsdatum auslesen und funktion zurückliefern