Aktuelle Datei aus einem Ordner filter: filtert nicht aktuelle Datei vorhanden - #57707 (Allgemeines zu Perl)

renee

2005-09-07 11:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Element eines Arrays spricht man mit $array[index] und *nicht* mit @array[index] an...

Die Sub könnte ungefähr so aussehen:

Code: (dl )

sub existsActBackup {
  my ($file,$max_age) = @_;
  my $tmpValue = 0;
  my $age = (time - (stat($file))[10]) / (60 * 60 * 24);
  if ($age < $max_age) {    
     $tmpValue = 1;
  } else {  
     $tmpValue = 0;      
  }  
  return $tmpValue;
}

Die Subroutine wird dann ungefähr so benutzt:

Code: (dl )

1
2
3

if(existsActBackup('/path/to/fil.txt',hoechstAlterInTagen)){
  print "Datei ist aktuell";
}

Du solltest auch unbedingt Wiki:

use strict; benutzen...

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/