Thread SubRoutinen richtig einbauen (10 answers)
Opened by leissi at 2006-01-05 13:18

renee
 2006-01-07 03:51
#61518 #61518
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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 )
1
2
3
4
5
6
7
8
9
10
11
12
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 full thread SubRoutinen richtig einbauen