SubRoutinen richtig einbauen (Seite 2) (Allgemeines zu Perl)

[thread]7590[/thread]

SubRoutinen richtig einbauen (Seite 2)

renee

2006-01-07 03:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Ueberlege Dir, was Du fuer die Abfrageroutinen brauchst (Parameter). In der Regel duerfte es wohl das Startverzeichnis der Suche und das Alter der Datei sein...

Dann fasst Du das was gleich ist zusammen...

Ich hatte Dir in dem anderen Thread (wenn ich mich richtig erinnere war das Dein Thread) schon einen kleinen Tipp gegeben...

So koennte also eine Sub aussehen:

Code: (dl )

if(checkDir($dir,$age)){
  print "ok\n";
}

sub checkDir{
  my ($directory,$max_age) = @_;
  opendir my $dirhandle,$directory or die $!;
  if(grep{-M $_ < $max_age}readdir($dirhandle)){
    return 1;
  }
  return 0;
}

Evtl. muss man bei grep{} noch etwas einbauen, um nur einen bestimmten Dateityp zuzulassen...

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 all threads created 2006-01-05 13:18.